[VBScript] Lettura della variabile %USERPROFILE%

[alan.masu]

Buon giorno a tutti,
mi trovo a dover leggere la variabile di sistema %USERPROFILE%. Non conoscendo molto bene il VBS, ho cercato da alcuni siti e la ricerca ha portatoa a trovare la seguete soluzione:

Option Explicit


'Declare variables
Dim WshShl, Shell, fso, UserVar, CurrentDirectory
set fso = CreateObject("Scripting.FileSystemObject")
CurrentDirectory = fso.GetAbsolutePathName(".")
CurrentDirectory = CurrentDirectory & "Programma\"


'oggetti Set
Set WshShl = WScript.CreateObject("WScript.Shell")
Set Shell = WshShl.Environment("Utente")


'Variabile Leggi
UserVar = Shell("USERPROFILE")


'Valore di uscita per MsgBox
WScript.Echo UserVar  


'pulizia Oggetti
Set WshShl = Nothing
Set Shell = Nothing


'Esci dallo script
WScript.Quit()

Questa soluzione non porta a ciò che voglio dal programma e va in errore. Mi sapete aiutare?

Ringrazio anticipatamente

Alan Masutti

[oregon]

Usa queste tre linee

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

[alan.masu]

Grazie per la velocità.
Funziona perfettamente
Alan Masutti