Option Explicit
Const HKCU = &H80000001
Const SCHLUESSEL = "Software\Microsoft\Office\11.0\Common\UserInfo"
Const WERT = "UserName"
Dim WshNetzwerk, Registry, UserName, arr, i
 
Set Registry = GetObject( _
  "winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
Registry.GetBinaryValue HKCU, SCHLUESSEL, WERT, arr
 
For i = LBound(arr) To UBound(arr)
 If Not arr(i) = 0 Then
   UserName = UserName + Chr(arr(i))
 End If
Next
 
Set WshNetzwerk = CreateObject("Wscript.Network")
 
WScript.Echo UserName & " " & WshNetzwerk.UserName