Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider" 
Set objCommand.ActiveConnection = objConnection
objCommand.CommandText = "SELECT name, Description, sAMAccountName FROM 'LDAP://OU=" & MyOU & "," & DomainName & "' WHERE objectClass='group' and Description='\\*'"
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
...
do while not objRecordSet.EOF 
Mygroup = objRecordSet.Fields("sAMAccountName").Value
Mydescript = objRecordSet.Fields("Description").Value
...

Option Explicit

Dim objGroup

'BIND TO THE GORUP  
Set objGroup = getGroup("Название группы")

'ENUMERATE THE GROUPS MEMBERS
enumMembers objGroup, ""


Function getGroup(strGroupName)
  Dim objConn, objRecSet, strQueryString, objRootDSE, strQueryFrom
  Const adsOpenStatic =  3 

   Set objRootDSE = GetObject("LDAP://RootDSE")
   strQueryFrom = "LDAP://" & objRootDSE.get("defaultNamingContext")

   Set objConn = wscript.CreateObject("ADODB.Connection")
   objConn.Provider = "ADsDSOObject"
   objConn.Open

   strQueryString = "SELECT AdsPath FROM '" & strQueryFrom & "' " & _ 
  		  "WHERE samAccountName = '" & strGroupName & "'"

   Set objRecSet = wscript.CreateObject("ADODB.Recordset")

   objRecSet.Open strQueryString, objConn, adsOpenStatic

    If objRecSet.recordCount =  1  Then
      Set getGroup = GetObject(objRecSet("AdsPath"))
    Else
      wscript.echo ucase(strGroupName) & " was not found in the domain. (" & objRootDSE.get("defaultNamingContext") & ")"
      wscript.quit
    End If
End Function


Sub enumMembers(byRef objGroup, strInheritedFrom)
 Dim objMember

   For Each objMember In objGroup.Members
     If lcase(objMember.class) = "group" Then
     enumMembers objMember, objMember.samAccountName
   Else
     If objMember.displayname <> "" Then
       If strInheritedFrom = "" Then
         wscript.echo objMember.displayname
       Else
         wscript.echo objMember.displayname & " (From NESTED GROUP:  " & _
             strInheritedFrom & ")"
      End If
    Else
       If strInheritedFrom = "" Then 
        wscript.echo objMember.samAccountName
     Else
       wscript.echo objMember.samAccountName & " (From NESTED GROUP:  " & _
           strInheritedFrom & ")"
     End If
   End If
 End If

 Next
End Sub

UserNameForMembers = "Фамилия Имя Отчество"  ' временно, потом брать из переменной
Its_Memb= 0 

strTargetGroupDN = "LDAP://CN=НекотораяГруппа,OU=Groups,DC=Fabrica,DC=com" 
Nested_group strTargetGroupDN, UserNameForMembers, Its_Memb

msgbox Its_Memb

Sub Nested_group(strGroupDN, UserNameForMembers, Its_Memb)  

    Set objGroup = GetObject(strGroupDN)  
    For Each objMember in objGroup.Members  
        If (LCase(objMember.Class) = "group") Then 
            'wscript.echo objMember.AdsPath  
            Nested_group objMember.AdsPath, UserNameForMembers, Its_Memb
        Else 
		'msgbox UserNameForMembers & " " & objMember.DisplayName
            if UserNameForMembers = objMember.DisplayName  then 
			Its_Memb =  1 
			Set objGroup = Nothing
			exit sub
			end if
        End If 
    Next 
    Set objGroup = Nothing 
End Sub 

"SELECT name, Description, sAMAccountName FROM 'LDAP://OU=" & MyOU & "," & DomainName & "' WHERE objectClass='group' and Description='\\*' and Member='Фамилия Имя Отчество'"