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

//************************************************************************* // 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 */

Окт. 19, 2006 // 15:24 | Комментарии (0)

скрипт показывающий имена пользоватлей не логинившихся в AD N-ное количество дней.

//~~Author~~. Paul stuart //~~Email_Address~~. Paul.Stuart@schroders.com //~~Script_Type~~. Jscript //~~Sub_Type~~. DomainAdministration //~~Keywords~~. ADSI, last login date, domain, login //~~Comment~~. //Create a report showing users who haven't logged in to the Domain for X days or more. //Requires ADSI 2.5 and Jscript version 5. The results are sent to LOGFILE.TXT //~~Script~~. var sDomain = ""; // enter your domain here. var iCutOffDays = 0; // last login cut-off in days. var TRUE = 1; var ForReading = 1; var ForWriting = 2; var DAYMSECS = 86400000; // number of milliseconds in a day var DomObj, CollObj, sSubDir; var iNumUsers = 0; var CutOff; var WSHShell = new ActiveXObject("WScript.Shell"); var fs = new ActiveXObject("Scripting.FileSystemObject"); WSHShell.Popup("Starting Last Log Report " ); CutOff = new Date(); CutOff.setTime( CutOff.valueOf() - iCutOffDays*DAYMSECS ); DomObj = GetObject("WinNT://" + sDomain ); CollObj = new Enumerator(DomObj); for ( ; !CollObj.atEnd(); CollObj.moveNext()) { var Obj = CollObj.item(); if ( Obj.Class == "User" ) { iNumUsers++; try { if ( Obj.LastLogin < CutOff.valueOf() ) WriteLOG( Obj.name + " " + Obj.LastLogin ); } catch( ErrorObj ) { WriteLOG( Obj.name + " has never logged in" ); } } } WriteLOG("Total number of users is " + iNumUsers ); WSHShell.Popup("Finished"); WScript.Quit(); ////////////////////////////////////////////////////////////////////////////////// // WriteLOG // var LogFile = new Object(); function WriteLOG( sLogLine ) { var d = new Date(); if ( LogFile == null ) { LogFile = fs.OpenTextFile( ".\\Logfile.txt" , ForWriting, TRUE ); LogFile.WriteLine( sLogLine ); } else { LogFile.WriteLine( sLogLine ); } }

Окт. 19, 2006 // 15:33 | Комментарии (0)

скрипты для AD

примеры скриптов из книги Inside Active Directory (авт. Sakari Kouti and Mika Seitsonen)

http://blog.shakirov.com/entry/68/file/insideadsamples.zip

Окт. 19, 2006 // 15:39 | Комментарии (0)

VB скрипт который проводит сбор информации о доменных компьютерах.

VB скрипт который проводит сбор информации о доменных компьютерах.

