Option Explicit

Set ws = WScript.CreateObject("WScript.Shell")
Dim ws, t, p1, n, cn, MyBox, Title 
Dim itemtype

p1 = "HKCR\CLSID\{2559a1f1-21d7-11d4-bdaf-00c04f60b9f0}\"

n = ws.RegRead(p1 & "LocalizedString")
t = "Súgó és támogatás átnevezése"
cn = InputBox("Adja meg a Start menün található ''Súgó és támogatás'' menüpont új nevét:", t, n)

If cn <> "" Then
  ws.RegWrite p1 & "LocalizedString", cn
End If

Title = "Menüpont átnevezve." 
MyBox = MsgBox(Title,64,"Kész")