' AddButtonIE.vbs
' Adds a custom button to the IE50 toolbar
'
rc = MsgBox("Would you like to add a new button to the IE50 toolbar?",vbYesNo)
if rc=vbNo Then WScript.Quit
' The registry path where to add our 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", _
"我的记事本", _
"REG_SZ"
shell.RegWrite REG_HKLM_IE50_GUID & "MenuText", _
"我的记事本", _
"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", _
"D:\Documents and Settings\sgyuan\Desktop\cutting1199\icon1.ico", _
"REG_SZ"
shell.RegWrite REG_HKLM_IE50_GUID & "HotIcon", _
"D:\Documents and Settings\sgyuan\Desktop\cutting1199\icon2.ico", _
"REG_SZ"
shell.RegWrite REG_HKLM_IE50_GUID & "Exec", _
"notepad.exe", _
"REG_SZ"