通過VBA檢索AD中的用戶

2024-05-04 11:07:13

字體：大中小

來源：轉載

供稿：網友

VBA作為一種被用在Microsoft Office產品中的腳本語言，功能實際上是很強大的，這要歸功于它繼承了Visual Basic的很多優良傳統，如我們可以在VBA工程中像VB 6一樣引入類庫或ActiveX控件。當然，你在VB 6中使用的組件或控件也完成可以在VBA中使用，例如日期輸入組件。　　　　VBA支持ADO，這也意味著我們可以在VBA中操作數據庫，包括SQL Server、Access等。正因為如此，你可以嘗試著在Excel中編寫一個VBA程序來將Excel作為一個用于數據同步的中間件，該中間件可以用來同步應用程序與后臺數據庫中的數據，并在其中做一些處理。這是完全可以做到的！我在之前的一個項目中就曾做過這樣的例子，我們甚至通過Excel同步了SQL Server和Sharepoint List之間的數據（這個我會在隨后的一些中再做介紹）。　　　　ADO的功能也很強大，我們可以在其中執行Windows腳本，經常使用的就是通過它來管理Windows Server的AD，如遍歷AD中的賬戶，批量修改AD中的賬戶等，這已經沒有什么好奇怪的了，你完全可以在 Windows上使用記事本編寫一個vbs腳本，然后直接使用它來管理你服務器上的AD，當然，基于安全考慮，這些都是需要適當的執行權限的。這些工作通過VBA也可以完成，并且在Excel中你會發覺有的時候很方便，如借用Excel現有的UI來展現所操作的數據；基于所查詢的數據來生成圖表；使用Excel提供的功能修改數據；遍歷和組織數據的方便性等等...　　　　下面我給出一個示例。在新的Sheet中添加一個ActiveX Button，然后添加下面的代碼?！　　　rivate　Sub CommandButton1_Click()　　　　On　Error　Resume　Next　　　　Const ADS_SCOPE_SUBTREE =　2　　　　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　　　　objCommand.CommandText = _　　　　"SELECT Name FROM 'LDAP://dc=XXX,dc=com' WHERE objectCategory='user'"　'search all users from the domn XXX　　　　Set objRecordSet = objCommand.Execute　　　　objRecordSet.MoveFirst　　　　Dim currCell As Range　　　　Set currCell = Range("A1")　　　　Do Until objRecordSet.EOF　　　　currCell.Value = objRecordSet.fields("Name").Value　　　　Set currCell = currCell.Offset(1, 0)　　　　objRecordSet.MoveNext　　　　Loop　　　　End Sub　　　　代碼中我使用了一個假象的域名稱XXX，讀者如果想要測試可將其改成真實的域名稱。我們使用ADO對所指定的域進行了用戶查詢，并將域中所有用戶的Name依次輸出到Excel當前Sheet的第一列中，下面是輸出結果的部分截圖?！　　　∮嘘P如何通過腳本操作AD，讀者可以參考一下Microsoft的官方文檔　　　　如果權限允許，稍微修改一下上面的代碼，完全可以實現批量修改AD中的賬戶的功能，鑒于公司網絡環境，這里不方便進行測試了，讀者如果有條件可以自己嘗試。

上一篇：ASP中實現分頁顯示的七種武器

下一篇：ASP程序在VB中轉換為組件的技巧