列表 Exchange 收件人邮箱大于指定的大小

显示所有的 Exchange 收件人的邮箱大小大于指定的量 （以 kb 为单位）。
Visual Basic
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

• 作者
• 最近文章

Exchange中文站

Exchange中文站是一个专注讨论 Microsoft Exchange Server / Exchange Online / Office 365 的技术型网站。

Exchange中文站 的最新文章 (查看所有)

• Office 365 如何修改密码 - 2016年11月20日
• Office 365 共享邮箱功能和使用介绍 - 2016年11月2日
• Office 365 新的组功能 - 2016年8月19日