Запуск программы на удалённом компьютере

? WshController and WshRemote examples
Here's a 2 job (JScript/VBScript) .WSF WshController and WshRemote example in case anyone is
inclined. It will run "as is" on NT4 or Win2000 (WshController and WshRemote are *NOT*
installed/supported on Win9x for either the beta or the final release)...

See the comments inline...

<package>
<comment>

Use of WshRemote is NOT enabled by default.

HKLM\SOFTWARE\Microsoft\Windows Script Host\Settings\Remote

DWORD 0 - disabled
DWORD 1 - enabled

This example is based on the example in the beta documentation
for the CreateScript method. There are JScript and VBScript
versions included as //Job:js //Job:vbs respectively.

The following errors in the example in documentation on which these
examples are based have been corrected:

- The progid is "WshController" (not "WScript.WshController")

- the WshRemote objects Status property is numeric (not string).

0 -> No Task
1 -> Running
2 -> Finished

Note that the Status property link from the WshRemote object topic
in the beta docs goes to the wrong topic - WshExec object's Status.
The Reference/Properties/Status (WshRemote) link goes to the correct
WshRemote.Status topic.

Remarks:

If a bad script path is passed to CreateScript, no error occurs
until Execute is called.

Bugs:

The WshRemote.Error.Line and Number properties both return an
unsigned long which is unsupported type in VBVScript. The
workaround is to wrap references to these in CLng() or Hex()
depending on what you need.

</comment>

<job id="js">
<script language="JScript">

var Controller = WScript.CreateObject("WshController");
var RemoteScript =
Controller.CreateScript("d:\\scripts\\my Script.js");
WScript.Echo("connecting");
WScript.ConnectObject(RemoteScript, "remote_");
WScript.Echo("executing");
RemoteScript.Execute();

while (RemoteScript.Status != 2) {
WScript.Sleep(100);
}

if (RemoteScript.Error.Number == 0) {
WScript.Echo("Completed Successfully!");
} else {
//=====
// Note: this will only be reached if you comment out or
// remove the WSCript.Quit in the remote_Error() handler.
//=====

WScript.Echo("Failed!");
}

function remote_Error()
{
var theError = RemoteScript.Error;
WScript.Echo("An Error Occurred at Line "
+ theError.Line + ", Char "
+ theError.Character
+ "\n"
+ theError.Number.toString(16)
+ "\n"
+ theError.Description
);
WScript.Quit(-1);
}


</script>

</job>
<job id="vbs">

<script language="VBScript">

set Controller = WScript.CreateObject("WshController")
set RemoteScript = _
Controller.CreateScript("d:\scripts\mySc ript.js")
WScript.Echo("connecting")
WScript.ConnectObject RemoteScript, "remote_"
WScript.Echo("executing")
RemoteScript.Execute

do while RemoteScript.Status <> 2
WScript.Sleep 100
loop

If CLng(RemoteScript.Error.Number) = 0 Then
WScript.Echo "Completed Successfully!"
Else
'=====
' Note: this will only be reached if you comment out or
' remove the WSCript.Quit in the remote_Error() handler.
'=====
WScript.Echo "Failed!"
End If

function remote_Error()

set theError = RemoteScript.Error
WScript.Echo "An Error Occurred at Line " _
& CLng(theError.Line) _
& ", Char " _
& theError.Character _
& vbcrlf _
& hex(theError.Number) _
& vbcrlf _
& theError.Description _
& ""
WScript.Quit -1

end function

</script>
</job>

</package>

Credit: Michael Harris - 3/18/2001.