Beiträge von mrlschiko

  • Auslesen von aktueller Postfachgrösse und maximaler Grösse

    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