Win2000Pro via CMD herunterfahren?

Const abmelden = 0
Const herunterfahren = 1
Const neustarten = 2
Const forciert = 4
Const abschalten = 8
Const kill = 16

antwort = MSgBox("Wollen Sie wirklich Herunterfahren?", vbYesNo + vbQuestion, "Runterfahren?")  
If antwort = vbYes Then
	LocalShutdown(abschalten)
Else
	MsgBox("Shutdown abgebrochen")  
	WScript.Quit
end if

Function LocalShutdown(modus)
Set instances = GetObject("winmgmts:{(Shutdown)}").InstancesOf("win32_operatingsystem")  
For each instance in instances
	On Error Resume Next
	resultat = -1
	resultat = instance.Win32Shutdown(modus,8)
	On Error Goto 0
	LokalShutdown = (resultat = 8)
	Exit For
Next
End Function
WScript.Quit
end if