Liste de tous les comptes d'ordinateurs d'Active Directory

Description

Renvoie le nom et l'emplacement de tous les comptes d'ordinateurs d'Active Directory.

Plateformes prises en charge

Code du script

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.CommandText = _
    "Select Name, Location from 'LDAP://DC=fabrikam,DC=com' " _
        & "Where objectClass='computer'"  
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE 
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst

Do Until objRecordSet.EOF
    Wscript.Echo "Computer Name: " & objRecordSet.Fields("Name").Value
    Wscript.Echo "Location: " & objRecordSet.Fields("Location").Value
    objRecordSet.MoveNext
Loop

Pour obtenir une assistance technique et échanger des informations avec d'autres développeurs, rejoignez la communauté microsoft.public.windows.server.scripting 
sur le serveur de News msnews.microsoft.com. Pour apporter vos commentaires sur les exemples de scripts ou le Guide ou nous faire part des bogues que vous avez pu rencontrer, contactez Microsoft TechNet .

Exclusion de responsabilité

Les exemples de scripts ne sont pris en charge par aucun programme ou service de support standard Microsoft. Ils sont fournis EN L'ÉTAT sans garantie d'aucune sorte. Microsoft exclut, en outre, toute garantie implicite, notamment, mais sans s'y limiter, toute garantie implicite de qualité marchande ou d'adéquation à un usage particulier. Vous reconnaissez assumer tous les risques liés à l'utilisation des exemples de scripts et de la documentation. En aucun cas, Microsoft, ses auteurs ou quiconque impliqué dans la création, la production ou la fourniture des scripts, ne pourront être tenus pour responsables de tout dommage, de quelque nature que ce soit (y compris, mais sans s'y limiter, toute perte de bénéfices, interruption d'activité, perte d'informations commerciales ou toute autre perte pécuniaire), résultant de l'utilisation ou de l'impossibilité d'utiliser les exemples de scripts ou la documentation, même si la société Microsoft a été prévenue de l'éventualité de tels dommages.