Программирование "удобняшек" на VBScript - [88] :: Прикладное программирование

Привет.

Есть скрипт для удаленно отключения компьютеров. Но требуется что до отключения компьютеров скрипт предупреждал пользователей например вот так: "Power failure. The computer will be automaticaly shutting down after 3 min. Please save your work" и через 3 минут отключал компьютеры.

-----------------------------------------------------------------------------
Dim strComputer, OperationMode, strUsername, strPassword

'Remote computername or IP
strComputer="172.5.5.155"

'Specify the OperationMode (0 = Restart, 1 = Logoff, 2 = Shutdown)
OperationMode = 0

'Credentials
strUsername = "Administrator"
strPassword = "password"

'put computername into uppercase
strComputer = UCase(strComputer)

'Perform the operation on remote PC
Call OperationAction

Sub OperationAction
On Error GoTo 0
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServices = objSWbemLocator.ConnectServer _
(strComputer, "root\cimv2", strUsername, strPassword)
objSWbemServices.Security_.ImpersonationLevel = 3

'Call WMI query to collect parameters for reboot action
'Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//"_
'& strComputer & "/root/cimv2").ExecQuery("select * from Win32_OperatingSystem"_
'& " where Primary=true")

Set OpSysSet = objSWbemServices.ExecQuery("select * from Win32_OperatingSystem"_
& " where Primary=true")

Dim OpSysSet, OpSys

'Set PC to reboot
If OperationMode = 0 Then
For each OpSys in OpSysSet
opSys.Reboot()
Next

'Set PC to logoff
ElseIf OperationMode = 1 Then

Const EWX_LOGOFF = 0
For each OpSys in OpSysSet
opSys.win32shutdown EWX_LOGOFF
Next

'Set PC to shutdown
ElseIf OperationMode = 2 Then
For each OpSys in OpSysSet
opSys.Shutdown()
Next

End If
End Sub

Модерирует : ShIvADeSt
ShIvADeSt (12-07-2011 15:12): http://forum.ru-board.com/topic.cgi?forum=33&topic=11963#1	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112