|
|
|
|
|
|
|
Подписка на рассылку |
|
|
|
|
|
|
|
|
| Лучше смотреть с Microsoft Internet Explorer 4.0 и выше |
|
|
|
|
|
Как определить версию Microsoft Exchange Server 2000?
Разнообразную информацию об Exchange Server 2000 можно получить, используя интерфейс IExchangeServer из CDO for Exchange Management (CDOEXM):
Dim Exchange
Set Exchange = CreateObject("CDOEXM.ExchangeServer")
После того, как мы создали этот объект, необходимо связать его с Exchange Server:
Exchange.DataSource.Open ServerNameПоскольку компоненты CDO for Exchange Management могут работать только локально, то в качестве ServerName мы вполне можем подставить имя текущего компьютера.
Для этой цели мы будем использовать интерфейс IADsWinNTSystemInfo из ADSI:
Dim NtSysInfo
Set NtSysInfo = CreateObject("WinNTSystemInfo")
Dim ServerName
ServerName = NtSysInfo.ComputerName
Set NtSysInfo = Nothing
Полный листинг: version.vbs
Option Explicit
' Сначала определим имя Windows-сервера
Dim NtSysInfo
Set NtSysInfo = CreateObject("WinNTSystemInfo")
Dim ServerName
ServerName = NtSysInfo.ComputerName
Set NtSysInfo = Nothing
' Затем извлекаем информацию об Exchange-сервере
Dim Exchange
Set Exchange = CreateObject("CDOEXM.ExchangeServer")
Exchange.DataSource.Open ServerName
MsgBox "Microsoft Exchange Server, " & Exchange.ExchangeVersion & _
vbNewLine & vbNewLine & _
"6.0.4052.x - Beta 3 Build" & vbNewLine & _
"6.0.4208.x - RC 1 Build" & vbNewLine & _
"6.0.4368.x - RC 2 Build" & vbNewLine & _
"6.0.4417.5 - Release", _
vbOkOnly + vbInformation, Exchange.Name
Set Exchange = Nothing
Смотри также