Active Directory Gruppen

[ADmiNX]

Hallo bin VBS Script Profi, deshalb bitte ich um euer untsestützung, ich möchte mit folegendem script die member einer gruppe abfragen,
und in eine txt file schreiben lassen, das klapt mit dem script nur habe ich noch zwei probleme.

Problem 1 = Ich muss jeweils den gesuchten Gruppen Namen genau schreiben, sonst kann er mit dem Grupen Namen nichts anfangen.

Problem 2 = Ich kann keine Email Adressen abfragen, erhalte fehler meldung wen ich miz objMember.email abfrage.

Code: Alles auswählen

Const ForReading = 1,ForWriting = 2,ForAppending = 8
StartFilename = "AD groups.txt"

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(StartFilename,ForAppending, True)

strDomainName = "my.domain.com"
strGroupName =  ucase(inputbox("Enter Group Name","my company","")) 
msgbox strGroupName
If strGroupName = "" then
MsgBox "The Group Name field must not be blank.", , "my company"
WScript.Quit
End if 

Set objDomain = GetObject("WinNT://" & strDomainName)

For each objDomainObject in objDomain
    If objDomainObject.class = "Group" Then
        If objDomainObject.Name = strGroupName Then
            Set objGroup = GetObject("WinNT://"& strDomainName & "/" & objDomainObject.Name)
            objTextFile.writeline("")
            objTextFile.writeline("Domain: " & strDomainName & "   Group: " & objDomainObject.Name)
            objTextFile.writeline("")
            Set objMemberList = objGroup.Members
            For Each objGroupMember In objMemberList
                Set objMember = objGroupMember
                objTextFile.writeline ("Group member: " & objMember.Name & "    Name: " & objMember.FullName )
			Next
        End If
    End If
Next
objTextFile.close
MsgBox "Successfully completed",64,"my company"