ADsDSOObject

The Active Directory Services Data Services Objects "ADSDSO" is a collection of COM objects that serves as an OLEDB data provider when connecting to Active Directory Services. Below are some practical VbScripts that use ADSDSO to help you when trying to automate functions within your Active Directory.

VbScript that use ADsDSOObject

1. List All Computer Accounts in Active Directory - VBScript Active Directory
... CreateObject (" ADODB.Connection ") Set objCommand = CreateObject (" ADODB.Command ") objConnection.Provider =" ADsDSOObject" objConnection.Open" Active Directory Provider" Set objCOmmand.ActiveConnection = objConnection objCommand.CommandText =_" Select ...
 

 
2. Search for Specific Computer Accounts - VBScript Active Directory
... CreateObject (" ADODB.Connection ") Set objCommand = CreateObject (" ADODB.Command ") objConnection.Provider =" ADsDSOObject" objConnection.Open" Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.CommandText =_" Select ...
 

 
3. List the Active Directory Groups a User Belongs To - VBScript Active Directory
... Next End If Set objConnection = CreateObject (" ADODB.Connection ") objConnection.Open" Provider = ADsDSOObject ;" Set objCommand = CreateObject (" ADODB.Command ") objCommand.ActiveConnection = objConnection objCommand.CommandText =_" ;( ...
 

 
4. List the Primary Group for a User Account - VBScript Active Directory
... (" primaryGroupID ") Set objConnection = CreateObject (" ADODB.Connection ") objConnection.Open" Provider = ADsDSOObject ;" Set objCommand = CreateObject (" ADODB.Command ") objCommand.ActiveConnection = objConnection objCommand.CommandText =_" ;( ...
 

 
5. Assign a New Group Policy Link to an OU - VBScript Active Directory
... objContainer.SetInfo Function GetGPOADsPath Set objConnection = CreateObject (" ADODB.Connection ") objConnection.Open" Provider = ADsDSOObject ;" Set objCommand = CreateObject (" ADODB.Command ") objCommand.ActiveConnection = objConnection objCommand.CommandText =_" ;;" ...
 

 
6. List Group Policy Information for an OU - VBScript Active Directory
... If Function GetGPOName Set objConnection = CreateObject (" ADODB.Connection ") objConnection.Open" Provider = ADsDSOObject ;" Set objCommand = CreateObject (" ADODB.Command ") objCommand.ActiveConnection = objConnection objCommand.CommandText =_" ;;" ...
 

 
7. List All Domain Controllers - VBScript Active Directory
... CreateObject (" ADODB.Connection ") Set objCommand = CreateObject (" ADODB.Command ") objConnection.Provider =" ADsDSOObject" objConnection.Open" Active Directory Provider" Set objCOmmand.ActiveConnection = objConnection objCommand.CommandText =_" Select ...
 

 
8. Search for a User Account in Active Directory - VBScript Active Directory
... (Now ()) Set objConnection = CreateObject (" ADODB.Connection ") objConnection.Open" Provider = ADsDSOObject ;" Set objCommand = CreateObject (" ADODB.Command ") objCommand.ActiveConnection = objConnection objCommand.CommandText =_" ;(&( ...
 

 
9. List All the Disabled User Accounts in Active Directory - VBScript Active Directory
... ADS_UF_ACCOUNTDISABLE = 2 Set objConnection = CreateObject (" ADODB.Connection ") objConnection.Open" Provider = ADsDSOObject ;" Set objCommand = CreateObject (" ADODB.Command ") objCommand.ActiveConnection = objConnection objCommand.CommandText =_" ;( ...
 

 
10. List Active Directory Data in a Spreadsheet - VBScript Microsoft Office
... CreateObject (" ADODB.Connection ") Set objCommand = CreateObject (" ADODB.Command ") objConnection.Provider =" ADsDSOObject" objConnection.Open" Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.Properties (" Page Size ") ...
 

 
11. List All Published Printers - VBScript Printing
... CreateObject (" ADODB.Connection ") Set objCommand = CreateObject (" ADODB.Command ") objConnection.Provider =" ADsDSOObject" objConnection.Open" Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.CommandText =" Select printerName ...
 

 
12. Search Active Directory for Specific Printers - VBScript Printing
... CreateObject (" ADODB.Connection ") Set objCommand = CreateObject (" ADODB.Command ") objConnection.Provider =" ADsDSOObject" objConnection.Open" Active Directory Provider" Set objCOmmand.ActiveConnection = objConnection objCommand.CommandText =" Select printerName ...
 

 
13. Use a Search to Modify Similar Active Directory Objects - VBScript Scripting Techniques
... Platforms VBScript Code Set objConnection = CreateObject (" ADODB.Connection ") objConnection.Open" Provider = ADsDSOObject ;" Set objCommand = CreateObject (" ADODB.Command ") objCommand.ActiveConnection = objConnection objCommand.CommandText =_" ;" ...
 

 
14. Use a Search to Move Similar Active Directory Objects - VBScript Scripting Techniques
... Platforms VBScript Code Set objConnection = CreateObject (" ADODB.Connection ") objConnection.Open" Provider = ADsDSOObject ;" Set objCommand = CreateObject (" ADODB.Command ") objCommand.ActiveConnection = objConnection objCommand.CommandText =_" ;" ...
 

 
15. Verify Whether Attributes are Indexed and-or in the Global Catalog - VBScript Scripting Techniques
... IS_INDEXED = 1 Set objConnection = CreateObject (" ADODB.Connection ") objConnection.Open" Provider = ADsDSOObject ;" Set objCommand = CreateObject (" ADODB.Command ") objCommand.ActiveConnection = objConnection objCommand.Properties (" Sort On ") ...
 

 
16. Create a Department Phone List - VBScript Scripting Techniques
... CreateObject (" ADODB.Connection ") Set objCommand = CreateObject (" ADODB.Command ") objConnection.Provider =" ADsDSOObject" objConnection.Open" Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.CommandText =_" SELECT ...
 

 
17. Add Specific Users to a Group - VBScript Scripting Techniques
... CreateObject (" ADODB.Connection ") Set objCommand = CreateObject (" ADODB.Command ") objConnection.Provider =" ADsDSOObject" objConnection.Open" Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.CommandText =_" SELECT ...
 

 
18. Search for a SAM Account Name - VBScript Scripting Techniques
... CreateObject (" ADODB.Connection ") Set objCommand = CreateObject (" ADODB.Command ") objConnection.Provider = (" ADsDSOObject ") objConnection.Open" Active Directory Provider" objCommand.ActiveConnection = objConnection objCommand.CommandText =" SELECT samAccountName FROM ...
 

 
19. Perform a Search Using Alternate Credentials - VBScript Scripting Techniques
... CreateObject (" ADODB.Connection ") Set objCommand = CreateObject (" ADODB.Command ") objConnection.Provider =" ADsDSOObject" objConnection.Properties (" User ID ") =" Administrator" objConnection.Properties (" Password ") = "+ ...
 

 
20. Search for All Non-User Accounts - VBScript Scripting Techniques
... CreateObject (" ADODB.Connection ") Set objCommand = CreateObject (" ADODB.Command ") objConnection.Provider =" ADsDSOObject" objConnection.Open" Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.Properties (" Page Size ") ...
 

 
21. Search for All Users Using an LDAP Query - VBScript Scripting Techniques
... CreateObject (" ADODB.Connection ") Set objCommand = CreateObject (" ADODB.Command ") objConnection.Provider =" ADsDSOObject" objConnection.Open" Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.Properties (" Page Size ") ...
 

 
22. Search for All Groups in Active Directory - VBScript Scripting Techniques
... CreateObject (" ADODB.Connection ") Set objCommand = CreateObject (" ADODB.Command ") objConnection.Provider =" ADsDSOObject" objConnection.Open" Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.Properties (" Page Size ") ...
 

 
23. Search for Attributes in the Global Catalog - VBScript Scripting Techniques
... ADS_SCOPE_SUBTREE = 2 Set objConnection = CreateObject (" ADODB.Connection ") objConnection.Open" Provider = ADsDSOObject ;" Set objCommand = CreateObject (" ADODB.Command ") objCommand.ActiveConnection = objConnection objCommand.Properties (" Searchscope ") = ...
 

 
24. Search for Global Security Groups - VBScript Scripting Techniques
... CreateObject (" ADODB.Connection ") Set objCommand = CreateObject (" ADODB.Command ") objConnection.Provider =" ADsDSOObject" objConnection.Open" Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.Properties (" Page Size ") ...
 

 
25. Search for Multiple Attributes - VBScript Scripting Techniques
... CreateObject (" ADODB.Connection ") Set objCommand = CreateObject (" ADODB.Command ") objConnection.Provider =" ADsDSOObject" objConnection.Open" Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.Properties (" Page Size ") ...
 

 
26. Search for All Users in Active Directory - VBScript Scripting Techniques
... CreateObject (" ADODB.Connection ") Set objCommand = CreateObject (" ADODB.Command ") objConnection.Provider =" ADsDSOObject" objConnection.Open" Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.Properties (" Page Size ") ...
 

 
27. Search for User Phone Numbers Beginning with 425 - VBScript Scripting Techniques
... CreateObject (" ADODB.Connection ") Set objCommand = CreateObject (" ADODB.Command ") objConnection.Provider =" ADsDSOObject" objConnection.Open" Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.Properties (" Page Size ") ...
 

 
28. Search for All Users That Have a Phone Number - VBScript Scripting Techniques
... CreateObject (" ADODB.Connection ") Set objCommand = CreateObject (" ADODB.Command ") objConnection.Provider =" ADsDSOObject" objConnection.Open" Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.Properties (" Page Size ") ...
 

 
29. Search for Computers Running Windows 2003 - VBScript Scripting Techniques
... CreateObject (" ADODB.Connection ") Set objCommand = CreateObject (" ADODB.Command ") objConnection.Provider = (" ADsDSOObject ") objConnection.Open" Active Directory Provider" objCommand.ActiveConnection = objConnection objCommand.Properties (" Page Size ") = ...
 

 
30. Search for User Accounts That Have Been Disabled - VBScript Scripting Techniques
... CreateObject (" ADODB.Connection ") Set objCommand = CreateObject (" ADODB.Command ") objConnection.Provider =" ADsDSOObject" objConnection.Open" Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.Properties (" Page Size ") ...
 

 
31. Search for Users in One of Two Departments - VBScript Scripting Techniques
... CreateObject (" ADODB.Connection ") Set objCommand = CreateObject (" ADODB.Command ") objConnection.Provider =" ADsDSOObject" objConnection.Open" Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.Properties (" Page Size ") ...
 

 
32. Search For Users with Non-Expiring Passwords - VBScript Scripting Techniques
... CreateObject (" ADODB.Connection ") Set objCommand = CreateObject (" ADODB.Command ") objConnection.Provider =" ADsDSOObject" objConnection.Open" Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.Properties (" Page Size ") ...
 

 
33. Search for Users in a Specific Department - VBScript Scripting Techniques
... CreateObject (" ADODB.Connection ") Set objCommand = CreateObject (" ADODB.Command ") objConnection.Provider =" ADsDSOObject" objConnection.Open" Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.Properties (" Page Size ") ...
 

 
34. Search for Users Not in a Specific Department - VBScript Scripting Techniques
... CreateObject (" ADODB.Connection ") Set objCommand = CreateObject (" ADODB.Command ") objConnection.Provider =" ADsDSOObject" objConnection.Open" Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.Properties (" Page Size ") ...
 

 
35. Sort a Recordset by User Name - VBScript Scripting Techniques
... CreateObject (" ADODB.Connection ") Set objCommand = CreateObject (" ADODB.Command ") objConnection.Provider =" ADsDSOObject" objConnection.Open" Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.Properties (" Page Size ") ...
 

 
36. Use a Wildcard in a SQL Query - VBScript Scripting Techniques
... CreateObject (" ADODB.Connection ") Set objCommand = CreateObject (" ADODB.Command ") objConnection.Provider =" ADsDSOObject" objConnection.Open" Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.Properties (" Page Size ") ...
 

 
37. Use a Search to Modify Objects - VBScript Scripting Techniques
... CreateObject (" ADODB.Connection ") Set objCommand = CreateObject (" ADODB.Command ") objConnection.Provider =" ADsDSOObject" objConnection.Open" Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.Properties (" Page Size ") ...
 

 
38. Search for Users Accounts That are Locked Out - VBScript Scripting Techniques
... CreateObject (" ADODB.Connection ") Set objCommand = CreateObject (" ADODB.Command ") objConnection.Provider =" ADsDSOObject" objConnection.Open" Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.Properties (" Page Size ") ...
 

 
39. Search for Users Without a Phone Number - VBScript Scripting Techniques
... CreateObject (" ADODB.Connection ") Set objCommand = CreateObject (" ADODB.Command ") objConnection.Provider =" ADsDSOObject" objConnection.Open" Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.Properties (" Page Size ") ...
 

 
40. Use an LDAP OR Filter in a Search - VBScript Scripting Techniques
... CreateObject (" ADODB.Connection ") Set objCommand = CreateObject (" ADODB.Command ") objConnection.Provider =" ADsDSOObject" objConnection.Open" Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.Properties (" Page Size ") ...
 

 
41. List Shared Folders Published in Active Directory - VBScript Storage
... CreateObject (" ADODB.Connection ") Set objCommand = CreateObject (" ADODB.Command ") objConnection.Provider =" ADsDSOObject" objConnection.Open" Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.CommandText =" Select Name ...
 

 
42. Search for Specific Published Folders in Active Directory - VBScript Storage
... CreateObject (" ADODB.Connection ") Set objCommand = CreateObject (" ADODB.Command ") objConnection.Provider =" ADsDSOObject" objConnection.Open" Active Directory Provider" Set objCOmmand.ActiveConnection = objConnection objCommand.CommandText =" Select Name ...