'Unbrand.vbs - Remove IE/OE branding
'© Doug Knox - 10/20/01
'This code may be freely distributed/modified'start of VB Script
'Downloaded from www.dougknox.com

Dim myShell, OE_ID, OE_ID2, OE_Tit_Key

Set myShell = CreateObject("WScript.Shell")
myShell.Run("rundll32.exe iedkcs32.dll,Clear")

On Error Resume Next
OE_ID = "HKEY_CURRENT_USER\Identities\Default User ID"
OE_ID2 = myShell.RegRead(OE_ID)
OE_Tit_Key = "HKEY_CURRENT_USER\Identities\" & OE_ID2 & "\Software\Microsoft\Outlook Express\5.0\WindowTitle"

myShell.RegDelete OE_Tit_Key

Set myShell = Nothing

MsgBox "Branding has been removed.", 4096,"Finished"