Change Internet Explorer Title Bar. (VBScript)
| Dim ws, j, p1, m, pm, pmbox Set ws = WScript.CreateObject("WScript.Shell") On Error Resume Next p1 = "HKCU\Software\Microsoft\Internet Explorer\Main\" m = ws.RegRead(p1 & "Window Title") j = "Change Internet Explorer Title Bar" pm = InputBox("Type New Title for Internet Explorer", j, m) If pm <> "" Then ws.RegWrite p1 & "Window Title", pm PmBox = MsgBox("Close and re-open Internet Explorer to see New Title.", vb,"Finished!") End If |