Reakce na odpověď

http://www.google.cz/search?hl=cs&source=hp&q=vbsc ript+pc+shutdown&btnG=Vyhled%C3%A1v%C3%A1n%C3%AD+G oogle

konkretne http://www.wisesoft.co.uk/scripts/vbscript_shutdow n_a_computer.aspx

strComputer = "." ' Local Computer
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}\\" & _
                strComputer & "\root\cimv2")

Set colOs = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
 
For Each objOs in colOs
    objOs.Win32Shutdown(1)
Next

VBScript- vypnutí počítače