AD域部署用到的一点脚本和事项.docVIP

这些天,只能用辛苦两字来形容。 ? 有太多的感慨啊（此处省略1200余字....) ? 首先，感谢Zeta老弟提供一个这个工具，可用“多、快、好、省”来概括，哦了！ ? 然后，到MS脚本站点 (/china/technet/community/scriptcenter/scripts/default.mspx) 爬了些代码，结合自己用到过的命令，改改,测测，体会了一把“弹指一挥”的感受。 ? 下面这个脚本用来自动建立域、OU及用户帐号(隐去真实信息若干，下同，如有雷同，那是不可能Di) CreatOUUsers.vbs: ----------------------------------------------------------- Set objDomain = GetObject(LDAP://dc=test,dc=com,dc=cn) Set objOU = objDomain.Create(organizationalUnit, ou=CompanyName)objOU.SetInfo Set objOU1 = GetObject(LDAP://ou=CompanyName,dc=test,dc=com,dc=cn) Set objOU2 = objOU1.Create(organizationalUnit, ou=BIZS)objOU2.SetInfo Set objOU1 = GetObject(LDAP://ou=CompanyName,dc=test,dc=com,dc=cn) Set objOU2 = objOU1.Create(organizationalUnit, ou=DEVS)objOU2.SetInfo Set objOU1 = GetObject(LDAP://ou=CompanyName,dc=test,dc=com,dc=cn) Set objOU2 = objOU1.Create(organizationalUnit, ou=FADS)objOU2.SetInfo Set objOU1 = GetObject(LDAP://ou=CompanyName,dc=test,dc=com,dc=cn) Set objOU2 = objOU1.Create(organizationalUnit, ou=FADC)objOU2.SetInfo Set objOU1 = GetObject(LDAP://ou=CompanyName,dc=test,dc=com,dc=cn) Set objOU2 = objOU1.Create(organizationalUnit, ou=FADU)objOU2.SetInfo Dim UserCNDim UserENDim i UserCN = Array(_张三_,李四_,王二麻子_,域操作员_) UserEN = Array(_ZhangSan_,LiSi_,WangEr_,opt_) For i=0 To 3 Set objOU = GetObject(LDAP://ou=FADU,ou=CompanyName,dc=test,dc=com,dc=cn) Set objUser = objOU.Create(User, cn=UserEN(i))objUser.Put sAMAccountName, UserEN(i)objUser.Put Description, UserCN(i)objUser.SetInfo Set objUser = GetObject(LDAP://cn=UserEN(i),ou=FADU,ou=CompanyName,dc=test,dc=com,dc=cn) objUser.SetPassword comp123321objUser.AccountExpirationDate = 01/01/1970objUser.AccountDisabled = FALSEobjUser.SetInfo Next ----------------------- 效果像这样： --------------------------- 用户帐号的默认设置是： 用户名???????????????? ZhangSan 全名?????????????????? 注释?????????????????? 张三 用户的注释???????????? 国家(地区)代码???????? 000 (系统默认值) 帐户启用?????????????? Yes 帐户到期?????????????? 从不 ? 上次设置密码?????????? 2008-7-28 18:44 密码到期?????????????