Tạo User Bằng Excel

BướctrướctiênchúngtatạomộtfilesExcelvớicáctrườngnhưhìnhminhhọa:Trongbàilabnàytôichỉlàmdemokhởtạo4Usertrên2OUlàITvàSales. objectClass User: phần này tức là đối tượng khởi tạo là UsersAMAccountName : tên tài khoản khi logon vào Domain Controller .DN Distinguishedname : bao gồm CN firstname, DC = têndomain của bạn bao gồm từngphần tạo thành .
Nội dung trích xuất từ tài liệu:
Tạo User Bằng ExcelBướctrướctiênchúngtatạomộtfilesExcelvớicáctrườngnhưhìnhminhhọa:Trongbàilabnàytôichỉlàmdemokhởtạo4Usertrên2OUlàITvàSales.objectClassUser:phầnnàytứclàđốitượngkhởitạolàUsersAMAccountName:têntàikhoảnkhilogonvàoDomainController.DNDistinguishedname:baogồmCNfirstname,DC=têndomaincủabạnbaogồmtừngphầntạothành.Vídụ*****.com.vnthìsẽlàdc=*****,dc=com,dc=vn.BướctiếptheosaukhilàmxongdanhsáchngườidùngbạntiếnhànhexportratheođịnhdạngCSV:SaukhixongtacopytoànbộlênmàychủDomainControllervàlưutạithưmục:C:csvAccount.csv.TrướckhidùngcommandđểImportfilesExcelthìtaphảitiếnhànhtạotrướcOU.TrongtrườnghợpnàylàOU:IT,SalesSaukhitạoOUxongtatiếnhànhdùngcommandđểImportnhữngusertrongfilesExceltađãtạora:Command:Code: CVSDE -i -f c:csvAccount.csvSaukhithànhcôngmặcđịnhcáctàikhoảncủachúngtasẽbịDisablevàcácUserđềukhôngđượcđặtpasswordtheodạngStrongPasswordcủaDomainPolicies.TadùngmộtđoạnVBScriptschophépthiếtlậptấtcảpasswordbanđầuchocácaccountmớikhởitạolà:123456a@vàmặcđịnhnósẽEnablechotấtcảaccountcủataluôn:Code: PwdLastSet.vbs Example VBScript to FORCE a users password change Author Ulrich P amended by Guy Thomas Version 2.0 - October 17th 2004 --------------------------------------------------------- Option Explicit Dim objOU, objUser, objRootDSE Dim strContainer, strLastUser, strDNSDomain, strPassword Dim intCounter, intAccValue, intPwdValue Set objRootDSE = GetObject(LDAP://RootDSE) strDNSDomain = objRootDSE.Get(DefaultNamingContext) intAccValue = 544 intPwdValue = 0 -------------------------------------------------------- Important change OU= to reflect your domain -------------------------------------------------------- strContainer = OU=Sales, strPassword = 123456a@ ------------------------------------------------------- Makes the user change P@ssw0rd at first logon ------------------------------------------------------- strContainer = strContainer & strDNSDomain set objOU =GetObject(LDAP:// & strContainer ) intCounter = 0 For each objUser in objOU If objUser.class=user then objUser.SetPassword strPassword objUser.SetInfo objUser.Put pwdLastSet, intPwdValue objUser.SetInfo objUser.Put userAccountControl, intAccValue objUser.SetInfo intCounter = intCounter +1 strLastUser = objUser.Get (name) End if next WScript.Echo strPassword & is Password. UserAccountValue = _ & intAccValue WScript.Quit End of ScriptTacopyđoạncodenàyrồisavelại:PwdLastSet.vbs.Rồichạy.SauđólạitiếnhànhthaythếOU=ITnữa.Rồichạylạilầnnữa.ChúývìđoạnScirptsnàychỉcótácdụngtrêntừngOU.NênnếutacónhiềuOUthìphảichạynhiềulần.Cuốicùngtakiểmtrabằngcáchthửđangnhậpvàomộttàikhoảntrongdanhsách.Vớipasswordlà:123456a@Saukhiđăngnhậpvàohệthốngsẽtựhiệnlênthôngbáođòiđổipasswordtronglầnloginđầutiên.Vậytheocáchnàychúngtađãcóthểimporthàngtrămusertừmộtfilesexcelchosẵn.Tiếtkiệmthờigiancũngnhưquảntrị.Chúccácbạnthànhcôngnhé.