Hope This Helps

Problem:
Ich habe die Aufgabe bekommen, als unabhängige Instanz. zur ermitteln, wie viele Mails ein Benutzer in einem bestimmten Zeitraum empfängt bzw. versendet (z.B. um einen Arbeitsaufwand des Mailaufkommens zur ermitteln).

Lösung:
Ich habe hier ein sehr schönes Powershell-Skript auf MSExchange.org von Nuno Mota gefunden, das genau diese Information ausgibt. Vielen Dank hierfür!!

[Int] $intSent = $intRec = 0
Get-TransportServer | Get-MessageTrackingLog -ResultSize Unlimited -Start “10/01/2012” -End “11/01/2012” -Sender "user@domain.com" -EventID RECEIVE | ? {$_.Source -eq "STOREDRIVER"} | ForEach { $intSent++ }
Get-TransportServer | Get-MessageTrackingLog -ResultSize Unlimited -Start “10/01/2012” -End “11/01/2012” -Recipients "user@domain.com" -EventID DELIVER | ForEach { $intRec++ }
Write-Host "E-mails sent:    ", $intSent
Write-Host "E-mails received:", $intRec

Die Original-Quelle können Sie dem Link unten entnehmen. Ich möchte das Skript nur hier trotzdem veröffentlichen, falls der Link mal down geht. Getestet habe ich das Skript unter Exchange 2007 SP3.

Quelle:
MSExchange.org: Number of E-mails Sent and Received by one User by Nuno Mota

Problem : Die Icons in der Systray des Windows 7 Systems machen was sie möchten. Beim darüber fahren mit der Maus verschwinden Sie oder es ist ein großer leerer Platz zwischen den Icons. Dies liegt meistens an einem fehlerhaft Iconcache. Also reparieren wir den doch einfach mal

Lösung : Wie ich in einem älteren Artikel schon geschrieben hatte "Windows-7-Update-wird-nicht-installiert-Fehler-80243004" kann man den Iconcache manuell leeren. Nun ist das hier öfter der Fall und wenn man etwas öfter als 2 mal machen muss wird ein Skript geschrieben.

Hier der Sourcecode :

Dim ObjWsh 			:	Set ObjWsh = CreateObject("WScript.Shell")
Dim RegPath 		:	RegPath = "HKCU\Software\Classes\Local Settings\Software\Microsoft\Windows\CurrentVersion\TrayNotify\"
Dim RegKey(1)
	RegKey(0) = "IconStreams"
	RegKey(1) = "PastIconsStream"
If MsgBox("Sollen die SysTray Icons gefixt werden ?",vbYesNo + vbQuestion,"Ausführen ?") = vbYes then
	For X = 0 To UBound(RegKey)
		ObjWsh.RegDelete RegPath & RegKey(X)
	Next
	MsgBox "Icons wurden gefixt bitte melden sie sich ab/an um die Änderungen zu sehen",vbOKOnly + vbInformation,"Icon Fehler behoben"
Else
	MsgBox "Skript wurde abgebrochen",vbOKOnly + vbExclamation,"Abbruch"
End If
WScript.Quit(0)

Für die etwas fauleren unter euch hier der Download Fix_Icons.txt Nach dem Download txt in vbs umbenennen und alles ist erledigt.