add new IE button in registry - vbs
-
Hi, I found the following code in the MSDN Articles. The title of the article is "Customizing Microsoft Internet Explorer 5.0". I don't know why it isn't working. It asks if I want to create the button but then it does nothing. Could you help me please? Thank you ' AddButtonIE.vbs ' Adds a custom button to the Internet Explorer 5.0 toolbar ' ----------------------------------------------------------------------- rc = MsgBox("Would you like to add a new button to the toolbar?", vbYesNo) if rc=vbNo Then WScript.Quit' The registry path where you add your new entries. ' If your registry doesn't contain a Shell node, it'll be silently created REG_HKLM_IE50_BASE = "HKLM\Software\Microsoft\Internet Explorer\Extensions"' Adds a new key (needs a newly created GUID) REG_HKLM_IE50_GUID = REG_HKLM_IE50_BASE & "\{10954C80-4F0F-11d3-B17C-00C0DFE39736}\"' Creates the required values Set shell = WScript.CreateObject("WScript.Shell") shell.RegWrite REG_HKLM_IE50_GUID & "ButtonText", "Run Script", "REG_SZ" shell.RegWrite REG_HKLM_IE50_GUID & "MenuText", "Run Script", "REG_SZ" shell.RegWrite REG_HKLM_IE50_GUID & "MenuStatusBar", "Run Script", "REG_SZ" shell.RegWrite REG_HKLM_IE50_GUID & "Clsid", "{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}", "REG_SZ" shell.RegWrite REG_HKLM_IE50_GUID & "Default Visible", "Yes", "REG_SZ" shell.RegWrite REG_HKLM_IE50_GUID & "Icon", "C:\Program Files\Home.ro\icon1.ico", "REG_SZ" shell.RegWrite REG_HKLM_IE50_GUID & "HotIcon", "C:\Program Files\Home.ro\icon2.ico", "REG_SZ" shell.RegWrite REG_HKLM_IE50_GUID & "Exec", "C:\Program Files\Home.ro\myprg.vbs", "REG_SZ" ----- We are what we repeatedly do. Excellence, then, is not an act, but a habit.
-
Hi, I found the following code in the MSDN Articles. The title of the article is "Customizing Microsoft Internet Explorer 5.0". I don't know why it isn't working. It asks if I want to create the button but then it does nothing. Could you help me please? Thank you ' AddButtonIE.vbs ' Adds a custom button to the Internet Explorer 5.0 toolbar ' ----------------------------------------------------------------------- rc = MsgBox("Would you like to add a new button to the toolbar?", vbYesNo) if rc=vbNo Then WScript.Quit' The registry path where you add your new entries. ' If your registry doesn't contain a Shell node, it'll be silently created REG_HKLM_IE50_BASE = "HKLM\Software\Microsoft\Internet Explorer\Extensions"' Adds a new key (needs a newly created GUID) REG_HKLM_IE50_GUID = REG_HKLM_IE50_BASE & "\{10954C80-4F0F-11d3-B17C-00C0DFE39736}\"' Creates the required values Set shell = WScript.CreateObject("WScript.Shell") shell.RegWrite REG_HKLM_IE50_GUID & "ButtonText", "Run Script", "REG_SZ" shell.RegWrite REG_HKLM_IE50_GUID & "MenuText", "Run Script", "REG_SZ" shell.RegWrite REG_HKLM_IE50_GUID & "MenuStatusBar", "Run Script", "REG_SZ" shell.RegWrite REG_HKLM_IE50_GUID & "Clsid", "{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}", "REG_SZ" shell.RegWrite REG_HKLM_IE50_GUID & "Default Visible", "Yes", "REG_SZ" shell.RegWrite REG_HKLM_IE50_GUID & "Icon", "C:\Program Files\Home.ro\icon1.ico", "REG_SZ" shell.RegWrite REG_HKLM_IE50_GUID & "HotIcon", "C:\Program Files\Home.ro\icon2.ico", "REG_SZ" shell.RegWrite REG_HKLM_IE50_GUID & "Exec", "C:\Program Files\Home.ro\myprg.vbs", "REG_SZ" ----- We are what we repeatedly do. Excellence, then, is not an act, but a habit.
Sorry! My bad. It works fine. ----- We are what we repeatedly do. Excellence, then, is not an act, but a habit.