[amel27]

Теперь уже два вопроса: 1. У тебя она работала, если да то дай живой пример. 2. Если знаешь, то скажи как из под cmd сделать то же что и мой компьютер

Вот рабочий вариант VBS-скрипта на WMI. Проверил для 2K из под XP:

Код:

strComputer = "TEST" 
strDomain = "WORKGROUP"
 
Wscript.StdOut.Write "Please enter your user name:"
strUser = Wscript.StdIn.ReadLine 
Set objPassword = CreateObject("ScriptPW.Password")
Wscript.StdOut.Write "Please enter your password:"
strPassword = objPassword.GetPassword()
 
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServices = objSWbemLocator.ConnectServer(strComputer, _
	"root\cimv2", _
	 strUser, _
	 strPassword, _
	 "MS_409", _
	 "ntlmdomain:" + strDomain)
 
Set colSwbemObjectSet = _
	objSWbemServices.ExecQuery("Select * from Win32_OperatingSystem")
 
For Each objOS in colSWbemObjectSet
	ObjOS.Win32Shutdown(12)
Next

Вызов:

Код:

cscript shutdown.vbs