'Change IE Title Bar Name

Dim WshShell,  j, p1, m, pm, sMsg, sInput, sDone 
Set WshShell = WScript.CreateObject("WScript.Shell")

sMsg = "This script will change the name in the Internet Explorer Title Bar." & vbCr _
 & "You will need to Close and re-open Internet Explorer take effect." & vbCr & vbCr _
 & "Would you like to continue?"

sInput = MsgBox(sMsg, vbYesNo + vbInformation, "Paul's XP and Vista Tweaks")
If sInput = vbYes Then 

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

m = WshShell.RegRead(p1 & "Window Title")
j = "Change Internet Explorer Title Bar"
pm = InputBox("Type New Name for Title Bar.", j, m)
If pm <> "" Then
WshShell.RegWrite p1 & "Window Title", pm

sDone = "Don't forget to Close and re-open Internet Explorer to see New Title." & vbCr & vbCr _
 & "This script was downloaded from www.paulsxp.com."
MsgBox sDone, 64, "Paul's XP and Vista Tweaks"
End If
End If