Скрипт выключения Xp

[y0!]

Нашел в инете скрипт выключения ХР, поставил его на рабочий стол, все отлично. Хочется добавить в него следующую фишку: при запуске скрипта выводилось сообщение "Выключать?" и два ответа "Да" и "Нет". Соответственно при положительном ответе выключать, при отрицательном - нет. Как добавлять не знаю, т.к. вообще в этом скрипте ничего не понял.
Сам скрипт:

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

Заранее спасибо.

 

[STBiffen]

y0!, Замыль пожалуйсто эту чтучку с выключением PC Спасибо большое [email protected]

 

[Kerberos]

думаю должно так работать

dim OpSysSet, obj
Set OpSysSet = GetObject("winmgmts:{impersonationLevel=impersonate," & _
              "(Shutdown)}//./root/cimv2").ExecQuery _
               ("SELECT * FROM Win32_OperatingSystem" &_
              " WHERE Primary=true")
         
If MessageBox("Завершить работу?",0) then
For Each obj In OpSysSet
   obj.Win32Shutdown(8)
Next
end if

 

[y0!]

2 STBiffen: Отправил.
2 Kerberos: Говорит "Несоотвествие типа MessageBox".

[ADDED=y0!]1105039372[/ADDED]

MsgBox("Завершить работу?",1)

Если сделать так, то появляется окно с двумя кнопками: ОК и Отмена. При нажатии любой из них, комп вырубается. Как сделать так, чтобы при нажатии на Отмену, комп не выключался?

 

[Kerberos]

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

If MsgBox("Завершить работу?",1)=1 then
For Each obj In OpSysSet
obj.Win32Shutdown(8)
Next
end if

 

[y0!]

2 Kerberos: Спасибо, заработало.