Posted By

lance on 02/03/11

Tagged

Versions (?)

Last Edited at 02/03/11 06:55am

Statistics

Viewed 864 times

Favorited by 0 user(s)

Related snippets

LDAP query to find all users without an entry in the webpage field in Active Directory

/ Published in: Visual Basic

Highlighted TextExpand

Set oRootDSE = GetObject("LDAP://RootDSE") 
Set Conn = CreateObject("ADODB.Connection") 
Set Comm =   CreateObject("ADODB.Command") 
Conn.Provider = "ADsDSOObject" 
Conn.Open "Active Directory Provider" 
Set Comm.ActiveConnection = Conn 
Comm.Properties("Page Size") = 1000 
  
strBase   =  "<LDAP://" & oRootDSE.get("defaultNamingContext") & ">;" 
strFilter = "(&(objectCategory=person)(objectclass=user)(objectCategory=person)(!wwwhomepage=*));"  
strAttrs  = "givenName,sn;" 
strScope  = "subtree" 
 
Comm.CommandText = strBase & strFilter & strAttrs & strScope 
Set RS = Comm.Execute

If NOT RS.EOF Then

Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:\noids.txt", true)

RS.MoveFirst 
	MyFile.WriteLine("First Name,Last Name") 
	Do Until RS.EOF 
        	'WScript.Echo Rs.Fields(0) & "," & RS.Fields(1) 
        	MyFile.WriteLine(Rs.Fields(0) & "," & RS.Fields(1))	
	RS.MoveNext 
	Loop 
 End If
Conn.Close
MyFile.Close

Set oRootDSE = Nothing 
Set Conn = Nothing 
Set Comm = Nothing 
Set User = Nothing 
Set fso = Nothing

Report this snippet Tweet

Comments

Subscribe to comments

Comment:

You need to login to post a comment.