rss
Rechercher : dans
Par : Pertinence Date Nom d'utilisateur
Statut : Résolu

Extraire les FAXID de l'active directory

Posté par yvesg4, le mardi 4 mars 2008 à 11:01:41
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.
Configuration: Windows XP
Internet Explorer 6.0
Répondre à yvesg4  Signaler ce message aux modérateurs Aller au dernier message

1


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
BL69, le jeudi 6 mars 2008 à 09:29:19
Salut Yvesg4, pour ça tu peux demander à XP de t'aider...
Merchi
Répondre à BL69

2


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
 yvesg4, le mercredi 12 mars 2008 à 14:56:40
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
Répondre à yvesg4
Logiciels pertinents trouvés dans les téléchargements
Télécharger UltraVNC 1.0.2UltraVNC - UltraVNC est un programme informatique facile à utiliser capable d'afficher l'écran d'un autre ordinateur (via internet ou...Catégorie: Connexion à distance
Licence: Open Source
Télécharger Extracteur d'icônes 3.1.0.9Extracteur d'icônes - Le programme Extracteur d'Icônes permet de visualiser les fichiers icônes (ICO) du dossier de votre choix, mais aussi de...Catégorie: Librairies (DLL)
Licence: Freeware/gratuit
Télécharger ActiveVirusShield 1.0ActiveVirusShield - Active Virus Shield n'est plus, remplacé par McAfee® VirusScan Plus – Special edition de chez AOL Vous devez créer un...Catégorie: Antivirus
Licence: Freeware/gratuit
Télécharger ActivePerl 5.6.1.629ActivePerl - ActivePerl est un interpréteur Perl gratuit et puissant pour plates formes Microsoft Windows. Il nécessite "Microsoft...Catégorie: Perl
Licence: Open Source
Plus de logiciels gratuits sur « Extraire les FAXID de l'active directory »