Показать сообщение отдельно
Старый 15.12.2005, 15:01     # 3
LightImage
Junior Member
 
Регистрация: 16.10.2002
Адрес: Россия-матушка
Пол: Male
Сообщения: 96

LightImage Нимб уже пробиваетсяLightImage Нимб уже пробивается
Можно вызывать из своей программы утилиту 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
После этого в командной строке говорим "cscript my.vbs".
__________________
1 миллибайт = 1/1024 байта
LightImage вне форума