Change the IE Title Bar Text

Friday afternoon, Roy come and look for me. He is belong to mechanial section, he asked is there any method able to restore the computer harddisk into its original stage. I suggest to him to ghost the whole harddisk and the ghost image able to restore the computer. This help to save the times needed to reformatting the whole harddisk, reinstall OS and all software.
When we reach the laboratory, there is additional problem in the computer. Someone has altered the IE Title Bar Text with four letter word "suck" and no one able to solve it. I search in the internet and found a solution - >[Start] [Run] [Regedit] and search the word "suck". The word is hide in the Internet Explorer>main>window title. I delete the word and run IE again, the word disappear from the title bar.

i also found vbscript able to change the title bar. The program code as follow :


'chgietitle.vbs - Change Title bar text in IE
'or restores to default value of Microsoft Internet Explorer

Option Explicit
'Declare variables
Dim WSHShell, n, MyBox, p, p1, t, cn, Caption
'set variables and Shell
Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKCU\Software\Microsoft\Internet Explorer\Main\Window Title"
p1 = "HKLM\Software\Microsoft\Internet Explorer\Main\Window Title"
t = "Change IE Title Bar Text"
Caption = "Would you like to use the default" & vbCR
Caption = Caption & "value of Microsoft Internet Explorer?"
'This section reads the current value if any and puts it in an Input Box
'where you may change it as you like for Internet Explorer
'adds/changes keys in HKCU
MyBox = MsgBox(Caption, 4131, t)
If MyBox = vbCancel Then
WScript.Quit
ElseIf MyBox = vbNo Then
On Error Resume Next
n = WSHShell.RegRead(p)
On Error Goto 0
cn = InputBox("Type new Title Text and click OK", t, n)
If cn <> "" then
WSHShell.RegWrite p, cn
WSHShell.RegWrite p1, cn
End If
ElseIf MyBox = vbYes Then
WSHShell.RegDelete p
WSHShell.RegDelete p1
End If