'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