Листинг 2

Set fso = Wscript.CreateObject(«Scripting.FileSystemObject»)
Dim CSVArray()
z = 0
For i = 0 To nDomain Step 3
	Set fl = fso.GetFile(AppPath & ADSearch(i) & «.csv»)
	Set f = fl.OpenAsTextStream(1, -2)
	?Первая строка в файле — это заголовок, пропустить его
	f.ReadLine 
	Do While f.AtEndOfStream <> True
		str = f.ReadLine
		tmpArray = split(str, «,»)
		nStr = Ubound(tmpArray)
		If Not InStr(tmpArray(0), «SystemMailbox») > 0 Then
			?Не учитывать системные учетные записи  SystemMailbox
			Redim Preserve CSVArray(z + 3)
			CSVArray(z + 3) = Replace(tmpArray(0), «»»CN=», «»)
CSVArray(z) = Trim(ADSearch(i)) & «» & tmpArray(nStr — 1)
			CSVArray(z + 1) = Trim(ADSearch(i)) & «/» & tmpArray(nStr — 1)
			CSVArray(z + 2)	= tmpArray(nStr)		
			z = z + 4
		End If 
	Loop
Next
f.Close