Option Explicit



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

Dim ws, t, p, n, cn, MyBox 

Dim itemtype



p = "HKCU\Software\Policies\Microsoft\Internet Explorer\"

p = p & "Windows Update Menu Text"

itemtype = "REG_SZ"

n = ""

ws.RegWrite p, n, itemtype



p = "HKCU\Software\Policies\Microsoft\Internet Explorer\"



n = ws.RegRead(p & "Windows Update Menu Text")

t = "Change Text under Tools for Windows Update"

cn = InputBox("Type in the text you want to appear under Tools in Internet Explorer. NOTE:  Leaving it empty removes the entry from Tools. To set back to default type in: Windows Update.", t, n)

If cn <> "" Then

  ws.RegWrite p & "Windows Update Menu Text", cn

End If



MyBox = MsgBox("You must re-open Internet Explorer for the changes to take effect.", 64,"Your Changes Have Been Made")