利用VBS批量更改AD使用者資訊

工作需要從Excel檔案中批量導入使用者的職位，部門，電話和手機等資訊到AD使用者（在Outlook或者Lync中顯示），Google了半天搞了這個VBS腳本。

使用時需要建立useinfo.csv檔案，每行内容依次為AD使用者的Display Name（全名），職位，部門，電話，手機，所屬公司。假如域名為ABC.local，需要處理的OU為testOU；userinfo.csv同目錄，腳本内容如下：

Dim userInfo

Dim userCounter

Const ADS_SCOPE_SUBTREE = 2

Set fso = CreateObject("Scripting.FileSystemObject")

Set objFile = fso.OpenTextFile("Userinfo.csv")

Set objConnection = CreateObject("ADODB.Connection")

Set objCommand =   CreateObject("ADODB.Command")

objConnection.Provider = "ADsDSOObject"

objConnection.Open "Active Directory Provider"

Set objCommand.ActiveConnection = objConnection

objCommand.Properties("Page Size") = 1000

objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE

userCounter = 0

Do

On Error Resume Next

        userInfo = Split(objfile.ReadLine,",")

        strDN = FindUserDN(userInfo(0))

        Set objUser = GetObject("LDAP://" & strDN)

        objUser.Put "title", userInfo(1)

        objUser.Put "department", userInfo(2)

        objUser.Put "telephoneNumber", userInfo(3)

        objUser.Put "mobile", userInfo(4)

        objUser.Put "company", userInfo(5)

        objUser.SetInfo       

        userCounter = userCounter + 1

        If Err.Number <> 0 Then

               userCounter = userCounter -1

               WScript.Echo "Failed user:  " & userInfo(0) 

        End If

        strDN = ""

Loop Until objfile.AtEndOfStream = True

objfile.Close