很多的企业都有这样的要求:希望整理自己的computers容器中的计算机,根据计算机名将其添加到对应的OU中去,但如果由人力来实现的话,工作量非常大,所以,在这次给某个企业实施项目的时候,我随手写了一个脚本,该脚本会自动将计算机加入到对应的OU中去。用户可以自己改写一下脚本,以适应自己的情况,我的脚本里对计算机名截取了2个字符。
dim strADsPath
dim sResultText
Const ADS_SCOPE_SUBTREE = 2
Set con = CreateObject(“ADODB.Connection”)
Set com = CreateObject(“ADODB.Command”)
‘Open the connection with the ADSI-OLEDB provider name
con.Provider = “ADsDSOObject”
con.Open
Com.ActiveConnection = con
Com.CommandText = “<LDAP://cn=computers,DC=contoso,DC=com>;” & “(objectClass=computer);name;subTree”
Set rs = Com.Execute()
i=0
Do Until rs.EOF
sResultText=rs.Fields(“name”).value
Select Case left(sResultText,2)
Case “c1″
strADsPath=”LDAP://cn=” & sResultText & “,cn=computers,dc=contoso,dc=com”
set objou=getobject(“LDAP://ou=ouc1,dc=contoso,dc=com“)
objou.movehere strADsPath,vbNullString
Case “c2″
strADsPath=”LDAP://cn=” & sResultText & “,cn=computers,dc=contoso,dc=com”
set objou=getobject(“LDAP://ou=ouc2,dc=contoso,dc=com“)
objou.movehere strADsPath,vbNullString
Case “c3″
strADsPath=”LDAP://cn=” & sResultText & “,cn=computers,dc=contoso,dc=com”
set objou=getobject(“LDAP://ou=ouc3,dc=contoso,dc=com“)
objou.movehere strADsPath,vbNullString
Case “c4″
strADsPath=”LDAP://cn=” & sResultText & “,cn=computers,dc=contoso,dc=com”
set objou=getobject(“LDAP://ou=测试,dc=contoso,dc=com”)
objou.movehere strADsPath,vbNullString
End Select
rs.MoveNext
Loop
con.close
然后,在控制面板的“定期任务”中,将此脚本指定多少时间执行一次,然后输入执行的用户和密码,即可。