Active Directory help - TranceAddict Forums

TranceAddict Forums (www.tranceaddict.com/forums)
- Chill Out Room
-- Active Directory help

Posted by DJ Mikey Mike on Apr-28-2010 08:05:

Active Directory help

Does anyone know how I can export all the security groups plus its members to a text file or csv file?

Posted by Joss Weatherby on Apr-28-2010 08:17:

Start by slitting your wrists, now wait till you are dead.

Are you in hell yet? Ok now lets get started...

Actually Im full of shit, I never worked on AD that far, but a friend at my old work did and it sounded like a bitch to get policies and groups out in any sort of constructive manner.

Posted by Rinster on Apr-28-2010 09:13:

Hm interesting question actually.. i work with AD all day.. ill have a look into it.. and post it as soon as i find out.

Posted by DJ Mikey Mike on Apr-28-2010 11:27:

The most common method appears to be using vb scripts. However, I know nowhere near enough about scripts to tailor people's code to my own requirements. I can't believe there isn't a more user friendly way to do it.

Posted by DJ Mikey Mike on May-18-2010 08:25:

Going back to this again, I found the following script, but I don't know anything about VB scripting. Can anyone tell me what bit of the code I need to replace with my own company information? And where I need to run it from?

code:
'Script begins here
Dim objGroup, objUser, objFSO, objFile, strDomain, strGroup, Domain, Group
'Change DomainName to the name of the domain the group is in
strDomain = "Domain"
'Change GroupName to the name of the group whose members you want to export
strGroup = "Group"
Set objFSO = CreateObject("Scripting.FileSystemObject")
'On the next line change the name and path of the file that export data will be written to.
Set objFile = objFSO.CreateTextFile("C:\stefan\final" & strGroup & " - Members.txt")
Set objGroup = GetObject("WinNT://" & strDomain & "/" & strGroup & ",group")
For Each objUser In objGroup.Members
    objFile.WriteLine objUser.Name & " - " & objUser.Class
Next
objFile.Close
Set objFile = Nothing
Set objFSO = Nothing
Set objUser = Nothing
Set objGroup = Nothing
Wscript.Echo "Done"
Wscript.Echo "Please check your destination folder for the output file"