学步园

1. Dim objInfo
2. Const ADS_SCOPE_SUBTREE = 2
4. Set fso = CreateObject("Scripting.FileSystemObject")
5. Set objFile = fso.OpenTextFile("Userinfo.csv")
7. Set objConnection = CreateObject("ADODB.Connection")
8. Set objCommand =   CreateObject("ADODB.Command")
9. objConnection.Provider = "ADsDSOObject"
10. objConnection.Open "Active Directory Provider"
11. Set objCommand.ActiveConnection = objConnection
12. objCommand.Properties("Page Size") = 1000
13. objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
15. Do
16. On Error Resume Next
17.         objInfo = Split(objfile.ReadLine,",")
18.         strDN = FindUserDN(objInfo(0))
19.         Set objUser = GetObject("LDAP://" & strDN)
20.         objUser.Put "description",objInfo(1)
21.         objUser.SetInfo       
22.         If Err.Number <> 0 Then
23.                 WScript.Echo "Error:" & objInfo(0) & "," & objInfo(1)
24.         End If
25.         strDN = ""
26. Loop Until objfile.AtEndOfStream = True
28. objfile.Close
30. WScript.Echo "Done!"
32. Function FindUserDN(strUserDisplayName)
33.         objCommand.CommandText = _
34.             "SELECT distinguishedName FROM 'LDAP://OU=test,DC=contoso,DC=com' WHERE objectCategory='user' " & _
35.                 "AND displayname = '" & strUserDisplayName & "'"
36.         Set objRecordSet = objCommand.Execute
37.         objRecordSet.MoveFirst
38.         Do Until objRecordSet.EOF
39.             arrDN = objRecordSet.Fields("distinguishedName").Value
40.             If IsArray(arrDN) = True Then
41.                     WScript.Echo strUserDisplayName
42.                     FindUserDN = arrDN(0)
43.             Else
44.                     FindUserDN = arrDN
45.             End if
46.             objRecordSet.MoveNext
47.         Loop
48.         If Err.Number <> 0 Then
49.                 WScript.Echo Err.Description & ":" & strUserDisplayName
50.                 Err.Clear
51.         End If       
52. End Function

 

需要在脚本同目录下放一个名为Userinfo.csv的文件，格式为"用户显示名,工号"
然后修改相关的LDAP路径使之符合你的AD结构
最后请使用cscript执行本脚本

原文：http://bbs.winos.cn/viewthread.php?tid=36398&extra=&page=1