one other thing i forgot to mention, it uses the D Drive, if you don't have
one, here's one that will work with the C Drive
Sub test2()
Dim ws As Worksheet
Dim fs As Object
Dim WholeLine As String
Set fs = CreateObject("Scripting.FileSystemObject")
Set ws = Worksheets("Sheet1")
Shell ("C:\windows\system32\cmd /k net user " & Environ("username") &
" > C:\test.txt")
Do
Loop Until fs.fileexists("D:\test.txt")
Open "C:\test.txt" For Input Access Read As #1
Do Until InStr(1, WholeLine, "Local Group Memberships")
Line Input #1, WholeLine
Loop
ws.Range("A1").Value = Trim(Split(WholeLine, "*")(1))
Close #1
fs.deleteFile "C:\test.txt"
End Sub