dim strclass, objAD, obj dim invdate dim constmb, constgb, sizegb dim compname, temp, compad constmb=1048576 constgb=1073741824 strclass = array( "win32_ComputerSystem", "win32_bios", "win32_processor",_ "win32_diskdrive", "win32_videocontroller", "win32_NetworkAdapter",_ "win32_sounddevice", "win32_SCSIController", "win32_printer") set objAD=getobject("LDAP://CN=Computers,DC=akos-nissan,DC=local") objAD.filter=array("computer") on error resume next for each obj in objAD CompAD=right(obj.name, len(obj.name)-3) invdate = date temp="<html>"+chr(10)+"Дата сбора: " & invdate & "<table>"+chr(10) compname="" ' on error resume next set objWMIService = GetObject("winmgmts://"&CompAD&"/root\cimv2") i=0 s=0 d=0 q=0 ' sizegb="" for a=0 to 8 Set colitems = objwmiservice.instancesof(strclass(a)) for each objitem in colitems select case a case 0 temp=temp+"<tr><td>" temp=temp+"Имя компьютера"+"</td><td>"+objitem.name+ "</td>" + chr(10) temp=temp+"</tr>"+chr(10) temp=temp+"<tr><td>" temp=temp+"Оперативная память"+"</td><td>"+cstr(round(objitem.totalphysicalmemory/constmb))+ " MB</td>" + chr(10) temp=temp+"</tr>"+chr(10) temp=temp+"<tr><td>" temp=temp+"Модель компьютера"+"</td><td>"+objitem.model+ "</td>" + chr(10) temp=temp+"</tr>"+chr(10) compname=objitem.name case 1 temp=temp+"<tr><td>" temp=temp+"Материнская плата"+"</td><td>"+objitem.SMBIOSBIOSVersion+"</td>"+chr(10) temp=temp+"</tr>"+chr(10) temp=temp+"<tr><td>" temp=temp+"BIOS"+"</td><td>" + objitem.caption+"</td>"+chr(10)+"<td>"+chr(10)+"</td>" temp=temp+"</tr>"+chr(10) case 2 s=s+1 temp=temp+"<tr>"+chr(10)+"<td>" temp=temp+"Процессор"+cstr(s)+"</td>"+chr(10)+"<td>"+objitem.name+" Частота "+cstr(objitem.CurrentClockSpeed)+chr(10)+"</td>" temp=temp+"</tr>"+chr(10) case 3 i=i+1 temp=temp+"<tr>"+chr(10)+"<td>" if objitem.size > 0 then ' = nill then sizegb=cstr(round(objitem.size/constgb,2)) else sizegb=cstr(0) end if temp=temp+"Жесткий диск "+cstr(i)+"</td>"+chr(10)+"<td>"+objitem.model + " " + sizegb + " GB</td>" + chr(10) temp=temp+"</tr>"+chr(10) case 4 temp=temp+"<tr>"+chr(10)+"<td>" temp=temp+"Видеоконтролер"+"</td>"+chr(10)+"<td>"+objitem.caption+chr(10)+"</td>" temp=temp+"</tr>"+chr(10) case 5 if objitem.adaptertypeid=0 and objitem.netconnectionstatus=2 then temp=temp+"<tr>"+chr(10)+"<td>" temp=temp+"Сетевой адаптер"+"</td>"+chr(10) temp=temp+"<td>"+objitem.name+chr(10)+"</td>" temp=temp+"</tr>"+chr(10) end if case 6 temp=temp+"<tr>"+chr(10)+"<td>" temp=temp+"Звуковая карта"+"</td>"+chr(10) temp=temp+"<td>"+objitem.caption+chr(10)+"</td></tr>"+chr(10) case 7 temp=temp+"<tr>"+chr(10)+"<td>" temp=temp+"SCSI Адаптер"+"</td>"+chr(10) temp=temp+"<td>"+objitem.manufacturer+" "+objitem.caption+chr(10)+"</td></tr>"+chr(10) case 8 d=d+1 temp=temp+"<tr>"+chr(10)+"<td>" temp=temp+"Принтер "+cstr(d)+"</td>"+chr(10)+"<td>"+objitem.name+chr(10)+"</td>" temp=temp+"</tr>"+chr(10) end select next next 'Заключительная часть temp=temp+"</table></html>" 'Запись файла Dim fso, tf Set fso = CreateObject("Scripting.FileSystemObject") Set tf = fso.CreateTextFile(""&compname&".htm", True) tf.Write (temp) tf.Close next

Окт. 19, 2006 // 16:09 | Комментарии (0)

Скриптик для автоматического удаления log-ов и backup-ов

'========================================================================== ' ' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 3.1 ' ' NAME: remlogs.vbs ' ' AUTHOR: Подлячок ' DATE : 19.06.2005 ' ' COMMENT: Скриптик для автоматического удаления log-ов и backup-ов, срок актуальности которых истек. ' Срок после которго данный лог или бэкап вам уже точно не понадобиться определяется только вашим ' гражданским самосознанием, исходя из принципов разумности и политики вашей организации. '========================================================================== 'Объявляем пременные Dim Fso,File,BackupFolder,backupFiles,PathName,Result,Name,Output Dim Counter,CurrentDate,FileDate,WshShell,a,str 'Инициализируем переменные Counter=0 PathName="нужная вам папочка" 'Получаем значение текущей даты CurrentDate=Date 'Создаем объекты: WScript.Shell и Scripting.FileSysemObject Set WshShell=WScript.CreateObject("WScript.Shell") Set Fso=WScript.CreateObject("Scripting.FileSystemObject") 'Получаем объект - нужная нам папка Set BackupFolder=Fso.GetFolder(PathName) 'Получаем коллкцию объектов типа "File" из нужной папки Set backupFiles=BackupFolder.Files ' Цикл. Для каждого обекта-File из коллекции обектов - Files For Each File In backupFiles 'Получаем дату зоздания файла FileDate=File.DateCreated 'Получаем период между датой создания файла и текущей датой Result=CurrentDate-FileDate 'Если период между датой создания файла и текушей датой больше заданного значения, то 'удаляем файл и формируем строку, которую будем писать в лог-файл и строку которую мы будем выводить в наше сообщение '(можно не формировать строку здесь и далее это сделанно для наглядности). If Result>Количество дней после которого файлы будут удаляться Then Counter=Counter+1 str=Str + "Был удален файл" & File.Name & " " & CurrentDate & VbCrLf Name=Name & File.Name & VbCrLf File.Delete end If Next 'Открываем файл log.txt на запись (опционально) Set a=Fso.OpenTextFile("c:\log.txt",2,False) 'Записываем туда сформированную в цикле строку (опционально) a.WriteLine(Str) 'Закрываем файл (опционально) a.Close 'Выводим окно сообщения о том какие файлы мы удалили (опционально) Output=MsgBox("Было удаленно " & Counter & " файл(а/ов)" & vbCrLf & Name,64, "Output Box")

