[VBS] Recherche d'un compte d'ordinateur dans Active Directory

Bonjour,

dans la rubrique "How Can I Find and Move an Active Directory Computer Account?" du script center tu pourras t'inspirer de la partie "find" :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
' Partie Find
 
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 ADsPath FROM 'LDAP://dc=fabrikam,dc=com' WHERE objectCategory='computer' " & _
        "AND name='atl-ws-01'"
Set objRecordSet = objCommand.Execute
 
'Partie move 
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
    strADsPath = objRecordSet.Fields("ADsPath").Value
    Set objOU = GetObject("LDAP://OU=Research,DC=fabrikam,DC=com")
    intReturn = objOU.MoveHere(strADsPath, vbNullString)
    objRecordSet.MoveNext
Loop

Au cas ou j'attire ton attention sur :

Code:

1
2
 
Const ADS_SCOPE_SUBTREE = 2

C'est cette ligne qui te dit va voir dans toutes les OU de l'AD.
Si ca ne va pas, précise un peu plus ta demande.

A++