Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Active Directory - alle EMailadressen in Datei ausgeben

Mitglied: Breede

Breede (Level 1) - Jetzt verbinden

30.11.2007, aktualisiert 13.12.2007, 7885 Aufrufe, 2 Kommentare

Hi,

aufgrund der Komplexität habe ich die Umsetzung angepasst.

Es geht nun darum alle Mailadressen der Domäne, also von Benutzern, Gruppen etc. auszulesen und in eine Datei zu schreiben (wenn möglich nur bis zum @ Zeichen).

Das auslesen des Namens und der DN funktioniert auch, Problem hier ist nur das, sobald ich bei "Do Until" "Mail" ausgeben möchte (also auch die Mailadresse) sagt er:

Error: Type mismatch: 'WriteLine'
Code: 800A000D
Sorce: Microsoft VBScript runtime error

Hier der Code:

Const ADS_SCOPE_SUBTREE = 5
Dim fso, file
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.CreateTextFile("n:\ausgabe.txt", True)

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection

objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE

objCommand.CommandText = "SELECT distinguishedname,mail,name FROM 'LDAP://DC=www,DC=domain,DC=de'WHERE objectCategory='user'" & _
"OR objectCategory='group'"

Set objRecordSet = objCommand.Execute

Do Until objRecordSet.EOF
file.WriteLine(objRecordSet.Fields("distinguishedname"))
file.WriteLine(objRecordSet.Fields("mail"))
file.WriteLine(objRecordSet.Fields("name"))
objRecordSet.MoveNext
Loop
Mitglied: 51705
30.11.2007 um 20:33 Uhr
Hallo Breede,

ich habe leider nur den Tip, die dem jeweiligen System bekannten SMTP-Adressen auszulesen, vielleicht hilft es trotzdem:

http://www.msexchangefaq.de/code/smtplist.htm

Grüße, Steffen
Bitte warten ..
Mitglied: Breede
13.12.2007 um 11:24 Uhr
Hier die Lösung:

Noch etwas zur Erklärung.

Erst hole ich alle Attribute aus dem LDAP die eine Mail Adresse enthalten können.

Mailadresse : mail
Weitere Mailadressen: proxyAddresses
Mailbox: othermailbox

Diese gebe ich dann in eine Datei aus, da aber viele Objekte die eine Mail Adresse haben könnten keine haben, entstehen viele Leerzeilen. Diese werden mit der Prozedur "Leerzeilen" entfernt.

Um das ganze lesbarer zu machen, habe ich zusätzlich alles ab dem @ mit dem Replace entfernt.

Nun liegen alle Mailadressen der Domäne, alphabetisch sortiert und ohne Leerzeilen in einer Datei.

01.
''''' Konstanten ''''' 
02.
 
03.
Const ADS_SCOPE_SUBTREE = 5 
04.
 
05.
''''' Variablen ''''' 
06.
 
07.
Dim fso 
08.
Dim strRecordsetInhalt 
09.
Dim File_SAC_Input 
10.
Dim File_SAC 
11.
 
12.
Set fso             = CreateObject("Scripting.FileSystemObject") 
13.
Set File_SAC_Input  = fso.CreateTextFile("N:\SAC_Input.txt", True) 
14.
Set File_SAC        = fso.CreateTextFile("N:\SAC.txt", True) 
15.
 
16.
''''' Verbindung zum Active Directory ''''' 
17.
 
18.
Set objConnection               = CreateObject("ADODB.Connection") 
19.
Set objCommand                  = CreateObject("ADODB.Command") 
20.
objConnection.Provider          = "ADsDSOObject" 
21.
objConnection.Open("Active Directory Provider") 
22.
 
23.
Set objCommand.ActiveConnection      = objConnection 
24.
objCommand.Properties("Page Size")   = 1000 
25.
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE 
26.
 
27.
''''' Abfrage und Ausgabe per SQL über LDAP ''''' 
28.
 
29.
objCommand.CommandText =	" SELECT mail, othermailbox, proxyAddresses " & _ 
30.
			" FROM 'LDAP://DC=www,DC=xxx,DC=de' " & _ 
31.
			" WHERE mail <> '@' " & _ 
32.
			" ORDER BY mail " 
33.
' Ohne WHERE konnte kein ORDER BY angesprochen werden 
34.
 
35.
Set objRecordSet = objCommand.Execute 
36.
 
37.
Do Until objRecordSet.EOF 
38.
	strRecordsetInhalt = Trim(objRecordSet.GetString(2, , VbCrLf,VbCrLf,"")) 
39.
	strRecordsetInhalt = UCase(strRecordsetInhalt) 
40.
	strRecordsetInhalt = Replace(strRecordsetInhalt,"@WWW.XXX.DE","") 
41.
	File_SAC_Input.WriteLine(strRecordsetInhalt) 
42.
	If not objRecordSet.EOF Or objRecordSet.BOF Then 
43.
		objRecordSet.MoveNext  
44.
		' MoveNext bei objRecordSet.EOF verursacht einen Fehler 
