Mailbox boyutları belirtilen değerden daha büyük olan alıcıların listesi için script
strComputer = “.”
intMailboxSize = 2048 ’size in KB, all recipient who exceeds this amount will be displayed
Set objWMIService = GetObject(”winmgmts:” & “{impersonationLevel=impersonate}!\\” & strComputer & _
“\ROOT\MicrosoftExchangeV2″)
Set colItems = objWMIService.ExecQuery(”Select * from Exchange_Mailbox where size > ” & intMailboxSize)
if colItems.count = 0 then ‘no recipients were found
wscript.echo “No items were found”
wscript.quit
end if
mbs_len = len(”MAILBOX SIZE(KB)”)
mbdn_len = len(”MAILBOX DISPLAY NAME”)
wscript.echo “MAILBOX DISPLAY NAME” & space(30 - mbdn_len) & “MAILBOX SIZE(KB)”
For Each objItem in colItems
if len(objItem.MailboxDisplayName) > 30 then
padding = 0
Wscript.stdOut.write left(objItem.MailboxDisplayName,27) & “…” & space(padding)
else
padding = 30 - len(objItem.MailboxDisplayName)
Wscript.stdOut.write objItem.MailboxDisplayName & space(padding)
end if
Wscript.stdOut.write space(mbs_len - len(cstr(objItem.Size))) & objItem.Size
wscript.echo
next
Bu yazi July 9th, 2007 tarihinde ve Scriptler kategorisi altina yazilmistir. RSS 2.0 feed ile yorumlara abone olabilirsiniz. Ayrica yorum birakabilir, yada kendi sitenizde konuyu geri izleme yapabilirsiniz.
Yorum yapin