15 lines
No EOL
481 B
Text
Executable file
15 lines
No EOL
481 B
Text
Executable file
Dim shell : Set shell = CreateObject("WScript.Shell")
|
|
|
|
Dim wallpaper : wallpaper = "%userprofile%\Downloads\Intranet\Word_Download\scary monsters and nice spirits midi.bmp"
|
|
|
|
|
|
|
|
shell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", wallpaper
|
|
|
|
shell.RegWrite "HKCU\Control Panel\Desktop\Wallpaperstyle", 0
|
|
|
|
shell.RegWrite "HKCU\Control Panel\Desktop\tilewallpaper", 0
|
|
|
|
|
|
|
|
shell.Run "%SYSTEMROOT%\System32\rundll32.exe user32.dll,UpdatePerUserSystemParameters", 1, True |