Usa queste tre linee

codice:
Set WshShl = WScript.CreateObject("WScript.Shell")
UserVar = WshShl.ExpandEnvironmentStrings("%USERPROFILE%")
WScript.Echo UserVar