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

Email-Adresse im Exchange 2003 finden

Frage Microsoft Exchange Server

Mitglied: StefanKittel

StefanKittel (Level 4) - Jetzt verbinden

23.01.2012 um 17:25 Uhr, 3446 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 ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(8)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Exchange Server
Exchange 2013 - Primäre eMail Adresse ändern (7)

Frage von staybb zum Thema Exchange Server ...

Exchange Server
gelöst SBS 2011 - anlegen einer email adresse auf exchange (12)

Frage von jensgebken zum Thema Exchange Server ...

Exchange Server
Exchange 2003 auf 2007 Implace Migration (18)

Frage von Herbrich19 zum Thema Exchange Server ...

Windows Server
gelöst Wie füge ich diesem Script die Email Adresse hinzu (16)

Frage von rainergugus zum Thema Windows Server ...

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

Frage von Xaero1982 zum Thema Microsoft ...

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

Frage von Unwichtig zum Thema Netzwerkmanagement ...

Windows Update
Treiberinstallation durch Windows Update läßt sich nicht verhindern (17)

Frage von liquidbase zum Thema Windows Update ...