Slideshow user? Dont like one and want to remove it without the hassle of manually doing it?
Check this script...
WinCustomize Forums
I've seen numerous requests for something like this. I wanted it now, so I made it. Running this little script will move your current slideshow background out of your slideshow, to C:\Windows\temp. You dont have to go through the hassle of removing it manually through the control panel.
Copy the text between the dashes, save it in a text file as type "all files" and name it whateveryouwant.vbs
--------------------------------------------------------------------------------
'Force Variable declaraton
Option Explicit
'Declare Variables.
Dim WSHShell, RegKey, BGtoMove, objFSO
'Set WSHell as object
Set WSHShell = CreateObject("WScript.Shell")
'Set regkey as constant
RegKey = "HKCU\Software\Microsoft\Internet Explorer\Desktop\General\"
'Set variable to move
BGtoMove = WSHShell.RegRead(regkey & "WallpaperSource")
'Set objFSO to object
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Test if the current backgournd hasn't been moved already, then move it with object objFSO to \Windows\temp to back it up
If objFSO.FileExists(BGtoMove) Then
objFSO.MoveFile BgtoMove, "C:\Windows\Temp\"
'Dialog displayed when the background exists, and will be moved to temp
wscript.echo "Wallpaper moved out of slideshow, to Windows\Temp"
'quits the script
wscript.quit
'Otherwise
Else
'Dialog display when wallpaper already has been moved to \Windows\temp NOTE: This will only show if you do the operation
'twice in the same slide, as it has been move already and will not be displayed in your slideshow anymore
wscript.echo "Wallpaper already moved out of slideshow"
'Done with If() statement, done with the script
End If
---------------------------------------------------------------------------------
PS: To remove the dialogs that appear, delete the lines with "wscript.echo" at the beginning.
