http://motevich.blogspot.com/2007/11/execute-program-on-remote-computer.html
strComputer = "."
strCommand = "notepad.exe"
Const INTERVAL = "n"
Const MINUTES = 1
Set objWMIService = GetObject ("winmgmts: \" & strComputer & "\ root \ cimv2")
Установите objScheduledJob = objWMIService.Get ("Win32_ScheduledJob")
Set objSWbemDateTime = CreateObject ("WbemScripting.SWbemDateTime")
objSWbemDateTime.SetVarDate (DateAdd (INTERVAL, MINUTES, Now ()))
errReturn = objScheduledJob.Create (strCommand, objSWbemDateTime.Value, False, 0, 0, True, intJobID)
Если errReturn = 0, то
Wscript.Echo "notepad.exe запущен с идентификатором процесса:" & intJobID
еще
Не удалось запустить Wscript.Echo "notepad.exe из-за ошибки:" & errReturn
Конец, если
String strComputer = "." означает «локальный компьютер»,
На удаленном компьютере strComputer = "имя_сервера"