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"