Extraire les FAXID de l'active directory
Résolu
yvesg4
Messages postés
33
Statut
Membre
-
yvesg4 Messages postés 33 Statut Membre -
yvesg4 Messages postés 33 Statut Membre -
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.
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.
A voir également:
- Extraire les FAXID de l'active directory
- Extraire une video youtube - Guide
- Extraire le son d'une vidéo - Guide
- Directory list & print - Télécharger - Divers Utilitaires
- Extraire image pdf - Guide
- Comment activé - Guide
2 réponses
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
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
