Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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

Email-Adresse im Exchange 2003 finden

Frage Microsoft Exchange Server

Mitglied: StefanKittel

StefanKittel (Level 4) - Jetzt verbinden

23.01.2012 um 17:25 Uhr, 3491 Aufrufe, 1 Kommentar

Hallo,

bei einem Kunden von uns finde ich eine Email-Adresse nicht.

Laut csvde bekomme ich diese Information bei (objectClass=publicfolder).
Also ein öffentlicher Ordner. Aber wo und welcher?
Ich habe alle durchgeschaut ohne Erfolg.

"CN=Name,CN=Microsoft Exchange System Objects,DC=Name,DC=local",smtp:Name@domain3.de;smtp:Name2@Name.local;X400:c=DE\;a= \;p=Name\;o=Exchange\;s=Name2\;

Name der Domäne
Name.local

Name der Person (Chef)
Name

Ich habe so dass Gefühl, als ob der Name vom System selber verwendet wird.
Allerdings Name@domain1.de und Name@domain2.de funktionieren prima.

Kann mir bitte Jemand einen Tipp geben wo ich da schauen kann?

Danke

Stefan
Mitglied: goscho
25.01.2012 um 10:30 Uhr
Morgen Stefan,

es gibt ein VBs-Script, mit welchem du auf deinem Exchange-Server alle Mailadressen mit zugehörigen Usern/ÖOs ausgeben kannst.
01.
Option Explicit 
02.
Dim strMail      '  
03.
Dim arrMember              '  
04.
Dim arrObjectClass         '  
05.
Dim arrProxyAddresses      '  
06.
Dim i                      '  
07.
Dim objConn                '  
08.
Dim objExplorer            '  
09.
Dim objRSAD                '  
10.
Dim objRSlokal             '  
11.
Dim strAusgabe             '  
12.
Dim strConn                '  
13.
Dim strMember              '  
14.
Dim strObjectClass         '  
15.
Dim strSQL                 '  
16.
Dim objRoot 
17.
Dim strDomain 
18.
 
19.
Set objConn = CreateObject("ADODB.Connection") 
20.
Set objRSlokal = CreateObject("ADODB.Recordset") 
21.
 
22.
' Domänenzugriff ... 
23.
set objRoot = GetObject("LDAP://rootDSE") 
24.
strDomain = objRoot.Get("DefaultNamingContext") 
25.
 
26.
' Datenbankzugriff ... 
27.
strConn = "Provider=ADsDSOObject;" 
28.
objConn.Open strConn 
29.
 
30.
' Zugriff auf die gesamte Tabelle 
31.
strSQL = "SELECT name,mailNickname,mail,proxyAddresses,member,objectClass " _ 
32.
	& "FROM 'LDAP://"  & strDomain &  "' WHERE mailNickname='*'" 
33.
Set objRSAD = objConn.Execute(strSQL) 
34.
 
35.
' lokales Recordset zur Anzeige definieren 
36.
objRSlokal.Fields.Append "Mailadresse", 202, 255 
37.
objRSlokal.Fields.Append "Name", 202, 255 
38.
objRSlokal.Fields.Append "Alias", 202, 255 
39.
objRSlokal.Fields.Append "Typ", 202, 255 
40.
objRSlokal.Fields.Append "Mitglieder", 202, 16384 
41.
 
42.
objRSlokal.Open 
43.
 
44.
Do Until objRSAD.EOF 
45.
	arrProxyAddresses = objRSAD("proxyAddresses") 
46.
	strMail = objRSAD("mail") 
47.
	If Not IsNull(objRSAD("member")) Then 
48.
		arrMember = objRSAD("member") 
49.
		strMember = Join(arrMember, "<br>") 
50.
	Else 
51.
		strMember = "" 
52.
	End If 
53.
	arrObjectClass = objRSAD("objectClass") 
54.
	strObjectClass = arrObjectClass(UBound(arrObjectClass)) 
55.
		For i=0 To UBound(arrProxyAddresses) 
56.
		If LCase(Left(arrProxyAddresses(i),5)) = "smtp:" Then 
57.
			' Neuen Datensatz lokal einfügen 
58.
			objRSlokal.AddNew 
59.
			objRSlokal("Name") = objRSAD("name") 
60.
			objRSlokal("Alias") = objRSAD("mailNickname") 
61.
			objRSlokal("Typ") = strObjectClass 
62.
			objRSlokal("Mailadresse") = Mid(arrProxyAddresses(i),6) 
63.
			objRSlokal("Mitglieder") = strMember 
64.
			objRSlokal.Update 
65.
		End If 
66.
		Next 
67.
	objRSAD.MoveNext 
68.
Loop 
69.
objRSlokal.Sort="Mailadresse" 
70.
objRSlokal.MoveFirst 
71.
strAusgabe = objRSlokal.GetString(2, -1, "</TD><TD>", "</TD></TR>" _ 
72.
        & vbCrLf & "<TR><TD>", "&nbsp;") 
73.
strAusgabe = "<HTML><BODY style=""font-family:sans-serif;"">" _ 
74.
	& "<TABLE border=""1""><TR><TD>" _ 
75.
	& strAusgabe & "</TD></TR></TABLE></BODY></HTML>" 
76.
 
77.
Set objExplorer = CreateObject("InternetExplorer.Application") 
78.
objExplorer.Navigate "about:blank" 
79.
objExplorer.ToolBar = 0 
80.
objExplorer.StatusBar = 0 
81.
objExplorer.Width=500 
82.
objExplorer.Height = 400 
83.
objExplorer.Left = 0 
84.
objExplorer.Top = 0 
85.
objExplorer.Visible = 1 
86.
objExplorer.document.writeln(strAusgabe)
Bitte warten ..
Ähnliche Inhalte
Exchange Server
Exchange 2013 - Primäre eMail Adresse ändern (7)

Frage von staybb zum Thema Exchange Server ...

Exchange Server
Exchange, Funktions Email Adressen, wie löst ihr das? (1)

Frage von muLio zum Thema Exchange Server ...

Exchange Server
gelöst Email Weiterleitung im Outlook klappt nicht, nur im Exchange (4)

Frage von Syosse zum Thema Exchange Server ...

Neue Wissensbeiträge
Ubuntu

Ubuntu 17.10 steht zum Download bereit

(3)

Information von Frank zum Thema Ubuntu ...

Datenschutz

Autofahrer-Pranger - Bewertungsportal illegal

(8)

Information von BassFishFox zum Thema Datenschutz ...

Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

(8)

Information von thomasreischer zum Thema Windows 10 ...

Microsoft

Die neuen RSAT-Tools für Win10 1709 sind da

(2)

Information von DerWoWusste zum Thema Microsoft ...

Heiß diskutierte Inhalte
Windows 10
Windows 10 Ordnerfreigabe (21)

Frage von Xaero1982 zum Thema Windows 10 ...

Router & Routing
Allnet - VDSL2 Modem - SFP (mini-GBIC) (20)

Frage von Dobby zum Thema Router & Routing ...

Monitoring
Netzwerk-Monitoring Software (18)

Frage von Ghost108 zum Thema Monitoring ...

Windows 10
Seekrank bei Windows 10 (15)

Frage von zauberer123 zum Thema Windows 10 ...