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

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

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

Слова: Active Directory, AD, windows, script
Oct. 19, 2006 // 16:37 [ permalink : LJ ]