Copy the bit between the dashed lines (NOT including the lines) into Notepad and save as "halloween.vbs". Get a suitable bitmap (bmp) file showing the picture that you want at a suitable resolution. Get the wav file for a scream or whatever. Copy both into c:\windows on your target's PC (and your own for testing). Edit Halloween.vbs to set a suitable time delay (line 7), change the bitmap name (line 24) and the wav name (line 38) to suit your files and set how long you want the change to stay up (line 45).
Test on your PC! Copy Halloween.vbs to the target PC C:\Documents and Settings\All Users\Start Menu\Programs\Startup.
The program will start as she logs in and will wait for the preset delay before changing the wallpaper - just time to get settled.
I hoped that I'd find the code to ramp up the volume to Full but that will have to wait until next year.
Hope it works! Test it today. I've got one day left to debug it!
Neil ]:)
'-----------------------------------------
Set oShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
set oDesktop=CreateObject("Shell.Application")
' Set the value to the number of seconds that you want to wait. i.e. 300000 is five minutes
wscript.sleep 300000
' OK, now DO IT!
' Minimise all of the working windows for full effect
oDesktop.MinimizeAll
' Get and save the old wallpaper
sOldWallpaper = oShell.RegRead("HKCU\Control Panel\Desktop\Wallpaper")
' New wallpaper. This should be a bitmap (.bmp) of a suitable resolution
' Copy the bmp to C:\Windows
' Replace the filename with your gruesome bitmap
sWinDir = oFSO.GetSpecialFolder(0)
sWallPaper = sWinDir & "\sky.bmp"
' Update in registry
oShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", sWallPaper
' Let the system know about the change
sCommand = _
"%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters"
oShell.Run sCommand,1,True
' Play a sound
' Copy a scream or whatever wav file into C:\Windows
sSoundFile = sWinDir & "\tada.wav"
sCommand = "sndrec32 /play /close " & chr(34) & sSoundFile & chr(34)
oShell.Run sCommand, 0, False
' Time to display the Halloween wallpaper in ms
wscript.sleep 10000
' Put it back - Update in registry
oShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", sOldWallPaper
sCommand = _
"%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters"
oShell.Run sCommand,1,True
' Put the Windows back
oDesktop.UndoMinimizeAll
'-------------------------------------