Jump to content

Doppelt vergebene Email-Adresse

WSUSPraxis

Von WSUSPraxis
in Windows Server Forum

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

Empfohlene Beiträge

WSUSPraxis Grand Master

WSUSPraxis   48

Geschrieben
Geschrieben

Bis jetzt war ich der meinung das ich mit:

 

csvde -f ausgabe.csv -r (objectClass=User) -l proxyAddresses oder "objectClass=publicfolder" oder "objectClass=group"

 

alle E-Mailaddresen einer Domaine auslesen kann ? Leider wirft die *.csv nicht wirklich E-Mailadressen aus sondern eigentlich alle Domaineobjekte ?

 

 

Was mache ich in der Abfrage falsch ?

 

 

Oder gibt es ein anderen sinnvollen Weg alle(wirklich alle) E-Mailadressen angezeigt zu bekommen ?

WSUSPraxis Grand Master

WSUSPraxis   48

Geschrieben
  • Autor
Geschrieben

Also seit grad kann ich die Seite auch wieder erreichen !

 

Ich habe es so gemacht wie Günther es auf seiner Seite beschrieben hat ?

Aber irgendwie bekomme ich immer Ausgabefehler.......

 

'''''''''''''''''''''''''''''''''''''''''''''''''''''

' AD-Mailadressen_anzeigen.vbs

' Beschreibung

'

' Version: 1.1a

' Datum: 21.04.2005/23.08.2005

' Autor: Nils Kaczenski (Vorname at Nachname .de)

' Letzte Änderungen:

'

' Nils Kaczenski stellt dieses Skript ohne jede

' Gewährleistung zur Verfügung.

' Die Verwendung geschieht auf eigene Gefahr.

'

'''''''''''''''''''''''''''''''''''''''''''''''''''''

 

Option Explicit

Dim strMail '

Dim arrMember '

Dim arrObjectClass '

Dim arrProxyAddresses '

Dim i '

Dim objConn '

Dim objExplorer '

Dim objRSAD '

Dim objRSlokal '

Dim strAusgabe '

Dim strConn '

Dim strMember '

Dim strObjectClass '

Dim strSQL '

Dim objRootDim testfirma.local

Set objConn = CreateObject("ADODB.Connection")

Set objRSlokal = CreateObject("ADODB.Recordset")

 

' Domänenzugriff ...

set objRoot = GetObject("LDAP://rootDSE")

strDomain = objRoot.Get("DefaultNamingContext")

 

' Datenbankzugriff ...

strConn = "Provider=ADsDSOObject;"

objConn.Open strConn

 

' Zugriff auf die gesamte Tabelle

strSQL = "SELECT name,mailNickname,mail,proxyAddresses,member,objectClass " _

& "FROM 'LDAP://" & strDomain & "' WHERE mailNickname='*'"

Set objRSAD = objConn.Execute(strSQL)

 

' lokales Recordset zur Anzeige definieren

objRSlokal.Fields.Append "Mailadresse", 202, 255

objRSlokal.Fields.Append "Name", 202, 255

objRSlokal.Fields.Append "Alias", 202, 255

objRSlokal.Fields.Append "Typ", 202, 255

objRSlokal.Fields.Append "Mitglieder", 202, 16384

 

objRSlokal.Open

 

Do Until objRSAD.EOF

arrProxyAddresses = objRSAD("proxyAddresses")

strMail = objRSAD("mail")

If Not IsNull(objRSAD("member")) Then

arrMember = objRSAD("member")

strMember = Join(arrMember, "<br>")

Else

strMember = ""

End If

arrObjectClass = objRSAD("objectClass")

strObjectClass = arrObjectClass(UBound(arrObjectClass))

For i=0 To UBound(arrProxyAddresses)

If LCase(Left(arrProxyAddresses(i),5)) = "smtp:" Then

' Neuen Datensatz lokal einfügen

objRSlokal.AddNew

objRSlokal("Name") = objRSAD("name")

objRSlokal("Alias") = objRSAD("mailNickname")

objRSlokal("Typ") = strObjectClass

objRSlokal("Mailadresse") = Mid(arrProxyAddresses(i),6)

objRSlokal("Mitglieder") = strMember

objRSlokal.Update

End If

Next

objRSAD.MoveNext

Loop

objRSlokal.Sort="Mailadresse"

objRSlokal.MoveFirst

strAusgabe = objRSlokal.GetString(2, -1, "</TD><TD>", "</TD></TR>" _

& vbCrLf & "<TR><TD>", " ")

strAusgabe = "<HTML><BODY style=""font-family:sans-serif;"">" _

& "<TABLE border=""1""><TR><TD>" _

& strAusgabe & "</TD></TR></TABLE></BODY></HTML>"

 

Set objExplorer = CreateObject("InternetExplorer.Application")

objExplorer.Navigate "about:blank"

objExplorer.ToolBar = 0

objExplorer.StatusBar = 0

objExplorer.Width=500

objExplorer.Height = 400

objExplorer.Left = 0

objExplorer.Top = 0

objExplorer.Visible = 1

objExplorer.document.writeln(strAusgabe)

 

 

Leider bin ich nicht so der .vbs Scripter und weiß nicht genau wo ich meine Domaine noch einsetzen muss ?

