Jump to content

Email Adresse von Usern in AD auslesen


Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Empfohlene Beiträge

hab soetwas schon mal benötigt, ich glaube dieses vbs script sollte dir helfen:

 

 

Dim rootDSE, domainObject

Set rootDSE=GetObject("LDAP://RootDSE")

domainContainer = rootDSE.Get("defaultNamingContext")

Set domainObject = GetObject("LDAP://" & domainContainer)

 

Set fs = CreateObject ("Scripting.FileSystemObject")

Set userFile = fs.CreateTextFile ("c:\users.csv")

 

ExportUsers(domainObject)

 

Set oDomain = Nothing

MsgBox "Finished"

WScript.Quit

 

Sub ExportUsers(oObject)

Dim oUser

For Each oUser in oObject

Select Case oUser.Class

Case "user"

If oUser.mail <> "" then

userFile.Write oUser.displayName & ","

for each email in oUser.proxyAddresses

userFile.Write email & ","

next

userFile.WriteLine ""

End if

Case "organizationalUnit" , "container"

If UsersinOU (oUser) then

ExportUsers(oUser)

End if

End select

Next

End Sub

 

Function UsersinOU (oObject)

Dim oUser

UsersinOU = False

for Each oUser in oObject

Select Case oUser.Class

Case "organizationalUnit" , "container"

UsersinOU = UsersinOU(oUser)

Case "user"

UsersinOU = True

 

End select

Next

End Function

Link zu diesem Kommentar
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Schreibe einen Kommentar

Du kannst jetzt antworten und Dich später registrieren. Falls Du bereits ein Mitglied bist, logge Dich jetzt ein.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung jetzt entfernen

  Only 75 emoji are allowed.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor-Fenster leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

×
×
  • Neu erstellen...