RemotePC = "<PC Name>"
RemoteScript = "<Path to local script>"
Dim Controller, RemoteScript
Set Controller = wScript.CreateObject("WSHController")
Set RemoteScript = Controller.createscript(RemoteScript, RemotePC)
WScript.ConnectObject RemoteScript, "remote_"
RemoteScript.Execute
do while RemoteScript.Status <> 2
WScript.Sleep 100
loop