none
Script - Listar computadores na opção EFETUAR LOGON EM RRS feed

  • Pergunta

  • Pessoal,

    Estou precisando de um script para listar de todos os computadores que estão inseridos na opção EFETUAR LOGON ON na propriedade do usuario e inserir esses dados em arquivo TXT.

    Achei esse Script.

    *********************************************************************
    On Error Resume Next

    Const ADS_SCOPE_SUBTREE = 2

    Set objConnection = CreateObject("ADODB.Connection")
    Set objCommand =   CreateObject("ADODB.Command")
    objConnection.Provider = "ADsDSOObject"
    objConnection.Open "Active Directory Provider"
    Set objCommand.ActiveConnection = objConnection

    objCommand.Properties("Page Size") = 1000
    objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE

    objCommand.CommandText = _
        "SELECT Name FROM 'LDAP://dc=dominio,dc=com,dc=br' WHERE objectCategory='user' " & _
            "AND userWorkstations='*maqxp-01*'"
    Set objRecordSet = objCommand.Execute

    objRecordSet.MoveFirst
    Do Until objRecordSet.EOF
        Wscript.Echo objRecordSet.Fields("Name").Value
        objRecordSet.MoveNext
    Loop
    ************************************************************************************
    Tem como fazer ele executar em todos os computadores?

    • Editado Elton Sancho sexta-feira, 21 de agosto de 2009 16:39
    sexta-feira, 21 de agosto de 2009 00:36