' This will create a text file listing members of a group
' It saves a copy of the file with the group name in the %TEMP% Directory
' It then opens the file up in notepad

Set WshShell = CreateObject("Wscript.Shell")
Temp = WshShell.ExpandEnvironmentStrings("%TEMP%")

groupname = "Group Details"
groupname = InputBox("Please enter the name of the Group",groupname)

If (groupname = "") Then
  Wscript.Quit
End If

wshShell.Run "CMD /c net group /domain " & chr(34)& groupname &chr(34) & " > " & Chr(34) & Temp & chr(92) & groupname & ".txt" & Chr(34),0,1

wshShell.Run "notepad.exe "& chr(34) & temp & chr(92) & groupname & ".txt"

' end of script