Dim objController,objRemote

Const NOTASK=0
Const RUNNING=1
Const FINISHED=2

strScript="\\SERVER01\public\update.vbs"
strComputer=,"DC01"

Call RunRemote(strScript,strComputer)


Sub RunRemote(strScript,strComputer)
On Error Resume Next
Set objController=CreateObject("WSHController")
Set objRemote=objController.CreateScript(strScript,strComputer)
WScript.echo Now & " Executing " & strScript &_
 " remotely on " & strComputer

objRemote.Execute

Do While objRemote.Status = RUNNING
  WScript.Sleep 10000
Loop

WScript.DisconnectObject objRemote

WScript.echo Now & " Task complete."

End Sub

Function Remote_Error()
    Dim objError
    WScript.echo Now & " REMOTE ERROR!"
    Set objError=objRemote.Error
    WScript.echo Now & " Error #"  & Hex(objError.Number)
    WScript.echo Now & " Description:  " & objError.Description
    WScript.echo Now & " Terminating"
   objRemote.Terminate()
End Function