Liste alle Mitglieder einer Gruppe auf:

listUsersofaGroup.vbs

'Liste alle Benutzer einer Gruppe auf'
DIM List
 
strDomainName = "MYNTDOM" 
strGroupName =  "MYNTGRP" 
strGroupName = InputBox("Zu welcher Gruppe sollen die Mitglieder gesucht werden ?","Gruppenname",strGroupName)
Set objDomain = GetObject("WinNT://" & strDomainName)
 
ListUsersofaGroup strDomainName,strGroupName
 
'Ergebnis in Zwischenablage  kopieren'
Set objIE = CreateObject("InternetExplorer.Application")  
objIE.Navigate("about:blank")  
objIE.document.parentwindow.clipboardData.SetData "text", List
objIE.Quit
wscript.echo vbcrlf & "Daten sind auch in der Zwischenablage vorhanden."
'--------------------------------------------------------'
Sub ListUsersofaGroup(strDom,strGrp) 
wscript.echo strGrp & vbcrlf
For each objDomainObject in objDomain
    If objDomainObject.class = "Group" Then
        If objDomainObject.Name = strGrp Then
            Set objGroup = GetObject("WinNT://"& strDom & "/" & objDomainObject.Name)
            Set objMemberList = objGroup.Members
            For Each objGroupMember In objMemberList
                Set objMember = objGroupMember
                wscript.echo ("Member: " & objMember.Name) 
                List = List & vbLf & objMember.Name 
             Next
        End If
    End If
Next
End Sub

Zurück