VBS-Script Erweitern um das Auslesen von Benutzern in einer Hauptgruppen

Const ListFile = ".\Aktive_Benutzer_der_Gruppe_Test.txt"  
Const Delim = ";"  
Const FOR_APPENDING = 8
Const ADS_UF_ACCOUNTDISABLE = 2

Set objgroup = GetObject ("LDAP://CN=Test,OU=test,DC=test,DC=DE")  

Set objFSO = CreateObject("Scripting.FileSystemObject")  
Set objFile = objFSO.OpenTextFile(ListFile, FOR_APPENDING, True)

For Each objUser In objGroup.Members
	If Not objUser.userAccountControl AND ADS_UF_ACCOUNTDISABLE Then
    		UserInfo = objUser.sAMAccountName & Delim & objUser.Name
    		Set colGroups = objUser.Groups
    		For Each objGroup in colGroups
        	UserInfo = UserInfo & Delim & objGroup.CN
        	GetNested(objGroup)
  		Next
	    objFile.WriteLine UserInfo
	End if
next
objFile.Close

WScript.Echo "Fertig"  

Function GetNested(objGroup)
    On Error Resume Next
    colMembers = objGroup.GetEx("memberOf")  
    For Each strMember in colMembers
        strPath = "LDAP://" & strMember  
        Set objNestedGroup = _
        GetObject(strPath)
        GetNested(objNestedGroup)
    Next
End Function