Mithilfe des Benutzernamens den Computernamen erfahren

Hallo Administartoren,

ich bin gerade dabei eine kleine Batch\Shell zu schreiben damit ich mit der Eingabe des Benutzernamens direkt in sein C:\ Verzeichniss komme.
Anstatt immer nach dem Computernamen zu fragen und selbst "Computername\c$" einzugeben.

Meiner Meinung kann es vielleicht 2 Möglichkeiten geben:

1. Es gibt einen Befehl der mir direkt zum Benutzernamen den Computernamen liefert. (Leider noch nichts gefunden) (Batch)

2. Ich starte z.B. einen ARP Befehl und frage alle Adressen nach dem Benutzernamen ab (sollte bei ca.50-60 PCs noch akzeptabel sein). (Shell)
Leider habe ich auch dort keine Lösung gefunden mir den Benutzernamen auszuspucken. Und "net username" funktioniert soweit ich weiß nicht über das
Netzwerk.

Frage: Wisst Ihr einen Befehl/Befehle wie ich mithilfe des Username seinen Computernamen herausfinde oder anders herum.(Vorraussetzung aktuell angemeldet)?

Mir würde auch schon ein kleiner Befehl weiterhelfen.(häng da nur grad irgendwie fest) Und ich will es auch selbst Scripten.

Grüße
Dominik

qwinsta.exe

wmic computersystem get Username

strComputer = inputbox("Bitte IP-Adresse des PC angeben: ")  
strUser =  inputbox("Benutzername der Rechte hat den Rechner abzufragen / (Domain\Benutzer) angeben:")  
strPassword =  inputbox("Password angeben : ")  

Const WbemAuthenticationLevelPktPrivacy = 6
strNamespace = "root\cimv2"  

Set objWbemLocator = CreateObject("WbemScripting.SWbemLocator")  
Set objWMIService = objwbemLocator.ConnectServer(strComputer, strNamespace, strUser, strPassword)
objWMIService.Security_.authenticationLevel = WbemAuthenticationLevelPktPrivacy

Set colItems = objWMIService.ExecQuery("Select * From Win32_ComputerSystem")  
For Each objItem in ColItems
    Msgbox "Folgender Benutzer ist auf dem Rechner: '" & strComputer & "' eingeloggt: '" & objItem.UserName & "'"  
Next