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?
