скрипт для получения информации о пользователях домена

//************************************************************************* // JScript ShS 2004 // Этот скрипт предназначен для получения информации о пользователях домена // //************************************************************************* var objConn, //объект Connection objComm, //объект Command objRS, //объект RecordSet strRecord, //Результирующая строка, содержащая сведения о пользователе arrAttribs, //Перечень атрибутов, значения которых мы будем извлекать для каждого пользователя i, //Счетчик цикла strDevOut, //Устройство вывода RootDSE, DefaultDomain, //Домен для текущего пользователя strSpliter; //Раделитель полей для результирующей строки var ADS_UF_ACCOUNTDISABLE=2; //"Флаг" битового атрибута userAccountControl // strDevOut="Display" // //Получим имя домена для пользователя, от имени которого запущен данный скрипт RootDSE=GetObject("LDAP://RootDSE"); DefaultDomain=GetObject("LDAP://"+RootDSE.Get("DefaultNamingContext")); WScript.Echo(DefaultDomain.distinguishedName); // strSpliter="*"; //Информацию о атрибутах можно получить здесь: //[url]http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ad/ad/user_object_attributes.asp[/url] //Массив атрибутов должен содержать по крайней мере один элемент arrAttribs = new Array ("displayName","sAMAccountName","profilePath","mail","userAccountControl","proxyAddresses"); // //Инициализируем переменные, необходимые для работы с AD, как с БД objConn = WScript.CreateObject("ADODB.Connection"); objComm = WScript.CreateObject("ADODB.Command"); objRS = WScript.CreateObject("ADODB.Recordset"); objConn.Provider = "ADsDSOObject"; objConn.Open("Active Directory Provider"); objComm.ActiveConnection = objConn; // //Формируем текст SQL-запроса к AD objComm.CommandText = "SELECT "; for ( i=0 ; i<arrAttribs.length-1; i++) { objComm.CommandText+=arrAttribs[i]+","; } //За последним полем в запросе не должна следовать запятая, //поэтому добавляем имя последнего поля вне цикла objComm.CommandText+=arrAttribs[i]; //[b]Поиск проводим внутри OU "mg"[/b] objComm.CommandText+= " FROM \'LDAP://[b]ou=mg[/b],"+DefaultDomain.distinguishedName+"\'"+ "WHERE objectClass = \'user\' and objectCategory = \'person\'"; //Фильтр для отбора тех, у кого есть внешний Email //Заглушка //objComm.CommandText+=" and (mail LIKE \'%mn.local\')"; // //выполняем запрос objRS = objComm.execute(); //Формируем строку-заголовок с названиями полей strRecord=""; for ( i=0 ; i<arrAttribs.length; i++) { strRecord+=arrAttribs[i]+strSpliter; } //Вывод результирующей строки на устройство вывода fnOut(strRecord,strDevOut); //Формируем строки данных objRS.MoveFirst(); while (!objRS.EOF) { strRecord=""; for ( i=0 ; i<arrAttribs.length; i++) { switch (arrAttribs[i]) { case "userAccountControl": //Выделяем бит ADS_UF_ACCOUNTDISABLE if (objRS.Fields(arrAttribs[i]).Value&2) strRecord+="UserDisabled"+strSpliter; else strRecord+="UserEnabled"+strSpliter; break; case "proxyAddresses": vbarrEmailAddreses = objRS.Fields(arrAttribs[i]).Value; if (vbarrEmailAddreses!=null) { arrEmailAddreses=vbarrEmailAddreses.toArray(); for (iEmailCounter=0;iEmailCounter<arrEmailAddreses.length-1;iEmailCounter++) { strRecord+=arrEmailAddreses[iEmailCounter]+"|"; } strRecord+=arrEmailAddreses[iEmailCounter]; } strRecord+=strSpliter; break; default: strRecord+=objRS.Fields(arrAttribs[i]).Value+strSpliter; } } fnOut(strRecord); objRS.MoveNext(); } objRS.close; /////////////////////////////////////////////////////////////////////////////////////////// //Функция вывода результирующей строки /////////////////////////////////////////////////////////////////////////////////////////// function fnOut(strOutRecord,strDev) { //Заглушка WScript.Echo(strOutRecord); } /*Для справки Константы для битового поля userAccountControl http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ad/ad/example_code_for_creating_a_user.asp Const ADS_UF_SCRIPT = &H1 Const ADS_UF_ACCOUNTDISABLE = &H2 Const ADS_UF_HOMEDIR_REQUIRED = &H8 Const ADS_UF_LOCKOUT = &H10 Const ADS_UF_PASSWD_NOTREQD = &H20 Const ADS_UF_PASSWD_CANT_CHANGE = &H40 Const ADS_UF_ENCRYPTED_TEXT_PASSWORD_ALLOWED = &H80 Const ADS_UF_TEMP_DUPLICATE_ACCOUNT = &H100 Const ADS_UF_NORMAL_ACCOUNT = &H200 Const ADS_UF_INTERDOMAIN_TRUST_ACCOUNT = &H800 Const ADS_UF_WORKSTATION_TRUST_ACCOUNT = &H1000 Const ADS_UF_SERVER_TRUST_ACCOUNT = &H2000 Const ADS_UF_DONT_EXPIRE_PASSWD = &H10000 Const ADS_UF_MNS_LOGON_ACCOUNT = &H20000 Const ADS_UF_SMARTCARD_REQUIRED = &H40000 Const ADS_UF_TRUSTED_FOR_DELEGATION = &H80000 Const ADS_UF_NOT_DELEGATED = &H100000 Const ADS_UF_USE_DES_KEY_ONLY = &H200000 Const ADS_UF_DONT_REQUIRE_PREAUTH = &H400000 Const ADS_UF_PASSWORD_EXPIRED = &H800000 Const ADS_UF_TRUSTED_TO_AUTHENTICATE_FOR_DELEGATION = &H1000000 */

Слова: Active Directory, AD, windows
Окт. 19, 2006 // 15:24 [ permalink : LJ ]