set adsou=getobject("ldap://cn=users,dc=hzcncter,dc=local") const forreading = 1 set objfso = createobject("scripting.filesystemobject") set objtextfile = objfso.opentextfile _ ("users.txt", forreading) do until objtextfile.atendofstream strnextline = objtextfile.readline arruserlist = split(strnextline , ",") struser=arruserlist(0) strpass=arruserlist(1) set adsuser=adsou.create("user","cn=" & struser) adsuser.put "samaccountname", struser adsuser.put "userprincipalname", struser & "@hzcncter.local" adsuser.setinfo adsuser.setpassword strpass adsuser.accountdisabled=false adsuser.setinfo loop