Листинг 1

Set Shell = WScript.CreateObject(«WScript.Shell»)
?Сделать экспорт информации из доменов с помощью утилиты csvde.exe 
nDomain = Ubound(ADSearch)
For i = 0 To nDomain Step 3
	?Сформировать строку запуска утилиты
csvExec = «csvde.exe -s « & ADSearch(i + 1) & « -d « & «»»» & ADSearch(i + 2) & «»»» &_
« -r «»(&(objectCategory=person)(objectClass=user)(|(homeMDB=*)(msExchHomeServerName=*)))»»» &_
« -l «»DN,SAMAccountName,UserPrincipalName»»» & « -f « & AppPath & ADSearch(i) & «.csv» 
	?Запустить процесс экспорта и подождать результат
Shell.Run csvExec, 0, True
Next
?Проверить наличие csv файлов, если их нет, значит есть ошибка экспорта, закончить
For i = 0 To nDomain Step 3
	If Not fso.FileExists(AppPath & ADSearch(i) & «.csv») Then
		?Здесь в журнальный файл должно быть записано сообщение об ошибке
		?Завершить работу
		WScript.Quit
	End If
Next