Tech Talk

This script write a list of members in text file in csv format. You have to give the list of groups by a group.txt file. please mention the group names.

Code: Select all


' List Members of a Local Group created by Praveen Kumar
Set objNetwork = CreateObject("WScript.Network")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Group.txt", 1)  'Input group names
sReportName = "C:\LGMembers.csv"   ' Output generated by script
Set fReport = objFSO.CreateTextFile(sReportName, True)
freport.Write "Group Name" &  "," & "Members"
Do until objFile.AtEndOfStream
strGroup = objFile.ReadLine
strComputer = objNetwork.ComputerName
'WScript.Echo "Computer: " & strComputer
Set objGroup = GetObject("WinNT://" & strComputer & "/" & strGroup & ",group")
'WScript.Echo "  Administrators group members:"
freport.Write vbNewLine & strGroup &  ","
For Each objMember In objGroup.Members
freport.Write objMember.Name & "; "
Next
Loop