[avolkov2009]

Наткнулся на такую вещь:
Скрипт pushmsg.vbs (выполняется на сервере)

читать дальше »

On Error Resume Next
Set objClass = GetObject("winmgmts:{impersonationLevel=impersonate}!\\PO-KB\root\CIMV2:Win32_Process")
If Err.Number <> 0 Then
WScript.Echo Err.Number & ": " & Err.Description
WScript.Quit
End If
Res = objClass.Create("wscript.exe t:\adminmsg.vbs", Null, Null, PID)
If Res <> 0 Then
WScript.Echo "Код ошибки: " & Res
End If

где PO-KB - имя компьютера с Windows XP, на котором я хочу показать сообщение
t:\adminmsg.vbs - скрипт, показывающий сообщение (если "тупо" запустить на рабочей станции из проводника - работает)

Скрипт adminmsg.vbs:

читать дальше »

Set objShell = CreateObject("Wscript.Shell")
strTitle= "Внимание!!!"
objShell.Popup "Получено предупреждение для абонента ByFly!", , strTitle, vbCritical + vbOKOnly

Не работает.
Если подправить строчку в первом скрипте на

Код:

Set objClass = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2:Win32_Process")

, т.е. запускать процесс на локальном компьютере, то все ок.

Подскажите, пожалуйста, что у меня не так?