JS: определение админов и тем кому разрешён удалённый вход в домене

var str1 = "dc = butyrki", str2 = "dc = local";                    
                   // описание домена 
var objUser = GetObject("LDAP://cn=im2002, cn=users, " + str1 + ", " + str2);    
               
try
    {
    var usrArr = objUser.memberOf.toArray(), lst = "";            
                 // если пользователь является членом БОЛЕЕ 1-й группы (НЕ считая группу
                 // "пользователи домена" (основную группу))

    for(i = 0; i < usrArr.length; i++)                    
        {
        var sbStr = usrArr[i].substring(3, usrArr[i].indexOf(","));
        if((sbStr == "Администраторы") || (sbStr == "Администраторы домена") || (sbStr == "Администраторы предприятия"))
            { 
            lst += sbStr + "\n";
            }
        else
            {
            continue;
            }

        }
    if(lst == "")
        {
        WScript.Echo("Пользователь не входит ни в одну из перечисленных групп");
        }
    else
        {
        WScript.Echo("Пользователь входит в следующие из перечисленных групп:\n--------------------------------\n" + lst);
        }
    }
catch(err)
    {
    try
        {
        usrArr = objUser.memberOf;                    
                                      // если пользователь является членом ТОЛЬКО 1-й группы (НЕ считая группу
                                      // "пользователи домена" (основную группу))
        var sbStr = usrArr.substring(3, usrArr.indexOf(","));        
        if((sbStr == "Администраторы") || (sbStr == "Администраторы домена") || (sbStr == "Администраторы предприятия"))
            {
            WScript.Echo("Пользователь входит в группу:\n--------------------------------\n" + sbStr);
            }
        else
            {
            WScript.Echo("Пользователь не входит ни в одну из перечисленных групп");    
            }
        }
    catch(err1)
        {
        WScript.Echo("пользователь является членом только одной группы");
        }
    }

' Constants for the NameTranslate object.
Const ADS_NAME_INITTYPE_GC = 3
Const ADS_NAME_TYPE_NT4 = 3
Const ADS_NAME_TYPE_1779 = 1

' Specify the NetBIOS name of the domain.
strNetBIOSDomain = "server2003"

' Specify the NT name of the user.
strNTName = "im2002"

' Use the NameTranslate object to convert the NT user name to the
' Distinguished Name required for the LDAP provider.
Set objTrans = CreateObject("NameTranslate")
' Initialize NameTranslate by locating the Global Catalog.
objTrans.Init ADS_NAME_INITTYPE_GC, ""
' Use the Set method to specify the NT format of the object name.
objTrans.Set ADS_NAME_TYPE_NT4, strNetBIOSDomain & "\" & strNTName
' Use the Get method to retrieve the RFC 1779 Distinguished Name.
strUserDN = objTrans.Get(ADS_NAME_TYPE_1779)

' Escape any "/" characters with backslash escape character.
' All other characters that need to be escaped will be escaped.
strUserDN = Replace(strUserDN, "/", "\/")

' Bind to the user object in Active Directory with the LDAP provider.
WScript.Echo strUserDN
Set objUser = GetObject("LDAP://" & strUserDN)

objTrans.Set ADS_NAME_TYPE_NT4, strNetBIOSDomain & "\" & strNTName