Liste alle Gruppen auf in der ein Benutzer Mitglied ist und kopiere den Inhalt in die Zwischenablage:

listGroupsofaUser.vbs

DomainString="MyNTDOM"
UserString = "MyDomUser"
 
UserString = InputBox("Zu welchem Namen werden die Gruppen gesucht?","Bitte geben Sie Ihren Namen an",UserString)
 
Set UserObj = GetObject("WinNT://" & DomainString & "/" & UserString)
 
    For Each GroupObj In UserObj.Groups
        List = List & vbLf & GroupObj.Name 
    Next
 
wscript.Echo List
 
'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."

zurück