Check If a Process Exists in Memory

Parent page: Service Functions – DotNetFactory (QTP, VBScript)

Description

Create an instance of Process object through DotNetFactory – search for local processes by name – return result as boolean.

Note. Name is case-insensitive but no wildcards supported.

Implementation

Public Function SysProcessExists(ByVal sName)
 Dim objSDP
 Dim objSDPArr
 Dim boolRC
 
 Set objSDP = DotNetFactory.CreateInstance("System.Diagnostics.Process", "System")
 Set objSDPArr = objSDP.GetProcessesByName(sName)

 boolRC = CInt(objSDPArr.length) > 0

 Set objSDP = Nothing
 Set objSDPArr = Nothing

 SysProcessExists = boolRC

End Function

Examples

Dim boolRCboolRC = SysProcessExists("winword")
if boolRC Then
  MsgBox("WinWord is running")
End If