nlive
« Ответ #1 : 10 Июнь 2012, 10:10:36 »
sPC=\"pc4\"
Set objWMI = GetObject(\"WinMgmts:{impersonationLevel=impersonate}!\\\\\" & sPC & \"\\Root\\CIMV2\")
Set colItems = objWMI.ExecQuery(\"Select * from Win32_OperatingSystem\" )
sCmd=\"schtasks /create /tn \"\"Имя задачи\"\" /tr \"\"\"\"{Путь к задаче}\"\"\"\" /SC weekly /D MON,TUE,WED,THU,FRI /st 13:30:00 /ru {Юзер} /rp {Парооль} > c:\\taskshed.log\"
msgbox sCmd
Set objProcess = objWMI.Get(\"Win32_Process\")
Set objProgram = objProcess.Methods_( _
\"Create\").InParameters.SpawnInstance_
objProgram.CommandLine = sCmd
Set strShell = objWMI.ExecMethod( \"Win32_Process\", \"Create\", objProgram)
« Последнее редактирование: 29 Январь 2021, 22:08:52 от xl2night »

Записан