vbscript проверить процесс
нужно каждые 30мин проверять процесс, если нет запустить файл (например c:\test.exe). такое возможно реализовать, без стороннего софта?
|
нагуглил такой код, не заработал.
Код:
sProcessName = "process.exe"
sComputer = "." ' use "." for local computer
Set oWmi = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & sComputer & "\root\cimv2")
Set oShell = CreateObject("WScript.Shell")
' go into eternal loop
Do
Set colProcessList = oWmi.ExecQuery _
("Select * from Win32_Process Where Name = '" & sProcessName & "'")
If colProcessList.Count = 0 Then
' process is not running
' do the CLFYtest here
If remote server is up Then
oShell.Run "C:\name.exe", 1, False
End If
End If
WScript.Sleep 5 * 60 * 1000 ' wait 5 minutes before trying again
Loop
где ошибка ? |
Цитата:
Цитата Mescaline
такое возможно реализовать, без стороннего софта? »
|
Возможно. Почему каждые 30 минут, и какой именно процесс? |
можно и 40, суть не в этом. (консольная программа часто вылетает, нужно восстанавливать процесс).
в деспетчере задач |
Перефразирую: процесс, который проверяем, и процесс, который запускаем — это одно и то же приложение?
|
Iska, спасибо за попытку помочь. решение найдено. не актуально.
|
Время: 22:31.
© OSzone.net 2001-
