Set sh = CreateObject("WScript.Shell")
sh.Run """%APPDATA%\Microsoft\Internet Explorer\Quick Launch\Show Desktop.scf"""