要检测正在运行的程序，可以使用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信息。
