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

Exchange Mailbox Report

Frage Entwicklung Batch & Shell

Mitglied: HilFi2000

HilFi2000 (Level 1) - Jetzt verbinden

30.07.2008 um 14:27 Uhr, 2567 Aufrufe

Hallo Admins,

ich habe ein Script, das mir die Mailboxgrößen all User einer bestimmten OU ausgibt.
Zum Vergleich verwende ich den DisplayName bzw. MailboxDisplayName. Da in einer größeren Struktur Namen doppelt vorkommen können, ist es nicht sehr eindeutig.
Ich möchte am liebsten CN verwenden. Wie müsste ich das Script umbauen?


Script----



Dim SWBemlocator
Dim objWMIService
Dim colItems
Dim objFSO
Dim objFile
Dim strOU

strComputer = "Mailserver3" 'Computername (Mailserver)
UserName = ""
Password = ""
strLog="\\filesserver\c$\REPORT\MailboxReport.txt" 'Dateipfad und Name


'Reportdatei anlegen
Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objFile=objFSO.CreateTextFile(strLog,True)
objFile.WriteLine "Storename; MailboxDisplayName;CN; Size(KB);"

Call SubReport("Berlin")

'Reportdatei schließen
objFile.close



Sub SubReport (strOU)
Set objOU = GetObject ("LDAP://OU=" & strOU & ",OU=GMD,OU=Domain Users,DC=test,DC=de")
Set SWBemlocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIServiceExchange = SWBemlocator.ConnectServer(strComputer,"\root\MicrosoftExchangeV2",UserName,Password)


strQuery="Select * from Exchange_Mailbox"

For Each objUser in objOU
Set colItemsExchange = objWMIServiceExchange.ExecQuery(strQuery,,48)
For Each objItemExchange in colItemsExchange
If objUser.DisplayName = objItemExchange.MailboxDisplayName Then
If objUser.AccountDisabled = false Then
objFile.writeline objItemExchange.StoreName & ";" & objItemExchange.MailboxDisplayName & ";" _
& objUser.CN & ";" & objItemExchange.Size



End If
End If
Next
NEXT

End Sub



--- Ende ----


Wie müsste die Prüfung "If objUser.DisplayName = objItemExchange.MailboxDisplayName Then" geändert werden??

Oder habt ihr einen besseren Vorschlag?

Vielen Dank!
Ähnliche Inhalte
Exchange Server
gelöst Exchange Mailbox Assistants Dienst stürzt permanent ab - Augenöffner gesucht (5)

Frage von Mosurama zum Thema Exchange Server ...

Exchange Server
How to recover Exchange mailbox folder for FREE

Link von Herbrich19 zum Thema Exchange Server ...

Exchange Server
gelöst Lizenzierung Exchange Mailbox Server und Exchange Edge Server (2)

Frage von DarkLevi zum Thema Exchange Server ...

Neue Wissensbeiträge
Tipps & Tricks

Wie Hackt man sich am besten in ein Computernetzwerk ein

(38)

Erfahrungsbericht von Herbrich19 zum Thema Tipps & Tricks ...

Humor (lol)

Bester Vorschlag eines Supporttechnikers ever: APC

(15)

Erfahrungsbericht von DerWoWusste zum Thema Humor (lol) ...

Heiß diskutierte Inhalte
Festplatten, SSD, Raid
POS Hardware und alternativen zu Raid 1? (21)

Frage von Brotkasten zum Thema Festplatten, SSD, Raid ...

Viren und Trojaner
Verschlüsselungstrojaner simulieren (18)

Frage von AlbertMinrich zum Thema Viren und Trojaner ...

Ubuntu
Nextcloud 12 Antivirus App for Files (8)

Frage von horstvogel zum Thema Ubuntu ...

Server-Hardware
gelöst Empfehlung KVM over IP Switch (8)

Frage von Androxin zum Thema Server-Hardware ...