要檢測正在運行的程序，可以使用VBScript中的WMI（Windows管理信息）來獲取正在運行的進程列表。以下是一個示例代碼：
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colProcesses = objWMIService.ExecQuery("SELECT * FROM Win32_Process")
For Each objProcess in colProcesses
WScript.Echo "Process Name: " & objProcess.Name
WScript.Echo "Process ID: " & objProcess.ProcessID
Next
這段代碼首先創建一個Win32_Process的WMI查詢，然后遍歷結果集并打印每個進程的名稱和進程ID。
請注意，此代碼需要以管理員權限運行，否則可能無法訪問WMI信息。
