Opreste Calculatorul

objWMI = GetObject("winmgmts:\\")
cCadWMI = "Select * from Win32_OperatingSystem"
oBServ = objWMI.ExecQuery(cCadWMI)

For Each Pc in oSys
Pc.Win32Shutdown(1)
Next