Discussion :

[parker13]

Bonjour,
Je cherche à écrire un script VBS qui verifie la présence ou non d'un compte d'ordinateur dans Active Directory.
Je me suis bien entendu rendu sur le site Microsoft "Script Center", rubrique "Script Repository" , mais malheureusement dans la partie "Active Directory", "Computer Accounts", le script "Search for Specific Computer Accounts" ne répond pas précisément à mon besoin.
Merci de votre aide.
Cordialement

[RadPAT]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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++