創(chuàng)建 WshRemote 對(duì)象。
object.CreateScript(CommandLine,[MachineName])
CreateScript 方法返回 WshRemote 對(duì)象實(shí)例的句柄。腳本名中的路徑部分未必是本地腳本 — 它可以引用網(wǎng)絡(luò)共享上的腳本。這使您能坐在一個(gè)計(jì)算機(jī)系統(tǒng)旁，從另一個(gè)計(jì)算機(jī)系統(tǒng)檢索腳本，然后在第三個(gè)計(jì)算機(jī)系統(tǒng)上運(yùn)行它。如果未提供計(jì)算機(jī)名，遠(yuǎn)程腳本對(duì)象將在控制器計(jì)算機(jī)系統(tǒng)上運(yùn)行（這是默認(rèn)設(shè)置）。如果提供了計(jì)算機(jī)名，則遠(yuǎn)程腳本對(duì)象將運(yùn)行于命名計(jì)算機(jī)系統(tǒng)之上。CreateScript 方法建立與遠(yuǎn)程計(jì)算機(jī)系統(tǒng)之間的連接，并對(duì)其進(jìn)行設(shè)置以運(yùn)行腳本，但是在您調(diào)用 WshRemote 對(duì)象的 Execute 方法之前，實(shí)際上不會(huì)啟動(dòng)腳本。
下面的示例演示 WshController 對(duì)象的 CreateScript 方法如何用于創(chuàng)建 WshRemote 對(duì)象（遠(yuǎn)程腳本的實(shí)例）。
Dim Controller, RemoteScript
Set Controller = WScript.CreateObject("WSHController")
Set RemoteScript = Controller.CreateScript("test.js", "remoteserver")
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
var Controller = WScript.CreateObject("WSHController");
var RemoteScript = Controller.CreateScript("test.js", "remoteserver");
WScript.ConnectObject(RemoteScript, "remote_");
RemoteScript.Execute();
while (RemoteScript.Status != 2) {
WScript.Sleep(100);
}
WScript.DisconnectObject(RemoteScript);
function remote_Error()
{
var theError = RemoteScript.Error;
WScript.Echo("Error " + theError.Number + " - Line: " + theError.Line + ", Char: " + theError.Character + "\nDescription: " + theError.Description);
WScript.Quit(-1);
}
CreateObject 方法 | CreateScript 方法 | WshRemote 對(duì)象 | Execute 方法