'скрипт предназначен для получения списка пользователей входящих в группу

on error resume next

'Input data
DomainController = InputBox("Введите NetBIOS имя контроллера домена:","Имя контроллера домена","")
GroupName = InputBox("Введите имя группы:","Имя группы (Login Name)","")

'connect to AD object
Set objGroup = GetObject("WinNT://" & DomainController & "/" & GroupName)

'create *.csv file
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Fil = FSO.CreateTextFile("d:\" & GroupName & "_users.csv",2)
Fil.WriteLine(GroupName & vbCrLf & "Login Name;Full Name")

'List users
For Each Member in objGroup.Members
    If Member.Class = "User" Then
        Fil.WriteLine(Member.Name & ";" & Member.FullName)
        else If Member.Class = "Cotact" Then
        Fil.WriteLine(Member.Name & ";" & Member.FullName)
    End If
        End If
Next
Fil.Close
Wscript.Echo ("Выполение скрипта закончено" & vbCrLf & "Список пользователей находится в корне диска")

Принцип работы очень простой. Копируете в текстовый файл, сохраняете с разрешением VBS. Запускаете- указываете свой контролер домена- группу... и все. Заходите в корень диска в котором находится скрипт, там файл с названием вашей группы и расширением CSV. В этом файле логин и полное имя пользователей, на мой взгляд все быстро и удобно.