LordKusa

Cambiar escritorio

May 22nd, 2018
116
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. dim shell dim user
  2.  
  3. Set shell = WScript.CreateObject("WScript.Shell") user = shell.ExpandEnvironmentStrings("%USERNAME%")
  4.  
  5. Set fso = CreateObject("Scripting.FileSystemObject")
  6.  
  7. windowsDir = fso.GetSpecialFolder(0) wallpaper = "c:\wallpaper.jpg"
  8.  
  9. shell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", wallpaper
  10.  
  11. shell.Run "%windowsDir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True
RAW Paste Data