Missing shortcut

Discussion in 'Windows Desktop Systems' started by Lee, Mar 5, 2004.

  1. Lee

    Lee OSNN Proxy

    Hope this is the right section (oo) here goes (thanks in advance for any help!).

    When you click start>programs>then lets say adobe acrobat reader, select it's icon you right click and it should have on send to as a shorcut to desktop.

    This is missing for some weird reason.

    I have found the application folder for it, it is in there but does not work now.

    NE I deas on how to restore this function?
  2. Lee

    Lee OSNN Proxy

    I found a fix..thanks for anyone that was considering a reply.

    script is below dotted lines and needs to be copied and save tonotepad and saved as a .vbs
    'XP_sendtodesktop.vbs - Repairs the Send To Desktop function
    '© Doug Knox - 4/7/2002
    'Updated 01/14/04
    'Downloaded from www.dougknox.com

    Set WshShell = WScript.CreateObject("WScript.Shell")

    a = "HKEY_CLASSES_ROOT\CLSID\{9E56BE61-C50F-11CF-9A2C-00A0C90A90CE}\"

    WshShell.RegWrite a,""
    WshShell.RegWrite a & "NeverShowExt",""

    b = "HKEY_CLASSES_ROOT\CLSID\{9E56BE61-C50F-11CF-9A2C-00A0C90A90CE}\InProcServer32\"
    WshShell.RegWrite b ,"C:\Windows\System32\Sendmail.dll"
    WshShell.RegWrite b & "ThreadingModel","Apartment"

    c = "HKEY_LOCAL_MACHINE\Software\CLASSES\CLSID\{9E56BE61-C50F-11CF-9A2C-00A0C90A90CE}\DefaultIcon\"
    WshShell.RegWrite c,"C:WINDOWS\EXPLORER.exe,3"

    d = "HKEY_LOCAL_MACHINE\Software\CLASSES\CLSID\{9E56BE61-C50F-11CF-9A2C-00A0C90A90CE}\shellex\DropHandler\"
    WshShell.RegWrite d,"{9E56BE61-C50F-11CF-9A2C-00A0C90A90CE}"

    'Thanks to MVP Kelly for this tip
    Return = WshShell.Run("REGSVR32 /S SENDMAIL.DLL")
    Return = WshShell.Run("REGSVR32 /S OLE32.DLL")
    Return = WshShell.Run("REGSVR32 /S /I SHELL32.DLL")

    Set WshShell = Nothing

    MsgBox "Send To Desktop has been fixed",4096,"Finished!"