' Kod wywietla wszystkie skrzynki pocztowe i ich pojemno
' ------ KONFIGURACJA SKRYPTU ------
strComputer = "<SerwerExchange>"    'np. ExchServer2
' ------ KONIEC KONFIGURACJI ---------

set objWMI = GetObject("winmgmts:\\" & strComputer & _
                       "\root\MicrosoftExchangeV2")
set objMbxs = objWMI.ExecQuery("Select * from Exchange_Mailbox",,48)
for each objMbx in objMbxs
  Wscript.Echo objMbx.MailBoxDisplayName & " " & objMbx.size & "kB  " _
               & objMbx.TotalItems & " pozycji."
Next
Wscript.Echo "Skrypt zosta wykonany z powodzeniem."
