Dim tmp As String = Environment.GetEnvironmentVariable("USERNAME")
    Debug.WriteLine("tmp=" & tmp)
    Dim d As IDictionary = Environment.GetEnvironmentVariables
    Debug.WriteLine("tmp=" & d("USERNAME").ToString())
    d = Environment.GetEnvironmentVariables(EnvironmentVariableTarget.Process)
    Debug.WriteLine("tmp=" & d("USERNAME").ToString())

    tmp=TempUser
    tmp=TempUser
    tmp=TempUser

    ...
    HOMEDRIVE=C:
    USERNAME=TempUser
    PROCESSOR_ARCHITECTURE=AMD64
    OS=Windows_NT
    ComSpec=C:\WINDOWS\system32\cmd.exe
    ...

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist