'chgietitle.vbs - Change Title bar text in IE5
'or restores to default value of Microsoft Internet Explorer
'© Doug Knox - rev 12/05/99

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