34、Exchange 2003 脚本编写全解析

Exchange 2003脚本管理全解

rust6ferris

于 2025-11-20 11:06:15 发布

阅读量1

点赞数

CC 4.0 BY-SA版权

分类专栏：进阶VBScript实战精要文章标签： Exchange 2003 脚本编写 CDOEXM

本文链接：https://blog.youkuaiyun.com/rust6ferris/article/details/155329881

进阶VBScript实战精要专栏收录该内容

42 篇文章 ¥99.00

订阅专栏¥69.90

会员秒杀 ¥9.9 重磅福利

超级会员免费看

Exchange 2003 脚本编写全解析

1. 列出 Exchange 服务器信息

可以使用以下脚本列出 Exchange 服务器的信息：

On Error Resume Next 
Dim strComputer 
Dim objWMIService 
Dim propValue 
Dim objItem 
Dim SWBemlocator 
Dim UserName 
Dim Password 
Dim colItems 

strComputer = "MAIL01" 
UserName = "" 
Password = "" 
Set SWBemlocator = CreateObject("WbemScripting.SWbemLocator") 
Set objWMIService = SWBemlocator.ConnectServer(strComputer,"\root\cimv2\applications\exchange",UserName,Password) 
strQuery="Select * from ExchangeServerState" 
Set colItems = objWMIService.ExecQuery(strQuery,,48) 
For Each objItem in colItems 
    WScript.Echo "ClusterState: " & objItem.ClusterState 
    WScript.Echo "ClusterStateString: " & objItem.ClusterStateString 
    WScript.E