REM ===============================
REM Fichier : export_users_AD.vbs
REM Desc : export liste utilisateurs
REM ===============================
'Global variables
Dim oContainer
Dim OutPutFile
Dim FileSystem
'Initialize global variables
Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject")
Set OutPutFile = FileSystem.CreateTextFile("list_users_ms.txt", True)
Set oContainer=GetObject("LDAP://DC=microsoft,DC=com")
OutPutFile.WriteLine "Department|Name|Phone|Fax|Mail|bureau"
'Enumerate Container
EnumerateUsers oContainer
'Clean up
OutPutFile.Close
'Heading columns
Set FileSystem = Nothing
Set oContainer = Nothing
WScript.Echo "Finished"
WScript.Quit(0)
Sub EnumerateUsers(oCont)
Dim u
For Each u In oCont
Select Case LCase(u.Class)
Case "user"
s=replace(ocont.name,"OU=", "") & "|"
'need to do this because u.name would get back the Relative Distinguished name (i.e. CN=Jo Brown)
If Not IsEmpty(u.name) Then s=s & u.Get ("name") & "|" Else s=s & "|"
If Not IsEmpty(u.telephoneNumber) Then s=s & u.telephoneNumber & "|" Else s=s & "|"
If Not IsEmpty(u.facsimileTelephoneNumber) Then s=s & u.facsimileTelephoneNumber & "|" Else s=s & "|"
If Not IsEmpty(u.mail) Then s=s & u.mail & "|" Else s=s & "|"
If Not IsEmpty(u.physicalDeliveryOfficeName) Then s=s & u.physicalDeliveryOfficeName & "|" Else s=s & "|"
'Line Complete
OutPutFile.WriteLine s
Case "organizationalunit" , "container"
EnumerateUsers u
End Select
Next
End Sub