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
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
A voir également:
- Extraire les FAXID de l'active directory
- Extraire video youtube - Guide
- Téléchargez cette archive (dossier compressé). en extraire tous les fichiers dans un dossier local. quel fichier contient l’expression trouverpix ? ✓ - Forum Windows
- Extraire musique youtube - Guide
- Extraire son video - Guide
- Excel extraire chaine de caractère après un caractère ✓ - Forum Excel
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
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
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