View Single Post
Old 10-24-2007   #7 (permalink)
misc5


 
 

RE: SendTo context menu shortcuts not showing

thanks piaqt - it was staring me in the face all along - I'd come across the
xp version of this script previously :/

for those who will undoubtably follow after us with this, comment out the on
error resume next line (i.e. insert an apostrope at the beginning of the
line) to ensure you recieve any errors that arise during the execution of the
script, otherwise you just get a success message even when the script fails

chances are unless you have user account control tunred off you'll need to
run this vbs as an administrator, so follow these steps:
save the script to the root of c: (makes life easier)
follow the instructions here to open an admin cmd prompt:
http://itsvista.com/2006/12/itsvista...administrator/
cd / (to the root of c
then run the vbs
all being well you'll have no problems

alternatively you can just edit your registry manually



"piaqt" wrote:
Quote:

> Edited to work on vista, here's the fix. Save the below with a .vbs extension.
> '--------------------------------------------------------------------
> 'Applies To : Microsoft Windows XP
> 'Author : Ramesh Srinivasan - Microsoft MVP (Windows XP Shell)
> 'Created on : February 19, 2005
> 'Description : Fixes the Send To menu (missing all the shortcuts)
> 'Homepage : http://windowsxp.mvps.org
> 'More Info : http://windowsxp.mvps.org/sendtofix.htm
> 'Requirement : Needs Administrative privileges in Windows XP
> '--------------------------------------------------------------------
>
> Set WshShell = CreateObject("WScript.Shell")
> USFolderPath = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User
> Shell Folders"
> On Error resume next
> WshShell.RegWrite "HKCR\exefile\shellex\DropHandler\",
> "{86C86720-42A0-1069-A2E8-08002B30309D}", "REG_SZ"
> WshShell.RegWrite "HKCR\lnkfile\shellex\DropHandler\",
> "{00021401-0000-0000-C000-000000000046}", "REG_SZ"
> WshShell.RegWrite USFolderPath & "\SendTo",
> "%USERPROFILE%\AppData\Roaming\Microsoft\Windows\SendTo", "REG_EXPAND_SZ"
> Wshshell.RUN ("regsvr32.exe shell32.dll /i /s")
> MsgUser = Msgbox ("Fixed the Send To menu. Restart Windows for the changes
> to take effect", 4160, "'Send To' menu fix for Windows XP - Ramesh
> Srinivasan")
> Set WshShell = Nothing
> --
> piaqt
> http://www.techzonez.com/forums/forumdisplay.php?f=64
>
My System SpecsSystem Spec