Главная страница

Новости

Вопрос-ответ

Скрипты

ActiveX

Статьи

Книжная полка

Knowledge Base

Конференции

Ссылки

 

Гостевая книга

Напишите мне письмо

 

Подписка на рассылку

Рассылка 'Windows Scripting'  Архив

 

 

Лучше смотреть с Microsoft Internet Explorer 4.0 и выше

 

Создано с помощью UltraEdit

 

Как определить версию 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

Смотри также

  • Какие есть версии Microsoft Exchange Server 2000?