11 lines
No EOL
474 B
Text
Executable file
11 lines
No EOL
474 B
Text
Executable file
Dim shell : Set shell = CreateObject("WScript.Shell")
|
|
|
|
Dim wallpaper : wallpaper = "D:\Programmation\Intranet\explorer\Explorer Virus\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 |