Листинг 1.

Сценарий для получения списков серверов POP3 и почтовых ящиков

? Получаем контейнер Native POP3 Connector
Set objNpc = GetObject(«LDAP://CN=Native POP3 Connector,CN=Connections,» & _
	«CN=First Routing Group,CN=Routing Groups,» & _
	«CN=First Administrative Group,CN=Administrative Groups,» & _
	«CN=MAPILab Ltd,CN=Microsoft Exchange,CN=Services,CN=Configuration,» & _
	«DC=mapilab,DC=local»)
? Перебираем все почтовые ящики контейнера
For each objMailbox in objNpc
	WScript.Echo objMailbox.Get(«serverName») & « « & _
		objMailbox.Get(«adminDisplayName») ? Выводим нужные атрибуты ящика
Next