и не зависит от источника

управляющие, можно пост понимать как нарушающий, а можно "понять, простить и отпустить"

Что было явно лишним — я убрал.

К тому же var в vbscript  нет.

Сие похоже на JScript.

var Пользователь,Пароль,Домен,Стр,Контроллер,Отбор,Провайдер,ТЗ,АДСИ,ТекстЗапроса;
try
{
    WScript.StdOut.Write(0);
}
catch(e)
{
    new ActiveXObject("WScript.Shell").Run('cscript.exe "'+WScript.ScriptFullName+'"');
    WScript.Quit();
}
ТЗ=new Array();
АДСИ=new ActiveXObject("ADSystemInfo");
Контроллер=АДСИ.GetAnyDCName();
Домен=АДСИ.DomainDNSName;
Пользователь="администратор@" + Домен;
Пароль="СуперПароль";
ДСО=GetObject("LDAP:");
Корень=ДСО.OpenDSObject("LDAP://"+Контроллер+"/RootDSE", Пользователь, Пароль,1);
ТекстЗапроса="<LDAP://";//+Контроллер;
if (!Домен)
{
    Провайдер="Provider=ADSDSOObject;User Id="+Пользователь+"@"+Домен+";Password="+Пароль;
    ТекстЗапроса=ТекстЗапроса+Стр+">";
}
else
{
    Провайдер="Provider=ADSDSOObject;";
    ТекстЗапроса=ТекстЗапроса+Корень.Get("defaultNamingContext")+">";
};

//Отберем только тип пользователи и только начинается логин вин200 на букову G
Маска="gi*";
Отбор=";(&(&(objectClass=User)(!objectClass=Computer))(sAMAccountName=" + Маска + "));AdsPath;subTree";
//Отбор=";(&(objectClass=Group)(sAMAccountName=" + Маска + "));AdsPath;subTree";
//Отбор=";(&(objectClass=organizationalUnit)(name=Сбыт));AdsPath;subTree";
ТекстЗапроса=ТекстЗапроса+Отбор;

Соединение = new ActiveXObject("ADODB.Connection");
Соединение.Open(Провайдер);
Записи=Соединение.Execute(ТекстЗапроса);
Сч=-1;
while (!Записи.EOF)
{
    Сч++;
    ТЗ[Сч]=new Object();
    ТЗ[Сч]['ADSPath']=Записи.Fields(0).Value;

    ЗаписиОбъекта=GetObject(Записи.Fields(0).Value);
    ЗаписиОбъекта.GetInfo();
    while (true)
    {
        try{Поле=ЗаписиОбъекта.Next()}catch(e){break}
        ТЗ[Сч][Поле.Name]=ЗаписиОбъекта.Get(Поле.Name);
    };
    Записи.MoveNext();
};
for (Сч in ТЗ)
    for (Кол in ТЗ[Сч])
    {
        try{WScript.Echo(Кол,ТЗ[Сч][Кол])}catch(e){}
    }
WScript.StdOut.Write('\n*********************\nPress Enter...');
WScript.StdIn.ReadLine();

 Sub ListConnectedComputers( strDomain )
    Dim objPDC
    Set objPDC = getobject("WinNT://" & strDomain )
    objPDC.filter = Array("Computer")
    For Each objComputer In objPDC
    WScript.Echo objComputer.Name
    Next
End Sub
Dim strDomain
Do
    strDomain = inputbox( "Please enter a domainname", "Input" )
Loop until strDomain <> ""
ListConnectedComputers( strDomain )

Есть похожие примеры и с LDAP провайдером. То есть вывести список всех OU и тп. Но никак не пойму как читать атрибуты у пользователей.

... Провайдер WinNT работает...

Приведите, пожалуйста, соответствующий пример сценария.