Windows 2k Client mit Scheduled Task herunterfahren

On Error resume next

strComputer = "."  

'get username  
Set objWMIService = GetObject("winmgmts:" _  
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")  

Set colComputer = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")  

For Each objComputer in colComputer
user = objComputer.UserName
Next

'if user is null then try to shutdown computer  

If isnull(user) Then

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

Set colOperatingSystems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")  

For Each objOperatingSystem in colOperatingSystems
objOperatingSystem.Win32Shutdown(8)
Next

Else

Wscript.Quit

End If

Wscript.Quit