向域中批量创建用户-创新互联
------使用CSVDE----------
DN,ObjectClass,SAMAccountName,userPrincipalName,displayName,userAccountcontrol
"cn=Alice,ou=HR,dc=contoso,dc=com",user,Alice,Alice@contoso.com,hujintao,512
"cn=Bob,ou=HR,dc=contoso,dc=com",user,Alice,wenjiabao@contoso.com,Alice,512
执行命令:CSVDE -i -f 111.txt
------使用LDIFDE------------------
DN:cn=Alice, ou=Sales,dc=contoso,dc=com
changetype:add
objectClass:user
SAMAccountName:Alice
userPrincipalName:Alice@contoso.com
displayName:Alice
userAccountControl:514
DN:cn=Alice, ou=Sales,dc=contoso,dc=com
changetype:delete
DN:cn=Alice, ou=Sales,dc=contoso,dc=com
changetype:modify
replace:sAMAccountName
sAMAccountName:ContosoAlice
-
replace:userPrincipalName
userPrincipalName:contosoAlice@contoso.com
-
执行命令:Ldifde -i -f 222.txt
-----VBS脚本-----
Set objDomain = GetObject("LDAP://dc=contoso,dc=com")
Set objOU=objDomain.Create("OrganizationalUnit","OU=Finance")
objOU.SetInfo
----创建OU
Set objOU=GetObject("LDAP://OU=Finance,dc=contoso,dc=com")
Set objUser=objOU.Create("User","cn=Allen")
objuser.Put "sAMAccountName","Allen"
objuser.Setinfo
objUser.SetPassword "123.com"
objuser.AccountDisabled=FALSE
objuser.Setinfo
----创建用户
Set objOU=GetObject("LDAP://OU=Finance,dc=contoso,dc=com")
Set objGroup=objOU.Create("Group","cn=FinanceGroup")
objGroup.Put "sAMAccountName","FinanceGroup"
objGroup.Setinfo
objGroup.Add objUser.ADSPath
objGroup.SetInfo
---创建组,并且把用户加入组
Wscript.echo "Script Ended Successfully"
-----使用DSADD的命令添加----------
王一,王,一,wangyi,P@ssw0rd
王二,王,二,wanger,P@ssw0rd
王三,王,三,wangsan,P@ssw0rd
王四,王,四,wangsi,P@ssw0rd
C:\>for /f "tokens=1,2,3,4,5 delims=," %a in (test.csv) do dsadd user "cn=%d,ou=
Sales,dc=contoso,dc=com" -samid %d -upn %d@contoso.com -ln %b -fn %c -pwd %e
-disabled yes
另外有需要云服务器可以了解下创新互联scvps.cn,海内外云服务器15元起步,三天无理由+7*72小时售后在线,公司持有idc许可证,提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案,具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势,专为企业上云打造定制,能够满足用户丰富、多元化的应用场景需求。
网站题目:向域中批量创建用户-创新互联
链接URL:http://azwzsj.com/article/djhoho.html