Окт. 19, 2006 // 16:35 | Комментарии (0)

Скрипт предназначен для введения пользователей в домен из экселя.

Скрипт предназначен для введения пользователей в домен из экселя.

Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open _ ("C:\Scripts\New_users.xls") intRow = 3 Do Until objExcel.Cells(intRow,1).Value = "" 'Здесь задаем куда проливать будем Set objOU = GetObject("LDAP://ou=Finance, dc=ВашДомен, dc=net") Set objUser = objOU.Create _ ("User", "cn=" & objExcel.Cells(intRow, 5).Value & objExcel.Cells(intRow,2).Value) objUser.userPrincipalName = (objExcel.Cells(intRow, 5).Value & (objExcel.Cells(intRow,2).Value & "@ВашДомен.net")) objUser.sAMAccountName = objExcel.Cells(intRow, 5).Value & (objExcel.Cells(intRow,2).Value) objUser.GivenName = objExcel.Cells(intRow, 1).Value objUser.SN = objExcel.Cells(intRow, 2).Value objUser.telephoneNumber = objExcel.Cells(intRow, 3).Value objUser.DisplayName = objExcel.Cells(intRow, 1).Value & " " & (objExcel.Cells(intRow,2).Value) objUser.Put "pwdLastSet", 0 objUser.SetInfo objUser.SetPassword objExcel.Cells(intRow, 4).Value Dim objOU, objUser, objRootDSE Dim strContainer, strLastUser, strDNSDomain, intCounter, intAccValue Set objRootDSE = GetObject("LDAP://RootDSE") strDNSDomain = objRootDSE.Get("DefaultNamingContext") strContainer = "OU=Finance ," intAccValue = 512 strContainer = strContainer & strDNSDomain set objOU =GetObject("LDAP://" & strContainer ) intCounter = 0 For each objUser in objOU If objUser.class="user" then objUser.Put "userAccountControl", intAccValue objUser.SetInfo intCounter = intCounter +1 strLastUser = objUser.Get ("name") End if next intRow = intRow + 1 Loop objExcel.Quit

Окт. 19, 2006 // 16:37 | Комментарии (0)

скрипт рекурсивно устанавливает всем пользователям домена атрибут "User must change password on next logon"

'скрипт рекурсивно устанавливает всем пользователям домена атрибут "User must change password on next logon" 'для корректной работы необходимо в переменной strMyDomain определить имя домена с точки зрения LDAP - 'т.е. все точки заменить на "DC=". Таким образом, домен argo.com превращается в DC=argo,DC=com 'в переменную strMyOU необходимо поместить наименование Organization Unit`а, юзеров которого необходимо подвергнуть 'процедуре изменения пароля. Dim strMyOU Dim strMyDomain Dim objOU, objUser Dim strContainer, strLastUser strMyOU = "argo" strMyDomain = "DC=argo,DC=com" sub recurs(ou) strContainer = "OU="+ou+"," + strMyDomain set objOU = GetObject("LDAP://" & strContainer ) For each objUser in objOU strLastUser = objUser.Get ("name") If objUser.Class="organizationalUnit" Then recurs(strLastUser+", OU="+ou) Elseif objUser.Class="user" Then objUser.Put "pwdLastSet", 0 objUser.SetInfo end if next end Sub recurs strMyOU WScript.Quit

Окт. 19, 2006 // 18:03 | Комментарии (1)