'----Start here----------
Option Explicit
Dim Group
Dim GroupName
Dim GroupDomain
Dim Member
Dim oUser
Dim w
Dim ws

const ForReading = 1
const ForWriting = 2
const ForAppending = 8
Const TristateFalse = 0

GroupDomain = "uht.transneft.ru" '<--Put the Computer or domain name here.
GroupName = InputBox ("Group Name to list Members:","Enter GroupName")
  if GroupName = "" then
  GroupName = "Administrators"
  end if

Set ws = CreateObject ("Scripting.FileSystemObject")
Set w = ws.OpenTextFile (".\" & GroupName & " members.txt", ForAppending, True)

Set Group = GetObject("WinNT://" & GroupDomain & "/" & GroupName & ",group")
'<--oUser.Name
For Each Member in Group.Members
          w.WriteLine Member.DisplayName
Next
Wscript.Echo "Text file " & GroupName & " members.txt contains the list of users in this group."
'---------End--------------