none
Checar serviço em uma máquina conectada à rede RRS feed

  • 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


    quarta-feira, 11 de junho de 2014 15:40

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

    quarta-feira, 11 de junho de 2014 16:29

Todas as Respostas