回复: 脚本寻求帖，大家需要什么脚本的发到这个帖子里.
根据洛洛的要求，写了一个批量修改用户账户和电脑账户属性的脚本,另外我还加进去了ou和容器的批量属性修改.
用的时候要注意：双击之后，code里面的汉字部分将会覆盖所有的 用户帐号\电脑帐号\ou\容器 的属性，如果是在实际生产环境中，
千万要三思而后行！不过不用担心,你不想改变某个属性，直接把那行删除或者comment掉就可以了.
'==========================================================================
'
' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 4.1
'
' NAME:
'
' AUTHOR: Steven , Steven
' DATE : 2007-8-18
'
' COMMENT:
'
'==========================================================================
Dim oRoot
Set oRoot=GetObject("LDAP://RootDSE")
sDomain = oRoot.Get("defaultNamingContext")
Set oDomain = GetObject("LDAP://" & sDomain)
JustDoIt oDomain
Sub JustDoIt(oContainer)
Dim oMyObject
For Each oMyObject in oContainer
Select Case oMyObject.Class
'这个是用户的
Case "user"
oMyObject.put "displayName", "显示名字写在这儿"
oMyObject.put "physicalDeliveryOfficeName", "办公室写在这儿"
oMyObject.put "telephoneNumber", "电话写在这儿"
oMyObject.put "mail", "电邮写在这儿"
oMyObject.put "url", "网页写在这儿"
oMyObject.put "st", "省市写在这儿"
oMyObject.put "postalCode", "邮编写在这儿"
oMyObject.put "co", "国家"
oMyObject.put "postOfficeBox", "邮箱地址写在这儿"
oMyObject.put "streetAddress", "街道写在这儿"
oMyObject.put "description", "描述写在这儿"
oMyObject.SetInfo
'这个是电脑帐户的
Case "computer"
oMyObject.put "description", "描述写在这儿"
oMyObject.SetInfo
'这个是ou和容器的
Case "organizationalUnit" , "container"
oMyObject.put "description", "描述写在这儿"
oMyObject.SetInfo
JustDoIt(oMyObject)
End select
Next
End Sub
Steven 最后编辑于 2007-08-19 17:34:04
