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:
codice:
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