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