У меня есть 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