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."