Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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

Frage Entwicklung VB for Applications

Mitglied: Breede

Breede (Level 1) - Jetzt verbinden

30.11.2007, aktualisiert 13.12.2007, 7598 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 ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(8)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Windows Server
gelöst Active Directory CA öffentlich vertrauenswürdig machen, geht das? (2)

Frage von DeathangelCH zum Thema Windows Server ...

Windows Server
gelöst Active Directory File Extension - Associated Program (11)

Frage von adm2015 zum Thema Windows Server ...

Windows 8
gelöst Active Directory Default User.v2 Profile - Windows 8.1 Apps Error (4)

Frage von adm2015 zum Thema Windows 8 ...

Windows Server
Active Directory sinnvoll für kleine Firma (15)

Frage von WolfPeano zum Thema Windows Server ...

Heiß diskutierte Inhalte
Microsoft
Ordner mit LW-Buchstaben versehen und benennen (20)

Frage von Xaero1982 zum Thema Microsoft ...

Outlook & Mail
gelöst Outlook 2010 findet ost datei nicht (19)

Frage von Floh21 zum Thema Outlook & Mail ...

Netzwerkmanagement
gelöst Anregungen, kleiner Betrieb, IT-Umgebung (18)

Frage von Unwichtig zum Thema Netzwerkmanagement ...