《AD域部署用到的一点脚本和事项》由会员分享,可在线阅读,更多相关《AD域部署用到的一点脚本和事项(9页珍藏版)》请在金锄头文库上搜索。
1、这些天,只能用辛苦两字来形容。有太多的感慨啊(此处省略1200余字.)首先,感谢Zeta老弟提供一个这个工具,可用“多、快、好、省”来概括,哦了!然后,到MS脚本站点(https:/ 下面这个脚本用来自动建立域、OU及用户帐号(隐去真实信息若干,下同,如有雷同,那是不可能Di)CreatOUUsers.vbs:-Set objDomain = GetObject(LDAP:/dc=test,dc=com,dc=cn)Set objOU = objDomain.Create(organizationalUnit, ou=CompanyName)objOU.SetInfoSet objOU1 =
2、GetObject(LDAP:/ou=CompanyName,dc=test,dc=com,dc=cn)Set objOU2 = objOU1.Create(organizationalUnit, ou=BIZS)objOU2.SetInfoSet objOU1 = GetObject(LDAP:/ou=CompanyName,dc=test,dc=com,dc=cn)Set objOU2 = objOU1.Create(organizationalUnit, ou=DEVS)objOU2.SetInfoSet objOU1 = GetObject(LDAP:/ou=CompanyName,d
3、c=test,dc=com,dc=cn)Set objOU2 = objOU1.Create(organizationalUnit, ou=FADS)objOU2.SetInfoSet objOU1 = GetObject(LDAP:/ou=CompanyName,dc=test,dc=com,dc=cn)Set objOU2 = objOU1.Create(organizationalUnit, ou=FADC)objOU2.SetInfoSet objOU1 = GetObject(LDAP:/ou=CompanyName,dc=test,dc=com,dc=cn)Set objOU2 =
4、 objOU1.Create(organizationalUnit, ou=FADU)objOU2.SetInfoDim UserCNDim UserENDim iUserCN = Array(_张三_,李四_,王二麻子_,域操作员_)UserEN = Array(_ZhangSan_,LiSi_,WangEr_,opt_)For i=0 To 3Set objOU = GetObject(LDAP:/ou=FADU,ou=CompanyName,dc=test,dc=com,dc=cn)Set objUser = objOU.Create(User, cn=&UserEN(i)objUser
5、.Put sAMAccountName, UserEN(i)objUser.Put Description, UserCN(i)objUser.SetInfoSet 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.SetInfoNext-效果像这样:-用户
6、帐号的默认设置是:用户名 ZhangSan全名注释 张三用户的注释国家(地区)代码 000 (系统默认值)帐户启用 Yes帐户到期 从不上次设置密码 2008-7-28 18:44密码到期 从不密码可更改 2008-7-28 18:44需要密码 No用户可以更改密码 Yes允许的工作站 All登录脚本用户配置文件主目录上次登录 从不可允许的登录小时数 All本地组成员全局组成员 *Domain Users注:默认登录密码comp123321 ,复杂度要求先用域帐号策略去掉,否则密码不符合复杂度要求,脚本会停止运行。-下面这个脚本,是用来在DHCP中自动绑定MAC地址的,由于前后动用了2台DHC
7、P,涉及4种类型用户的地址(域用户、排除地址),然后考虑交叉地址,考虑IPSEC防火墙掩码,整个DHCP的配置、测试工作也只能用“辛苦”来形容。DHCP2ReservedIp.vbs:-Dim CompNameDim MICAddrDim iDim jCompName = Array(_LinYiYu_,ZhouJing_,ZhuHaifeng_,LinLei(Stone)_)MICAddr = Array(_0016D3301714_,001A6B6A30D9_,0015587ECAC4_,0016D3C67BFF_)j=129set ws=wscript.Createobject(wscr
8、ipt.shell)For i=0 To 3ws.run(cmd.exe /c netsh dhcp server scope 192.168.32.0 add reservedip 192.168.33.&j& &MICAddr(i)& &CompName(i)& &CompName(i)& Both )j=j+1Nextwscript.quit-效果像这样:-为了处理一长串的数组变量,首先得由客户去协助使用excel搜集到相关信息,然后少不了UltraEdit工具的帮助,就像这样:然后就可以粘到脚本里去处理了。-最后,一个注意事项。为了客户机加入域的操作,我专门建立了一个低权限的Domain Users组的帐号opt(这样可以让客户方,去干加入域这种“苦力活”Action,也显得他们比较忙碌的样子,嘿嘿),发现默认只能加入10台计算机到域,查了一下KB(微软知识库),选取下面这种方法,顺利解决这个次数限制问题:就是给Computer容器的Authenticated Users加入创建、删除计算机对象权限,即可。