Цитата xctr:
|
Нужно запустить программу bat файлом и через 13минут эту программу тем же bat файлом перезапустить автоматически »
|
Вот VB скрипт
Код:
strComputer = "."
Set objProcess = GetObject("winmgmts:root\cimv2:Win32_Process")
objProcess.Create "Notepad.exe", , , intProcessID
WScript.Sleep 780000 'ждем 13 минут
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where ProcessId = " & intProcessID)
For Each objProc In colProcessList
objProc.Terminate()
Next
objProcess.Create "Notepad.exe"
