Удаленное сообщение

[Чудик]

А можно ли вывести диалоговое окно на другой машине, связанной по локальной сети с моей? Соответсвенно по простому. ОС - Windows XP.

[Ramzes]

Код: Выделить всё

shell "Net send [ip компа] [текст сообщения]"

[Чудик]

А иначе? Чтоб можно было задать тип окна (критическая ошибка, информация, предостережение и т.д.)?
Да и не всегда срабатывает это через командную строку, я заметил. Может сеть глючит, но факт.

[Sirik]

Да напиши простенькое клиент-сервер приложение с использованием UDP протокола

[Чудик]

Да, но придется это приложение ставить и на другом компе. А так незя.

[Sirik]

А скрытно поставь , если ламер то ничего не поймёт.

[Чудик]

Надо подумать.

[Qubicz]

Что то сильно на NetBus смахивает...

[Ruslan Demidow]

Код: Выделить всё

'********************************************************************
' Имя: RunRemoteScript.vbs                                         
' Язык: VBScript                                                   
' Описание: Запуск удаленного сценария                             
'********************************************************************
Option Explicit

Dim Controller, RemScript  ' Объявляем переменные
' Создаем объект WshController
Set Controller = WScript.CreateObject("WshController")
' Создаем сценарий на удаленной машине (объект WshRemote)
Set RemScript = Controller.CreateScript("C:\Test.vbs", "G1w1b2")
RemScript.Execute  ' Запускаем удаленный сценарий
WScript.Echo "Удаленный сценарий запущен"
While RemScript.Status <> 2
  ' Цикл выполняется до завершения удаленного сценария
  WScript.Sleep 100  ' Приостанавливаем сценарий на 0,1 сек
Wend
WScript.Echo "Выполнение удаленного сценария завершено"
'*************  Конец *********************************************


Можно через vbscript, как выше описано.

[Sirik]

2Ruslan Demidow

Раскажи принцип работы твоего скрипта, а то у меня вылетает с ошибкой

[Ruslan Demidow]

2Ruslan Demidow

Раскажи принцип работы твоего скрипта, а то у меня вылетает с ошибкой

Самое главное тут это строка

Код: Выделить всё

Controller.CreateScript("C:\Test.vbs", "G1w1b2")

"C:\Test.vbs" - скрипт который лежит у тебя на диске.
"G1w1b2" - имя компьютера на котором его нужно запустить.
Остальное дело техники. Вернее дело объекта WshController.
Но запуск удалённого скрипта как фича появился лишь в WSH 2.0 (т.е. в поставку Windows он входит начинаю с версии XP и дальше.) Есть возможность и установить его как отдельное приложение на любую другую винду. Качается со страницы мелкомягких по адресу (если память не изменяет) http://msdn.microsoft.com/library/defau ... webdev.asp
А описание применения удалённых скриптов можно получить по адресу http://msdn.microsoft.com/library/defau ... rmscpt.asp