Estou usando um script que checa se um serviço está rodando em uma máquina virtual, porém quero usa-lo para verificar em uma máquina conectada na mesma rede e o erro que tenho é:
" Erro: Permissão negada: 'GetObject'
Código: 800A0046
Origem: Erro de tempo de execução do Microsoft VBScript"
Imagino que seja por falta de permissões para a máquina que desejo acessar, como corrigir? Eu consigo acessar a máquina sem problemas nem ter de fazer login, tenho que inserir permissões para a minha máquina? Se sim, como?
O código que estou usando segue abaixo:
' *****************************************************************
' This function checks if a process is running on a (remote) computer
' Requires WMI
' *****************************************************************
Function IsProcessRunning( strServer, strProcess )
Dim Process, strObject
IsProcessRunning = False
strObject = "winmgmts://" & strServer
For Each Process in GetObject( strObject ).InstancesOf( "win32_process" )
If UCase( Process.name ) = UCase( strProcess ) Then
IsProcessRunning = True
Exit Function
End If
Next
End Function
' ****************************************************************************
' Main
' ****************************************************************************
Dim strComputer, strProcess
Do
strProcess = inputbox( "Please enter the name of the process (for instance: explorer.exe)", "Input" )
Loop until strProcess <> ""
Do
strComputer = inputbox( "Please enter the computer name", "Input" )
Loop until strComputer <> ""
If( IsProcessRunning( strComputer, strProcess ) = True ) Then
WScript.Echo "Process " & strProcess & " is running on computer " & strComputer
Else
WScript.Echo "Process " & strProcess & " is NOT running on computer " & strComputer
End If
