Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для voler

Ветеран


Сообщения: 909
Благодарности: 36

Профиль | Отправить PM | Цитировать


Есть другой способ.

PHP код: Выделить весь код

'Если ошибка продолжаем далее.
On Error Resume Next
****************************************************************
'Тут задаются параметры текста и заголовка.
L_Welcome_MsgBox_Message_Text   = _
    "Выполняем перезагрузку explorer.exe?"
L_Welcome_MsgBox_Title_Text     = "Перезагружаем explorer.exe"
Call Welcome()
****************************************************************
'Завершает работу программы.
Set oShell = CreateObject("WScript.Shell")
On Error Resume Next
 ' 
****************************************************************
Sub t_message(nameres)
Select Case res
case 0 WScript.Echo name " Successful completion."
case 2 WScript.Echo name " The user does not have access to the requested information."
case 3 WScript.Echo name " The user does not have sufficient privilge."
case 8 WScript.Echo name " Unknown failure."
case 9 WScript.Echo name " The path specified does not exist."
case 21 WScript.Echo name " The specified parameter is invalid."
Case Else WScript.Echo name " " res " Refer to Win32 error code documentation."
End Select
End Sub
' ****************************************************************
'
explorer.exe
' ****************************************************************
For each Service in GetObject("winmgmts:{impersonationLevel=impersonate}!//localhost").ExecQuery("select * from Win32_Process where Name='
explorer.exe'")
res = Service.Terminate()
Call t_message("explorer.exe", res)
Next
****************************************************************
'Запускаем Программу.
Dim wsh
Set wsh=CreateObject("WScript.Shell")
wsh.Run "%systemroot%\explorer.exe"
****************************************************************
'Если нажимаем да то скрипт продолжает работу, а если нет то завершает работу.
Sub Welcome()
    Dim intDoIt

    intDoIt =  MsgBox(L_Welcome_MsgBox_Message_Text, _
        vbYesNo + vbInformation, _
        L_Welcome_MsgBox_Title_Text )
    If intDoIt = vbCNo Then
       WScript.Quit
    End If
End Sub
**************************************************************** 

-------
Linux, это плацдарм для изучения своих возможностей.


Отправлено: 13:20, 23-08-2007 | #3