Re: Программно завершить работу системы

From

Vadim B. Krasilnikov ()

To

Alexandr Golovko

Date

2001-06-05T09:44:54Z

Area

SU.WINDOWS.NT.PROG

From: "Vadim B. Krasilnikov" <u1399.21@chel.elektra.ru>

Хаюшки, Alexandr!
Ты позволил(а) себе черкнуть  о "Программно завершить работу системы".
И было это двадцать восьмого мая 2001 года в 08 ч 10 мин. 34 сек. по
Гринвичу.

 AG> Как в Windows 2000 программно завершить работу системы? Например в
 AG> 98 винде было: "Rundll.exe user.exe,ExitWindows"

--------Begin of poweroff.vbs----------
 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
--------End of poweroff.vbs---------------


С большим приветом, Vadim B. Krasilnikov.

** Пишите письма.
** Шлите телеграммы.
** Будете проходить мимо - проходите...

--- ifmail v.2.15dev5
 * Origin: Chene (2:5020/400)