45.
	End If 
46.
Loop 
47.
 
48.
File_SAC_Input.Close 
49.
Call Leerzeichen 
50.
 
51.
''''' Sub Routinen ''''' 
52.
 
53.
Sub Leerzeichen 
54.
 
55.
''''' Alle Leerzeilen werden entfernt 
56.
''''' 
57.
''''' Quelle mit Leerzeilen: "Open_SAC_Input" 
58.
''''' Ziel ohne Leerzeilen : "File_SAC" 
59.
 
60.
''''' Variablen ''''' 
61.
 
62.
Dim sLine 
63.
 
64.
Set Open_SAC_Input  = fso.OpenTextFile("N:\SAC_Input.txt", 1, True) 
65.
 
66.
''''' Entfernen der Leerzeilen ''''' 
67.
 
68.
Do Until Open_SAC_Input.AtEndOfStream 
69.
	sLine = Open_SAC_Input.ReadLine 
70.
	If Trim(sLine) <> "" Then 
71.
		File_SAC.WriteLine(sLine) 
72.
	End If 
73.
Loop 
74.
File_SAC.Close 
75.
 
76.
End Sub
Bitte warten ..
Ähnliche Inhalte
Microsoft

Powershell Active Directory: Nur einen Benutzername ausgeben!

gelöst Frage von gabeBUMicrosoft3 Kommentare

Hallo Zusammen Mein Script wächst und wächst. Ich kann jetzt schon Benutzer per CSV hinzufügen mit richtigen Passwort und ...

Windows Userverwaltung

Mit Powershell mehrere Active Directory Gruppen auslesen und die Gruppenmember in Datei ausgeben

gelöst Frage von RMW-HomeWindows Userverwaltung1 Kommentar

Servus, ich fummele gerade an einer Aufgabe: 1. Finde alle Gruppen einer Active Directory Domäne welche einen bestimmten Namensbestandteil ...

Batch & Shell

Powershell - Excel-Datei in Active Directory schreiben

Frage von ScriptNewbieBatch & Shell2 Kommentare

Hallo liebe Community Scripter, ich bin neu hier im Forum und habe auch leider keinen Ansatz zu meinem Problem ...

Batch & Shell

Mitgliedschaft eines Users in Active-Directory-Gruppen ausgeben und exportieren zu einer .csv

gelöst Frage von ArseneBatch & Shell3 Kommentare

Guten Tag an alle, ich möchte gern alle Users von Active Directory auslesen. Bei jede User soll die dazugehörige ...

Neue Wissensbeiträge
Internet

Datendealing im WWW Tracking Methoden immer brutaler

Information von sabines vor 3 StundenInternet

Interessanter Artikel zum Thema Tracking im WWW und die immer "besseren" Methoden des Trackings. Professor Arvind Narayanan (Princeton-Universität) betreibt ...

Erkennung und -Abwehr

Ups: Einfaches Nullzeichen hebelte den Anti-Malware-Schutzt in Windows 10 aus

Information von kgborn vor 15 StundenErkennung und -Abwehr

Windows 10 ist das sicherste Windows aller Zeiten, wie Microsoft betont. Insidern ist aber klar, das es da Lücken, ...

Windows 10

Windows 10 on ARM: von Microsoft entfernte Info - Klartext, was nicht geht

Information von kgborn vor 18 StundenWindows 10

Windows 10 on ARM ist ja eine neue Variante, die Microsoft im Verbund mit Geräteherstellern am Markt etablieren will. ...

Microsoft
TV-Tipp: Das Microsoft-Dilemma
Information von kgborn vor 18 StundenMicrosoft11 Kommentare

Aktuell gibt es in Behörden und in Firmen eine fatale Abhängigkeit von Microsoft und dessen Produkten. Planlos agieren die ...

Heiß diskutierte Inhalte
Windows 10
Windows 10 (1709) Tastur und Maus wieder einschalten?
Frage von LochkartenstanzerWindows 1026 Kommentare

Moin, Ich habe von einem Kunden einen Win10-Rechner bekommen, bei dem weder Tastatur noch Maus geht. Die Hardware funktioniert ...

Server
Route-Befehl Unterstützung (unter CMD)
gelöst Frage von FKRR56Server19 Kommentare

Guten Tag , i.M. habe ich Probleme über den CMD-Route-Befehl ein Routing auf einen entfernten Server zuzulassen. Der Server ...

Firewall
RB2011 Firewall Rule eine bestimmte Mac oder IP Adresse nicht zu blockieren
Frage von lightmanFirewall15 Kommentare

Hallo liebes Forum mit ihren Spezialisten. Ich habe meine Firewall so konfiguriert das kein Endgerät ohne meine Speziellen Erlaubnis ...

Humor (lol)
Was könnte man mit einem Server machen? Idee gesucht
Frage von 2SeitenHumor (lol)15 Kommentare

Hey Zusammen Ich habe einen alten HP G2 Rackserver zu Hause rumliegen. 28GB Ram, 1xAMD Prozi mit etwa 2GHz. ...