Controllare se un programma è in esecuzione con VBscript

6

Può essere utile, specialmente in ambito server il dover controllare che un programma sia “aperto” quindi in esecuzione.
Può trattarsi di un .Exe, .Bat utili alla nostra struttura e/o al nostro lavoro.

Per effettuare questo controllo si può utilizzare un VBS come questo in SCHEDULED TASK (esempio con thunderbird.exe) :

set service = GetObject (“winmgmts:”)
for each Process in Service.InstancesOf (“Win32_Process”)
If Process.Name = “thunderbird.exe” then
‘wscript.echo “thunderbird running”
wscript.quit
End If
Next

‘wscript.echo “thunderbird not running”
‘inserire qui script di invio mail
set oS = WScript.CreateObject(“WScript.Shell”)
Set WshShell = WScript.CreateObject(“WScript.Shell”)
Return = WshShell.Run(“c:\thunderbird.exe”)

in questo esempio è inclusa una parte finale che esegue il programma se “non lo trova attivo” ma si può anche optare per un semplice invio e-mail di “avviso”