Option Explicit
Const DATEIPFAD = "C:\lokale Gruppen.txt"
Dim WshNetzwerk, Computer, Gruppen, Gruppe, Benutzer, FSO, Datei, WshShell
 
Set WshNetzwerk = WScript.CreateObject("WScript.Network")
Computer = InputBox("Computername eingeben", "", WshNetzwerk.ComputerName)
 
Set Gruppen = GetObject("WinNT://" & Computer & "")
Gruppen.Filter = Array("group")
 
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Datei = FSO.OpenTextFile(DATEIPFAD, 8, True)
 
Datei.WriteLine("Lokale Gruppen von " & Computer & vbCrLf)
For Each Gruppe In Gruppen
    Datei.WriteLine Gruppe.Name 
    For Each Benutzer In Gruppe.Members
        Datei.WriteLine vbTab & Benutzer.Name
    Next
Next
Datei.Close
 
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "%windir%\notepad " & FSO.GetFile(DATEIPFAD).Path