Extraire des information User d'Active Direct

Fermé
shetan Messages postés 611 Date d'inscription lundi 4 mai 2009 Statut Membre Dernière intervention 19 août 2009 - 17 août 2009 à 18:04
shetan Messages postés 611 Date d'inscription lundi 4 mai 2009 Statut Membre Dernière intervention 19 août 2009 - 19 août 2009 à 09:29
Bonjour,

J'ai besoin d'extraire d'une base ActiveDirectory le displayname, toutes les adresses mail (et non juste la principal) ainsi que les memberof.

j'ai trouvé ce script sur ce site mais je ne sais comment le modifier pour mes besoins :

'Global variables
Dim Container
Dim OutPutFile
Dim FileSystem

'Initialize global variables
Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject")
Set OutPutFile = FileSystem.CreateTextFile("c:\temp\extractAD.xls", True)

'Replace with valid DN of the container you want to enumerate
Set Container=GetObject("LDAP://OU=fr,DC=europe,DC=intranet")

'Enumerate Container
EnumerateUsers Container

'Clean up
OutPutFile.Close
Set FileSystem = Nothing
Set Container = Nothing

'Say Finished when your done
WScript.Echo "Terminé"
WScript.Quit(0)

'List all Users
Sub EnumerateUsers(Cont)
Dim User

'Go through all Users and select them
For Each User In Cont
Select Case LCase(User.Class)

'If you find Users
Case "user"
'Select all proxyAddresses
Dim Alias
If Not IsEmpty(User.proxyAddresses) Then
'OutPutFile.Write User.DisplayName
For Each Alias in User.proxyAddresses
If InStr(1,Alias,"faxid:",1) > 0 Then
OutPutFile.WriteLine User.DisplayName & vbTab & User.sAMAccountName & vbTab & User.mail & vbTab & Replace(Alias,"faxid:","",1,1,1)
End If
Next
End If

Case "organizationalunit" , "container"
EnumerateUsers User

End Select
Next
End Sub

2 réponses

shetan Messages postés 611 Date d'inscription lundi 4 mai 2009 Statut Membre Dernière intervention 19 août 2009 62
18 août 2009 à 12:39
Personne ?
0
shetan Messages postés 611 Date d'inscription lundi 4 mai 2009 Statut Membre Dernière intervention 19 août 2009 62
19 août 2009 à 09:29
Up !
0