Enumerate AD and list users and group membership

Hi All,
 
there are many vbscripts out there that so nearly do what i want it to do, however i have been unsuccessful in trying to merge some.
so i thought i'd ask here:
 
i am trying to go through AD and export to a csv file a list of users and their group membership.
so the csv should look like:
 
Username1, group1, group2,group3
Username2, group2,group3,
Username3, group1, group3
 
Hope i have explained myself ok, and thankyou in advance for any help on this.
 
Regards
 
jason

The first step is to show us what you have written and in what specific way it is not working. Then we can help you straighten it out.

This should get you started... Replace MYDOMAIN with whatever you domain is named. 
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set DomainName= GetObject("[link=ldap://DC=MYDOMAIN,DC=com]LDAP://DC=MYDOMAIN,DC=com[/link]")
 
Const ForWriting = 2
CollectionString = ""
LogFile = "LogFile.Log"
 
If (objFSO.FileExists(LogFile)) = False Then
 objFSO.CreateTextFile(LogFile)
End If
 
ReadAD(DomainName)
 
Sub ReadAD(ThisObject)
 CollectionString = CollectionString & ThisObject.Name & vbCrLf
 For each objChild in ThisObject
  ReadAD(objChild)
 Next
End Sub
 
Set TextEditor = objFSO.OpenTextFile(LogFile, ForWriting)
TextEditor.WriteLine CollectionString
TextEditor.Close