| imho.ws |
![]() |
|
|
|
# 1 |
|
Junior Member
Регистрация: 23.12.2003
Адрес: Киев
Сообщения: 118
![]() ![]() ![]() ![]() |
Как запустить прогу с одного компа на другом
Есть следующая проблема.
Имеется два компьютера, под управлением Windows 2000 Server. А и B. На компьютере B есть некая программа C. Вопрос как программно с компьютера А запустить программу C на компьютере B. Есть возможность настраивать права на компьютерах. |
|
|
|
|
# 3 |
|
Junior Member
Регистрация: 16.10.2002
Адрес: Россия-матушка
Пол: Male
Сообщения: 96
![]() ![]() |
Можно вызывать из своей программы утилиту psexec, доступную по адресу _http://www.sysinternals.com/Utilities/PsExec.html
Также можно попробовать использовать WSH. Приведу пример, который есть в MSDN, на языке VBScript. Создаем в некоторой папке два файла: my.vbs и test.vbs. Код:
'test.vbs
Dim WshShell, strCommand
strCommand = "cmd /c dir c:\" ' пример выполняемой программы
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run(strCommand)
Код:
'my.vbs
Dim Controller, RemoteScript
Set Controller = WScript.CreateObject("WSHController")
Set RemoteScript = Controller.CreateScript("test.vbs", "myremotecomp")
WScript.ConnectObject RemoteScript, "remote_"
RemoteScript.Execute
Do While RemoteScript.Status <> 2
WScript.Sleep 100
Loop
WScript.DisconnectObject RemoteScript
Sub remote_Error
Dim theError
Set theError = RemoteScript.Error
WScript.Echo "Error " & theError.Number & " - Line: " & theError.Line & ", Char: " & theError.Character & vbCrLf & "Description: " & theError.Description
WScript.Quit -1
End Sub
__________________
1 миллибайт = 1/1024 байта |
|
|