'Enable Outlook Express Splash Screen

'© Kelly's Korner - 7/29/03



Dim myShell, OE_ID, OE_ID2, OE_SP_Key, p1, cn, n, t, itemtype 



Set myShell = CreateObject("WScript.Shell")



On Error Resume Next

OE_ID = "HKEY_CURRENT_USER\Identities\Default User ID"

OE_ID2 = myShell.RegRead(OE_ID)

OE_SP_Key = "HKEY_CURRENT_USER\Identities\" & OE_ID2 & "\Software\Microsoft\Outlook Express\5.0\NoSplash"



p1="HKEY_CURRENT_USER\Identities\" & OE_ID2 & "\Software\Microsoft\Outlook Express\5.0\NoSplash"



itemtype = "REG_DWORD"

n = "0"

myShell.RegWrite p1, n, itemtype





MsgBox "OE Splash Screen has been enabled.", 4096,"Finished"





VisitKelly's Korner



Sub VisitKelly's Korner

	If MsgBox("This script came from the Tweaks Section of Kelly's Korner" & vbCRLF & vbCRLF & "Would you like to visit Kelly's Web Site now?", vbQuestion + vbYesNo + vbDefaultButton, "Visit Kelly's Korner") =6 Then

		myshell.Run "http://troubleshootingXP/xp_tweaks.htm"

	End If

End Sub