[DmitriiV]

Для решения столь простой задачи с помощью сценария вполне достаточно возможностей провайдера WinNT:

Код:

Dim objArgs, objGroup, objWsNet, objItem
Dim strDomain, strGroup, strList
Set objArgs = WScript.Arguments
If objArgs.Count > 0 Then
    For i = 0 To objArgs.Count - 1
        strGroup = objArgs.Item(i)
        Set objWsNet = CreateObject("WScript.Network")
        strDomain = objWsNet.UserDomain
        Set objWsNet = Nothing
        On Error Resume Next
        Set objGroup = GetObject("WinNT://" & strDomain & "/" & strGroup & ",group")
        If Err.Number = 0 Then
            For Each objItem In objGroup.Members
                If LCase(objItem.Class) = "user" Then strList = strList & objItem.Name & vbNewLine
            Next
            Set objGroup = Nothing
            If Len(strList) > 0 Then
                WScript.Echo strList
            Else
                WScript.Echo "В группе " & UCase(strGroup) & " нет пользователей."
            End If
        Else
            WScript.Echo "Ошибка " & Err.Number & " доступа к объекту группы " & UCase(strGroup) & vbNewLine & _
                    Err.Description
            Err.Clear
        End If
        strList = vbNullString
    Next
End If
Set objArgs = Nothing
WScript.Quit 0