Sub ListComp(strDomain)
REM ====================================
REM Lister les ordinateurs d'un domaine
REM ====================================
Set objCOmmand.ActiveConnection = objConnection
objCommand.CommandText = _
"Select Name, Location from 'LDAP://" & strDomain & "' " & _
"Where objectCategory='computer'"
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
n=n+1
sName = objRecordSet.Fields("Name").Value
If Instr(Lcase(sName), "agfr01") Then
Wscript.Echo sName & " - " & objRecordSet.Fields("Description").Value
End If
objRecordSet.MoveNext
Loop
FinalMsg = FinalMsg & vbcrlf & n & " computers found in " & strDomain
Total=Total+n
End Sub