Auslesen von aktueller Postfachgrösse und maximaler Grösse

1. offizieller Beitrag

    Wie kann ich über ein Script oder command tool
    die aktuelle Postfachgrösse und die maximale zulässige Pstfachgrösse auslesen.


    Kann mir da jemand weiterhelfen

    Die Grösse wurd im AD eingepflegt
    Un ich soll eine Liste erstellen über jeden
    Benutzer.


    Maximale Postfachgösse
    und Aktuelle Postfachgrösse


    Diese dient dazu um zu entscheiden
    wer mehr bekommt.


    Habe keine lust bei so vielen Benutzern
    jeden einzelen über AD per Hand nachzuschlagen

    • Offizieller Beitrag

    Hallo,


    wenn Du die LImits auf Benutzerebene setzt, werden folgende drei Attribute gesetzt.


    mdbStorageQuota = Warnmeldung
    mdbOverQuotaLimit = Senden verbieten
    und
    mdbOverHardQuotaLimit = Senden/Empfangen verbieten.


    das Attribut welches die Grösse des Postfaches angzeigt weiss ich momentan nicht.

    Hallo,


    das script gibt mir alle postfächer die grösser als 50 mb sind raus. wenn du den wert auf 0 setzt müssten eigentlich alle postfächer in die abc.txt ausgegeben werden.


    On Error Resume Next
    Dim LegacyDN, RightString
    Const ForAppending = 8


    Set objFSO = CreateObject("Scripting.FileSystemObject")
    objFSO.DeleteFile("c:\script\abc.txt")
    Set objTextFile = objFSO.OpenTextFile _
    ("c:\script\abc.txt", ForAppending, True)


    ' Convert WMI Date-Time Values
    Function WMIDateStringToDate(dtmInstallDate)
    WMIDateStringToDate = CDate(Mid(dtmInstallDate, 5, 2) & "/" & _
    Mid(dtmInstallDate, 7, 2) & "/" & Left(dtmInstallDate, 4) _
    & " " & Mid (dtmInstallDate, 9, 2) & ":" & _
    Mid(dtmInstallDate, 11, 2) & ":" & Mid(dtmInstallDate, _
    13, 2))
    End Function


    'Wscript.Echo "los gehts"


    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & _
    "\ROOT\MicrosoftExchangeV2")


    Set colItems = objWMIService.ExecQuery _
    ("Select * From Exchange_Mailbox")


    For Each objItem in colItems


    If objItem.Size > 50000 Then
    objTextFile.WriteLine("**************************" & vbTab)
    objTextFile.WriteLine(objItem.MailboxDisplayName & vbTab)
    objTextFile.WriteLine("Postfachgrösse :" & objItem.Size & "KB" & vbTab)


    LegacyDN = objItem.LegacyDN
    RightString = Right(LegacyDN, 8)


    objTextFile.WriteLine("Mailbox Besitzer :" & RightString & vbTab)
    objTextFile.WriteLine("letzte Anmeldung von :" & objItem.LastLoggedOnUserAccount & vbTab)


    dtmInstallDate = objItem.LastLogonTime
    strReturn = WMIDateStringToDate(dtmInstallDate)


    objTextFile.WriteLine("letzte Anmeldung am :" & strReturn & vbTab)
    End IF


    Next


    objTextFile.Close


    'Wscript.Echo "erledigt"



    ich hoffe es hilft dir weiter


    gruss


    michael

    Hallo die 2´te



    habe noch was zu den max / min Postfachgrössen gefunden. google mal nach dem sript ShowMailboxLimits.VBS .


    gruss


    michael