Usuário com melhor resposta
Checar serviço em uma máquina conectada à rede

Pergunta
-
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
Respostas
-
Boa tarde Artur.
Já tentou utilizar o PsService?
Caso não conheça, é uma ferramenta grátis que faz parte do PsTools.Você pode verificar os serviços de outro computador com o comando:
PsService.exe [\\Computer [-u Username [-p Password]]] <cmd> <optns>
Att, Paulo Rocha MCP | MCDST | MCSA Server 2012
- Sugerido como Resposta Fábio JrModerator terça-feira, 17 de junho de 2014 11:38
- Marcado como Resposta Fábio JrModerator sexta-feira, 20 de junho de 2014 23:40
Todas as Respostas
-
Boa tarde Artur.
Já tentou utilizar o PsService?
Caso não conheça, é uma ferramenta grátis que faz parte do PsTools.Você pode verificar os serviços de outro computador com o comando:
PsService.exe [\\Computer [-u Username [-p Password]]] <cmd> <optns>
Att, Paulo Rocha MCP | MCDST | MCSA Server 2012
- Sugerido como Resposta Fábio JrModerator terça-feira, 17 de junho de 2014 11:38
- Marcado como Resposta Fábio JrModerator sexta-feira, 20 de junho de 2014 23:40
-
Dá uma olhada também nas opções de credenciais dentro do próprio script.
Connecting to WMI on a Remote Computer
http://msdn.microsoft.com/en-us/library/aa389290(v=vs.85).aspx
Fábio de Paula Junior