Exchange 2003升级到Exchange 2010后若何,获取Exchange
日期:2014-08-28 / 人气: / 来源:网络
1. 登录到Exchange 2003 这台邮件服务器,确认您是DOMAIN ADMINS 和Exchange 管理员。
2.. 将如下的VB Script 脚本保留为一个VBS脚本,然后执行
'
Dim SWBemlocator
Dim objWMIService
Dim colItems
Dim objFSO
Dim objFile
strTitle="Mailbox Report"
strComputer = InputBox("What Exchange server do you want to check?",strTitle,"ExchangeServer")
UserName = ""
Password = ""
strLog="MailboxReport.csv"
Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objFile=objFSO.CreateTextFile(strLog,True)
'This query will fail with the Exchange WMI Provider
'strQuery="Select ServerName,StorageGroupName,StoreName,MailboxDisplayName,Size,TotalItems from Exchange_Mailbox"
strQuery="Select * from Exchange_Mailbox"
objFile.WriteLine "Server,StorageGroup,MailStore,User,Size(KB),TotalItems"
WScript.Echo "Examining " & strComputer
Set SWBemlocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = SWBemlocator.ConnectServer(strComputer,"rootMicrosoftExchangeV2",UserName,Password)
Set colItems = objWMIService.ExecQuery(strQuery,,48)
For Each objItem in colItems
objFile.writeline objItem.ServerName & "," &objItem.StorageGroupName &_
"," & objItem.StoreName & "," & Chr(34) & objItem.MailboxDisplayName & Chr(34) &_
"," & objItem.Size & "," & objItem.TotalItems
'uncomment if you want to write to the screen
'WScript.echo objItem.ServerName & "," &objItem.StorageGroupName &_
'"," & objItem.StoreName & "," & CHR(34) & objItem.MailboxDisplayName & Chr(34) &_
'"," & objItem.Size & "," & objItem.TotalItems
Next
objFile.close
WScript.Echo "See " & strLog & " for results."
3. 双击执行脚本,在弹出框中写入您要检查的邮件服务器
4. 提示脚本执行完成,生成文档在桌面上显示:
5. 打开生成的文件,了解当前客户占用量
6. CSV 文件经过相应的编辑和修改后,最终结果如下:
通过Exchange 的 Powershell批量创建AD账户和邮箱的图文介绍
导读:Powershell界面运行addmailbox.ps1,用户信息保存在mailbox.csv文件中
Exchange,
作者:管理员
推荐内容 Recommended
- 江苏飞浩信息科技期待您的加入07-20
- 江苏飞浩科技欢迎您07-19
相关内容 Related
- 江苏飞浩信息科技期待您的加入07-20
- 江苏飞浩科技欢迎您07-19