Rename Run

Need to Rename your Run, YES! Now you can rename the run as you like.....

Just copy all the below text into the Notepad file:

Option Explicit

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

Dim ws, t, p1, n, cn, MyBox, Title

Dim itemtype

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

n = ws.RegRead(p1 & "LocalizedString")

t = "Change the Name of Run on Start Menu"

cn = InputBox("Type in the name to replace Run with.", t, n)

If cn <> "" Then

ws.RegWrite p1 & "LocalizedString", cn

End If

Title = "Run on the Start Menu has now been renamed."

MyBox = MsgBox(Title,64,"Finished")

After copy all the text into notepad then save as .vbs file....

Example:After that double click the file your will see this screen:
Type the name as your want!! This example is rename the run as "Don't Click"!
After success: Wish You all can enjoy it.....^^