none
Erro ao executar um script para pegar Hosts conectado na rede. RRS feed

  • Pergunta

  • Olá Pessoal,  estou com este script abaixo  para localizar Host conectado na Rede, porém  quando executo mostra o erro abaixo.

    OBS: não manjo em vb alias em nenhuma linguagem,  sei que o erro esta na linha 21  porém não sei como corrigir.

    por exemplo na rede no momento que executo o script tem 10 hosts ligadas e só me mostra um host no arquivo gerado  result.txt

    Logged-on user:
    Computer Name: SRV-PDC1
    Logged-on user: CCBSUMARE\geraldo
    Computer Name: CCBSU07

    Const ADS_SCOPE_SUBTREE = 2
    Const ForAppending = 8
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objTextFile = objFSO.OpenTextFile ("result.txt", ForAppending, True)
    Set objConnection = CreateObject("ADODB.Connection")
    Set objCommand =   CreateObject("ADODB.Command")
    objConnection.Provider = "ADsDSOObject"
    objConnection.Open "Active Directory Provider"
    
    Set objCOmmand.ActiveConnection = objConnection
    objCommand.CommandText = _
        "Select Name, Location from 'LDAP://DC=ccbsumare,DC=local' " _
            & "Where objectClass='computer'"  
    objCommand.Properties("Page Size") = 1000
    objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
    Set objRecordSet = objCommand.Execute
    objRecordSet.MoveFirst
    Wscript.Echo "Iniciando a Coleta"
    Do Until objRecordSet.EOF
     strComputer = objRecordSet.Fields("Name").Value
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    
      Set colComputer = objWMIService.ExecQuery ("Select * from Win32_ComputerSystem")
    
      For Each objComputer in colComputer
           objTextFile.WriteLine "Logged-on user: " & objComputer.UserName
       objTextFile.WriteLine "Computer Name: " & objRecordSet.Fields("Name").Value
      Next    
         objRecordSet.MoveNext
    Loop
    Wscript.Echo "Coleta Concluída , verifique o arquivo result.txt"
    objTextFile.Close

    Obrigado



    • Editado jgama sábado, 24 de setembro de 2016 12:18
    sábado, 24 de setembro de 2016 12:16