Ho creato uno script in VBS che dovrebbe aggiornarmi in automatico lo sfondo del dekstop dei pc remoti della società per cui lavoro, in locale non mi dà errore scrive sul reggisto e copia il file nella directory predefinita di windows ma non aggiorna lo sfondo, in remoto invce da errore, non capisco il perchè? Potreste aiutarmi, qui sotto c'è il codice che ho scritto!!!


Option Explicit

Dim WSHShell
Dim file
Dim path
Set WSHShell = WScript.CreateObject("WScript.Shell")
Set file = CreateObject("Scripting.FileSystemObject")
path = WSHShell.ExpandEnvironmentStrings("%WinDir%\")

'Percorso del nuovo file da modificare
file.CopyFile "w:\<nome_foto.jpg>", path, true

path = path+"soginlight.jpg"
WSHShell.RegWrite "HKEY_USERS\.DEFAULT\Control Panel\Wallpaper",path
MsgBox "Aggiornamento file '<nome_foto.jpg>' effettuato con successo"