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