Iniciado por
Powerlifter
Joder y tanto, para cuando de con lo que causa eso ya estará la Play Station 9
Creo que tomaré la opción de resignarme por el momento, me guardaré el fondo que tengo en una carpeta y cuando a mi PC le dé por quitarlo la vuelvo a poner
Código:
dim shell dim userSet shell = WScript.CreateObject("WScript.Shell") user = shell.ExpandEnvironmentStrings("%USERNAME%")
Set fso = CreateObject("Scripting.FileSystemObject")
windowsDir = fso.GetSpecialFolder(0) wallpaper = "c:\wallpaper.jpg"
shell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", wallpaper
shell.Run "%windowsDir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True