Simple but usefull. save it as .VBS
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 122
wshshell.sendkeys "1"
wscript.sleep 3155
wshshell.sendkeys "2"
wscript.sleep 147
wshshell.sendkeys "1"
wscript.sleep 3326
wshshell.sendkeys "2"
wscript.sleep 166
wshshell.sendkeys "1"
wscript.sleep 3278
wshshell.sendkeys "2"
wscript.sleep 159
wshshell.sendkeys "1"
wscript.sleep 3287
wshshell.sendkeys "2"
wscript.sleep 137
wshshell.sendkeys "1"
wscript.sleep 3233
wshshell.sendkeys "2"
wscript.sleep 123
wshshell.sendkeys "1"
wscript.sleep 3342
wshshell.sendkeys "2"
wscript.sleep 194
wshshell.sendkeys "1"
wscript.sleep 3329
wshshell.sendkeys "2"
wscript.sleep 213
wshshell.sendkeys "1"
wscript.sleep 3348
wshshell.sendkeys "2"
wscript.sleep 245
wshshell.sendkeys "1"
wscript.sleep 3163
wshshell.sendkeys "2"
wscript.sleep 188
wshshell.sendkeys "1"
wscript.sleep 3280
wshshell.sendkeys "2"
wscript.sleep 244
wshshell.sendkeys "1"
wscript.sleep 3177
wshshell.sendkeys "2"
wscript.sleep 132
wshshell.sendkeys "1"
wscript.sleep 3212
wshshell.sendkeys "2"
wscript.sleep 175
wshshell.sendkeys "1"
wscript.sleep 3290
wshshell.sendkeys "2"
wscript.sleep 165
wshshell.sendkeys "1"
wscript.sleep 3302
wshshell.sendkeys "2"
wscript.sleep 147
wshshell.sendkeys "1"
wscript.sleep 3321
wshshell.sendkeys "2"
wscript.sleep 159
wshshell.sendkeys "1"
wscript.sleep 3341
wshshell.sendkeys "2"
wscript.sleep 187
wshshell.sendkeys "1"
wscript.sleep 3269
wshshell.sendkeys "2"
wscript.sleep 192
wshshell.sendkeys "1"
wscript.sleep 3178
wshshell.sendkeys "2"
wscript.sleep 222
wshshell.sendkeys "1"
wscript.sleep 3306
wshshell.sendkeys "2"
wscript.sleep 238
wshshell.sendkeys "1"
wscript.sleep 3322
wshshell.sendkeys "2"
loop
You can close it with this
Quote:
strComputer = "."
strProcess = "'wscript.exe'"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = " & strProcess )
For Each objProcess in colProcess
objProcess.Terminate()
WScript.Echo "ShutDown Succes!"
Next
|