[monkkey]

dim OpSysSet, obj
Set OpSysSet = GetObject("winmgmts:{impersonationLevel=impersonate," & _
"(Shutdown)}//./root/cimv2".ExecQuery _
("SELECT * FROM Win32_OperatingSystem" &_
" WHERE Primary=true"

For Each obj In OpSysSet
obj.Win32Shutdown(8)
Next

Cоздай файл с расширением *.vbs, засунь в него скрипт, и в планировщик.



[s]Исправлено: monkkey, 14:12 11-11-2003[/s]