Ajout dans un script l'état d'un compte dans l'AD

Version imprimable

09/08/2012, 14h10
renowep

Ajout dans un script l'état d'un compte dans l'AD

Bonjour,

J'utilise le script ci-dessous (Récupère les infos dans l'AD) que j'ai récupéré et souhaiterais ajouter à ce script l'état du compte (actif ou inactif).
J'ai essayé de le bidouiller pour ajouter à mon fichier de sortie cette information là, mais je n'y arrive pas.
Merci de vos réponses.

strContainer = "CN=Users,DC=dm,DC=toto"
strName = "Guest"
strListMemberOf = ""
On error resume next
Const ADS_SCOPE_SUBTREE = 2
Set objFSO = CreateObject("Scripting.FileSystemObject")

strDomain = "LDAP://DC=dm,DC=toto"
strUser="Hostname;Description;AdsPath;Membre de"& vbCrLf

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, AdsPath from '"& strDomain &"' " _
&"WHERE objectCategory='user'"
Set objRecordSet = objCommand.Execute

objRecordSet.MoveFirst
Do Until objRecordSet.EOF
strChemin = objRecordSet.Fields("AdsPath").Value
Set objItem = GetObject(strChemin)

strdescription = objItem.Get("description")
If Not IsEmpty(strdescription) Then Description = strdescription Else Description = "" End If
strmemberOf = objItem.GetEx("memberOf")
For Each Item in strmemberOf
strListMemberOf = strListMemberOf & Item & ";"
Next
strUser = strUser & objRecordSet.Fields("Name").Value & ";" _
& Description & ";" _
& objRecordSet.Fields("AdsPath").Value & ";" _
& "" & strListMemberOf & "" & ";" _
& VbCrLf
objRecordSet.MoveNext
strListMemberOf = ""
Loop

'Création du fichier de log dans le répertoire désigné par l'utilisateur avec le nom par défaut
Set objFile = objFSO.CreateTextFile("D:\_ListeUserADDM.csv")
objFile.WriteLine StrUser
objFile.Close

MsgBox ("Fini, le fichier se trouve : D:\_ListeUserADDM.csv")

Hello,

Un début de piste :

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
30
31
32
33
34
35
36
37
38
39
   Dim LDAP As New DirectoryEntry("LDAP://tonLDAP")
            Dim searcher As DirectorySearcher = New DirectorySearcher(LDAP)
            searcher.PropertiesToLoad.Add("cn")
            searcher.PropertiesToLoad.Add("givenname")
            searcher.PropertiesToLoad.Add("sn")
            searcher.PropertiesToLoad.Add("telephoneNumber")
            searcher.PropertiesToLoad.Add("mail")
            searcher.PropertiesToLoad.Add("physicalDeliveryOfficeName")
            searcher.PropertiesToLoad.Add("SAMAccountName")
            searcher.PropertiesToLoad.Add("Description")
            searcher.PropertiesToLoad.Add("department")
            searcher.PropertiesToLoad.Add("Company")
            searcher.PropertiesToLoad.Add("displayName")
            searcher.PropertiesToLoad.Add("l")
            searcher.PropertiesToLoad.Add("name")
            searcher.PropertiesToLoad.Add("userPrincipalName")
            searcher.PropertiesToLoad.Add("mobile")
            searcher.PropertiesToLoad.Add("extensionAttribute2")
            searcher.PropertiesToLoad.Add("co")
            searcher.PropertiesToLoad.Add("userAccountControl")
 
            searcher.Filter = "(&(objectCategory=user)"
 
            If DDLUser.SelectedValue = "" Then
                mpeDualLoginAtempt.Show()
                Exit Sub
            End If
            searcher.Filter = searcher.Filter & "(displayName=" & DDLUser.SelectedValue & ")"
 
            'search only active account
            searcher.Filter = searcher.Filter & "(!userAccountControl:1.2.840.113556.1.4.803:=2)" & ")"
 
 
            Dim results As System.DirectoryServices.SearchResultCollection
            Try
                results = searcher.FindAll()
            Catch ex As Exception
                Exit Sub
            End Try

La ligne

Code:

searcher.Filter = searcher.Filter & "(!userAccountControl:1.2.840.113556.1.4.803:=2)" & ")"

permet de ne retourner que les comptes actifs.

Cordialement.

DeWaRs

09/08/2012, 15h42
renowep

En fait mes connaissances étant assez limité, je voulais surtout me baser sur le code que j'ai fourni et juste d'ajouter le status du compte car il me permet d'extraire aussi le résultat dans un fichier texte.
En partant d'une autre base je crains de ne plus réussir à faire ce ce que je veux.