die Hauptsache ohne Grundkenntnisse mit VBA rum spielen
vielleicht wird es dir da angezeigt
Sub test() MsgBox Application.UserName MsgBox Environ("UserName") MsgBox Environ("Computername") End Sub