Need VB Script to check and see if a process is running.

[RAR]

I need a simple VB Script that will check if a certain process is running. For instance, if notepad.exe is running it will be in the task manager processes. How can I have a script check to see if it is running?

RAR

[DVNT1]

Do you need to check all computers in a Domain, a single computer on the network, or just the local computer?

A one time check or periodically check?

[DVNT1]

for a local computer, here is one way:

set service = GetObject ("winmgmts:")

for each Process in Service.InstancesOf ("Win32_Process")
	If Process.Name = "notepad.exe" then
		wscript.echo "Notepad running"
		wscript.quit
	End If
next
wscript.echo "notepad not running"

[RAR]

Just the local computer. And it can be just a one-time check.

[RAR]

Dang, that was fast. That's pretty much what I needed. Thanks! I will test it out.

[tnoonan]

strComputer = Inputbox("Computer to connect to?")
'strProcess = Inputbox("Process to Kill?")
'strComputer = "iscomputer"
strProcess = "notepad.exe"
Set wbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set wbemServices = wbemLocator.ConnectServer(strComputer)
Set wbemObjectSet = wbemServices.InstancesOf("Win32_Process")
For Each wbemObject In wbemObjectSet
If LCase(wbemObject.Name) = strProcess Then
wscript.echo "notepad is running"
wscript.quit
End if
Next
wscript.echo "notepad is not running"

for remote comuter name or fixed name also for promting for process name or fixed name.

[apd]

I need to parse a list of processes in a text file to run the check, and spit out a non zero exit code if any of the processes listed in the text file are running. Can be a csv file too, though am assuming a .ini with a process listed on each line would be easiest. Any help is greatly appreciated! I have zero VB scripting experience, but the boss doesn't care about that!

I've got this script that checks for a hard coded process, assuming I can build off this...


' List the processes Running on a Computer



strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colProcesses = objWMIService.ExecQuery _
("SELECT * FROM Win32_Process WHERE Name = " & _
"'notepad.exe'")

If colProcesses.Count = 0 Then
Wscript.Echo "No scripts are running."
Else
For Each objProcess in colProcesses
Wscript.Echo objProcess.CommandLine
Next
End If

[apd]

So I've gotten this far, still having an issue with line 68. Any thoughts?!?

(68, 5) SWbemObjectSet: Invalid query

I've verified that it is parsing the lines from a file into an array, its just around the WMI query and the count statement. Any help would be greatly appreciated! Thanks!


'*************************
'** Error Checking Routine
'*************************
Sub ThrowError (Number, Description)
ObjApp = ""
WScript.Echo WScript.ScriptName + " " + CStr(number) + " " + description
NwmScript.Log WScript.ScriptName + " " + CStr(number) + " " + description
WScript.Quit number
End Sub

Sub EchoAndLog ( message )
WScript.Echo message
NwmScript.Log WScript.ScriptName + " - " + message
End Sub

' Parse processes list into array

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("c:\temp\processes.csv", ForReading)

Const ForReading = 1

Dim arrFileLines()
i = 0
Do Until objFile.AtEndOfStream
Redim Preserve arrFileLines(i)
arrFileLines(i) = objFile.ReadLine
i = i + 1
Loop
objFile.Close


' List the processes Running on a Computer
For Each strLine in arrFileLines

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colProcesses = objWMIService.ExecQuery _
("SELECT * FROM Win32_Process WHERE Name =" & strLine &"")
If colProcesses.Count=0 Then
Wscript.Echo "No scripts are running."
End If

Next

[rubenalbania]

I want to check and see if a process is running in a domain PC.

Any idea?

Thank you

[iasuq]

for a local computer, here is one way:

set service = GetObject ("winmgmts:")

for each Process in Service.InstancesOf ("Win32_Process")
	If Process.Name = "notepad.exe" then
		wscript.echo "Notepad running"
		wscript.quit
	End If
next
wscript.echo "notepad not running"

This script does a one time check, what must be added to this script so that it keeps checking 24x7 and echoes every time it sees this process running?