vbscript脚本-批量添加AD域测试账号

Set objRootDSE = GetObject("LDAP://rootDSE")   '取域名,不用修改
Set objCOntainer=GetObject("LDAP://ou=da,ou=OUYinshuai,"&objRootDSE.Get("defaultNamingContext")) 'ou=SUB,ou=DEM,从前往后一次为子部门、父部门
 
'Set objContainer = GetObject("LDAP://ou=测试部门,ou=安信证券," & objRootDSE.Get("defaultNamingContext")) 

For j = 1 To 2
    i="ut" & j
    Set objUser = objContainer.Create("User", "cn=tt" & i) 
    '账户-------------------------------------------------------------------------------
    objUser.Put "userPrincipalName", "userPrincipalName" & i & "@wangpan.com"    '用户登录名-主要名称
    objUser.Put "sAMAccountName", "sAMAccountName" & i    '用户登录名-2000以前版本
    '常规-------------------------------------------------------------------------------
    objUser.Put "Sn", "姓" & i                        '验证大小写
    objUser.Put "givenName", "名" & i
    objUser.Put "displayName", "displayName" & i
    objUser.Put "initials", "e" & i
    objUser.Put "description", "用户描述description" & i
    objUser.Put "physicalDeliveryOfficeName", "办公室physicalDeliveryOfficeName" & i
    objUser.Put "telephoneNumber", "010-8888" & i
    objUser.Put "mail", "email" & i & "@e.com"
    objUser.Put "wWWHomePage", "http://homepage_" & i & ".com"
    '电话-------------------------------------------------------------------------------
    objUser.Put "homePhone", "010-1111" & i
    objUser.Put "pager", "020-2222" & i
    objUser.Put "facsimileTelephoneNumber", "030-3333" & i '传真号
    objUser.Put "mobile", "1888888" & i '移动电话
    objUser.Put "ipPhone", "040-4444" & i
    objUser.Put "info", "用户-电话-注释信息" & i
    
    '组织-------------------------------------------------------------------------------
    objUser.Put "company", "wangpan"
    objUser.Put "department", "OU=OUYinshuai,DC=wangpan,DC=com"
    objUser.Put "title", "职务名称xxx"
    objUser.Put "manager", "CN=yinxiaopeiyxp,OU=OUYinshuai,DC=wangpan,DC=com" '部门经理
    
    '地址-------------------------------------------------------------------------------
    objUser.Put "c", "CN"
    objUser.Put "postalCode", "010110" '邮政编码
    objUser.Put "st", "省份A"
    objUser.Put "l", "城市B"
    objUser.Put "streetAddress", "街道C"
    objUser.Put "postOfficeBox", "朝阳110110"

    objUser.SetInfo
    objUser.SetPassword "111111" 
    objUser.AccountDisabled = FALSE
    objUser.SetInfo
Next