WSUSPraxis Grand Master

WSUSPraxis   48

Geschrieben
  • Autor
Geschrieben

'''''''''''''''''''''''''''''''''''''''''''''''''''''

' AD-Mailadressen_suchen.vbs

' Beschreibung

'

' Version: 1.1a

' Datum: 27.04.2005/23.8.2005

' Autor: Nils Kaczenski (Vorname at Nachname .de)

' Letzte Änderungen:

'

' Nils Kaczenski stellt dieses Skript ohne jede

' Gewährleistung zur Verfügung.

' Die Verwendung geschieht auf eigene Gefahr.

'

'''''''''''''''''''''''''''''''''''''''''''''''''''''

 

Option Explicit

Dim strSuchstring '

Dim strMail '

Dim arrMember '

Dim arrObjectClass '

Dim arrProxyAddresses '

Dim i '

Dim objConn '

Dim objExplorer '

Dim objRSAD '

Dim objRSlokal '

Dim strAusgabe '

Dim strConn '

Dim strMember '

Dim strObjectClass '

Dim strSQL 'Dim objRootDim strDomain

Set objConn = CreateObject("ADODB.Connection")

Set objRSlokal = CreateObject("ADODB.Recordset")

 

strSuchstring = InputBox("Wonach wird in der Mailadresse gesucht?", _

"Mailadresse suchen")

' Domänenzugriff ...

set objRoot = GetObject("LDAP://rootDSE")

strDomain = objRoot.Get("DefaultNamingContext")

 

' Datenbankzugriff ...

strConn = "Provider=ADsDSOObject;"

objConn.Open strConn

 

' Zugriff auf die gesamte Tabelle

strSQL = "SELECT name,mailNickname,mail,proxyAddresses,member,objectClass " _

& "FROM 'LDAP://" & strDomain & "' WHERE proxyAddresses='*" _

& strSuchstring & "*'"

Set objRSAD = objConn.Execute(strSQL)

 

' lokales Recordset zur Anzeige definieren

objRSlokal.Fields.Append "Mailadresse", 202, 255

objRSlokal.Fields.Append "Name", 202, 255

objRSlokal.Fields.Append "Alias", 202, 255

objRSlokal.Fields.Append "Typ", 202, 255

objRSlokal.Fields.Append "Mitglieder", 202, 16384

 

objRSlokal.Open

 

Do Until objRSAD.EOF

arrProxyAddresses = objRSAD("proxyAddresses")

strMail = objRSAD("mail")

If Not IsNull(objRSAD("member")) Then

arrMember = objRSAD("member")

strMember = Join(arrMember, "<br>")

Else

strMember = ""

End If

arrObjectClass = objRSAD("objectClass")

strObjectClass = arrObjectClass(UBound(arrObjectClass))

For i=0 To UBound(arrProxyAddresses)

If (InStr(LCase(arrProxyAddresses(i)), LCase(strSuchstring)) <> 0 _

AND LCase(Left(arrProxyAddresses(i),5)) = "smtp:") Then

' Neuen Datensatz lokal einfügen

objRSlokal.AddNew

objRSlokal("Name") = objRSAD("name")

objRSlokal("Alias") = objRSAD("mailNickname")

objRSlokal("Typ") = strObjectClass

objRSlokal("Mailadresse") = Mid(arrProxyAddresses(i),6)

objRSlokal("Mitglieder") = strMember

objRSlokal.Update

End If

Next

objRSAD.MoveNext

Loop

 

If Not objRSlokal.EOF Then

objRSlokal.Sort="Mailadresse"

objRSlokal.MoveFirst

strAusgabe = objRSlokal.GetString(2, -1, "</TD><TD>", "</TD></TR>" _ & vbCrLf & "<TR><TD>", " ")

strAusgabe = "<HTML><BODY style=""font-family:sans-serif;"">" _

& "<H1>Mailadressen mit dem Inhalt " & strSuchstring & "</H1>" _

& "<TABLE border=""1""><TR><TD>" _

& strAusgabe & "</TD></TR></TABLE></BODY></HTML>"

Else

strAusgabe = "<HTML><BODY style=""font-family:sans-serif;"">" _

& "<p>Die Suche nach Mailadressen mit dem Inhalt " _

& strSuchstring & " hatte kein Ergebnis.</p>" _

& "</BODY></HTML>"

End If

 

Set objExplorer = CreateObject("InternetExplorer.Application")

objExplorer.Navigate "about:blank"

objExplorer.ToolBar = 0

objExplorer.StatusBar = 0

objExplorer.Width=500

objExplorer.Height = 400

objExplorer.Left = 0

objExplorer.Top = 0

objExplorer.Visible = 1

objExplorer.document.writeln(strAusgabe)

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

Erstelle ein Benutzerkonto oder melde dich an, um zu kommentieren

Du musst ein Benutzerkonto haben, um einen Kommentar verfassen zu können

Benutzerkonto erstellen

Neues Benutzerkonto für unsere Community erstellen. Es ist einfach!

Neues Benutzerkonto erstellen

Anmelden

Du hast bereits ein Benutzerkonto? Melde dich hier an.

Jetzt anmelden
Zurück zur Übersicht


×
×
  • Neu erstellen...