ActiveX 组件无法在运行 VBScript 时创建对象

问题描述

我有一个 VBScript，用于检查特定进程是否正在运行。我在安装一个应用程序时出现错误，该应用程序表明该服务已在运行，而实际上并未运行。所以使用这个VBScript。 环境是Windows server 2012 R2。我在 CMD 上运行脚本并收到错误： Microsoft VBScript 运行时错误：ActiveX 组件无法创建对象 我怎么能运行这个脚本？

Const PROCESS_EXE = "abc.exe"

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
If Err.Number = 0 Then
    Set colProcesses = objWMIService.ExecQuery("select * from win32_process")
    For Each objProcess in colProcesses
        If LCase(objProcess.Name) = PROCESS_EXE Then
            blnFound = True 
        End If
    Next

    If blnFound = True Then
        MsgBox PROCESS_EXE + " found"
    Else
        MsgBox PROCESS_EXE + " not found"
    End If
Else
    MsgBox "CheckIfIsRunning(): Error getting WMI object."
End If

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）