Exchange 2003 tüm mailbox boyutları.

http://www.msexchange.org/articles_tutorials/exchange-server-2003/tools/ adresini inceledim biraz. birkaç program var incele istersen işini göreceğini zannediyorum.

merhabalar

On Error Resume Next
Dim cComputerName
 
cComputerName = "w2k3-std" ' <---- Change this to your Exchange server
 
Const cWMINameSpace = "root/MicrosoftExchangeV2"
Const cWMIInstance = "Exchange_Mailbox"
 
Dim oFSO             ' File system object to write to
Dim oOutputFile            ' Output file object
Dim sOutFile         ' Name of the output file
 
sOutFile = "C:\Scripts\sample.csv" ' <---- Change this
 
 
Dim sWinMgmts        ' Connection string for WMI
Dim oWMIExchange     ' Exchange Namespace WMI object
Dim lExchange_Mailboxes    ' ExchangeLogons collection
Dim oExchange_Mailbox      ' A single ExchangeLogon WMI object
 
' Open the output file for writing
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oOutputFile = oFSO.opentextfile(sOutFile, 2, True)
 
'Write a heading into the output file
oOutputFile.writeline("Mailbox name,Size (KB),# items,Status")
 
' Create the object string, indicating WMI (winmgmts), using the
' current user credentials (impersonationLevel=impersonate),
' on the computer specified in the constant cComputerName, and
' using the CIM namespace for the Exchange provider.
sWinMgmts = "winmgmts:{impersonationLevel=impersonate}!//"& _
cComputerName&"/"&cWMINameSpace
Set oWMIExchange =  GetObject(sWinMgmts)
 
' Verify we were able to correctly set the object.
If Err.Number <> 0 Then
  oOutputFile.writeline("ERROR: " & err.number & ", " & err.description)
Else
 
  ' The Resources that currently exist appear as a list of
  ' Exchange_Mailbox instances in the Exchange namespace.
  Set lExchange_Mailboxes = oWMIExchange.InstancesOf(cWMIInstance)
 
  ' Were any Exchange_Mailbox Instances returned?
  If (lExchange_Mailboxes.count > 0) Then
    ' If yes, do the following:
    ' Iterate through the list of Exchange_Mailbox objects.
    For Each oExchange_Mailbox in lExchange_Mailboxes
 
       oOutputFile.writeline("""" & _
           oExchange_Mailbox.MailboxDisplayName & _
           """," & _
           oExchange_Mailbox.Size & _
           ","& _
           oExchange_Mailbox.TotalItems & _
           ","& _
           oExchange_Mailbox.StorageLimitInfo)
 
    Next
  Else
    ' If no Exchange_Mailbox instances were returned,
    ' display that.
    oOutputFile.writeline("WARNING: No Exchange_Mailbox instances were

returned.")
  End If
End If

yukarıdaki scriptle alabilirsin.

yada IMI Mailbox Statistics programı ile alabilirsiniz.

yada ;

# With a Mailbox Display Name

Get-2003MailboxStatistics "Chris Dent"

# With a Legacy Exchange DN ("-Identity" itself is optional)

Get-2003MailboxStatistics -Identity "/O=SomeOrg/OU=AdminGroup/CN=RECIPIENTS/CN=Someone"

# For a single Mailbox Database

Get-2003MailboxStatistics -Database "Mailbox Database"

# For a different server

Get-2003MailboxStatistics -Server "ExchangeServer02"

yukarıdaki komutları kullanarak da alabilirsiniz.

Get-MailboxStatistics for Exchange 2003
function Get-2003MailboxStatistics {

  Param(

     [String]$Identity = "",

     [String]$Server = $Env:ComputerName,

     [String]$Database = ""

  )

 

  $Filter = "ServerName='$Server'"

  if ($Database -ne "" ) {

    $Filter = "$Filter AND StoreName='$Database'"

  }

  if ($Identity -ne "") {

    $Filter = "$Filter AND (MailboxGuid='{$Identity}' OR LegacyDN='$Identity'"

    $Filter = "$Filter OR MailboxDisplayName='$Identity')"

  }

 

  $MailboxStatistics = `

    Get-WMIObject -ComputerName $Server `

      -Namespace "root/MicrosoftExchangeV2" -Class "Exchange_Mailbox" `

      -Filter $Filter | `

    Select-Object `

      AssocContentCount, `

      @{n='DateDiscoveredAbsentInDs';e={ if ($_.DateDiscoveredAbsentInDs -ne $Null) { `

        [System.Management.ManagementDateTimeConverter]::ToDateTime(`

          $_.DateDiscoveredAbsentInDs)}} }, `

      MailboxDisplayName, TotalItems, LastLoggedOnUserAccount, `

      @{n='LastLogonTime';e={ if ($_.LastLogonTime -ne $Null) { `

        [System.Management.ManagementDateTimeConverter]::ToDateTime($_.LastLogonTime)}} }, `

      @{n='LastLogoffTime';e={ if ($_.LastLogoffTime -ne $Null) { `

        [System.Management.ManagementDateTimeConverter]::ToDateTime($_.LastLogoffTime)}} }, `

      LegacyDN, `

      @{n='MailboxGuid';e={ ([String]$_.MailboxGuid).ToLower() -Replace "\{|\}" }}, `

      @{n='ObjectClass';e={ "Mailbox" }}, `

      @{n='StorageLimitStatus';e={ `

        Switch ($_.StorageLimitInfo) {

          1 { "BelowLimit" }

          2 { "IssueWarning" }

          4 { "ProhibitSend" }

          8 { "NoChecking" }

          16 { "MailboxDisabled" } }} }, `

      DeletedMessageSize, Size, `

      @{n='Database';e={ "$($_.ServerName)\$($_.StorageGroupName)\$($_.StoreName)" }}, `

      ServerName, StorageGroupName, StoreName, `

      @{n='Identity';e={ ([String]$_.MailboxGuid).ToLower() -Replace "\{|\}" }}

 

  Return $MailboxStatistics

}
 
ama en kolay ve güzel yolu System Managerdan kontrol etmek. zaten detaylı bilgi veriyor orda...
 
kolay gelsin

cevaplarınız için teşekkürler.

mümin bey bu scripti dün bende buldum fakat daha çalıştırmadım. neticeyi bilgi veririm.

kolay gelsin

sonuç tam istediğim gibi çıktı. tüm mailbox ve boyutlarını liste halinde görmek isteyen arkadaşlar kullanabilir.

sonuç tam istediğim gibi çıktı. tüm mailbox ve boyutlarını liste halinde görmek isteyen arkadaşlar kullanabilir.

 

[Y]

Yukarıda verilen vb scriptin son 3 ve 4 komut satırında boşluk olduğundan hata veriyor.eğer bu satırları birleştirip çalıştırırsanız düzgün çalışacaktır.

oOutputFile.writeline("WARNING: No Exchange_Mailbox instances were

returned.")

satırlarını birleştiriniz

oOutputFile.writeline("WARNING: No Exchange_Mailbox instances were returned.")

merhaba hocam,

bu script çalışmıyor sanırım,

Buraya yazıldığında boşluk ya da karakter sorunu çıktığı için upload ettim. Bu adresten indirebilirsin.

http://www.evrenyeniev.com.tr/exchangemailboxsize.rar

uğraştığın için öncelikle sağolasın ama arşiv hasarlı diyor, sana zahmet tekrar yükler misin yada farklı bi yere yükleyebilir misin?

http://www.4shared.com/file/105713505/d5d71b76/ExchangeMailboxSize.html

teşekkürler,

elinize sağlık.