Ready to get started with anonymous questions today? It's easy! Learn more.
'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 = Inputbox ("Enter the Domain name", "Data needed", "Default domain name") 'Change GroupName to the name of the group whose members you want to export strGroup = InputBox ("Enter the Group name", "Data needed", "Default group name") 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:\" & strGroup & " - Members.txt") Set objGroup = GetObject("WinNT://" & strDomain & "/" & strGroup & ",group") For Each objUser In objGroup.Members objFile.WriteLine objUser.FullName Next objFile.Close Set objFile = Nothing Set objFSO = Nothing Set objUser = Nothing Set objGroup = Nothing Wscript.Echo "Done" Wscript.Echo "Please check the c: for your output file"
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.