Rename Search

Need to Rename your Search, 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\{2559a1f0-21d7-11d4-bdaf-00c04f60b9f0}\"
n = ws.RegRead(p1 & "LocalizedString")

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

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

If cn <> "" Then

ws.RegWrite p1 & "LocalizedString", cn

End If

Title = "Search 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 Search as "Virus!!"

After success:

Wish You all can enjoy it.....^^