Option Explicit

Set ws = WScript.CreateObject("WScript.Shell")
Dim ws, t, p, p1, n, cn, mybox, itemtype, vbdefaultbutton 

p = "HKCU\Software\Microsoft\Internet Explorer\Main\Window Title"
itemtype = "REG_SZ"
n = "Microsoft Internet Explorer" 
Ws.RegWrite p, n, itemtype

p1 = "HKCU\Software\Microsoft\Internet Explorer\Main\"

n = ws.RegRead(p1 & "Window Title")
t = "Change Provided By or Whole Title for IE"
cn = InputBox("Type New Caption and click OK", t, n)
If cn <> "" Then
  ws.RegWrite p1 & "Window Title", cn
End If


VisitMarv's Windows Tips & Tricks

Sub VisitMarv's Windows Tips & Tricks
	If MsgBox("This script came from Marv's Windows Tips & Tricks" & vbCRLF & vbCRLF & "Would you like to visit Marv's Web Site now?", vbQuestion + vbYesNo + vbDefaultButton, "Visit Marv's Windows Tips & Tricks") =6 Then
		ws.Run "http://www.marvswindowstips.com"
	End If
End Sub