Extraire les FAXID de l'active directory

Résolu/Fermé
yvesg4 Messages postés 33 Date d'inscription samedi 9 février 2008 Statut Membre Dernière intervention 11 mai 2008 - 4 mars 2008 à 11:01
yvesg4 Messages postés 33 Date d'inscription samedi 9 février 2008 Statut Membre Dernière intervention 11 mai 2008 - 12 mars 2008 à 14:56
Bonjour,
Je suis sur un domaine Windows 2003 et Exchange 2003 je souhaite avec DAMEWARE NT extraire les FAXID de chaque utilisateur (extraire la valeur FAXID de longlet "adresse de messagerie" des propriétés utilisateurs active directory)
Merci pour votre aide.

2 réponses

yvesg4 Messages postés 33 Date d'inscription samedi 9 février 2008 Statut Membre Dernière intervention 11 mai 2008 6
12 mars 2008 à 14:56
Mechi à touch pour vote éde!

Je vous donne la solution "script vbs"

'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
Salut Yvesg4, pour ça tu peux demander à XP de t'aider...
Merchi
0