Dim WSHShell, n, MyBox, p, p1, t, cn, Caption, itemtype, errnum



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

p = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Help_Menu_Urls\Online_Support"

itemtype = "REG_SZ"

t = "Change Online Support Link"



On Error Resume Next



n = WSHShell.RegRead(p)



errnum = Err.Number



If errnum <> 0 then   



n = 0

End If

Caption = "Your current selection is: " & n & vbCR & vbCR

Caption = Caption & "Input the support link of your choice:"

On Error Goto 0



cn = InputBox(Caption, t, n)

If cn <> "" Then

WSHShell.RegWrite p, cn, itemtype

End If



If cn <>"" Then

MyBox = MsgBox("You must Log Off/Log On for the changes to take effect.", vbOKOnly,"Done")

End If