on error resume next

checkForReal1 = (IsObject(CreateObject("rmocx.RealPlayer G2 Control.1")))
checkForReal2 = (IsObject(CreateObject("RealPlayer.RealPlayer(tm) ActiveX Control (32-bit)")))
checkForReal3 = (IsObject(CreateObject("RealVideo.RealVideo(tm) ActiveX Control (32-bit)")))

if (checkForReal1 = true) or (checkForReal2 = true) or (checkForReal3 = true) then  
  Dim answer
  dim fullstring
  fullstring = "Internet Explorer with Real Player Plugin Detected! There are some known STABILITY problems with Real Player Plugins for Internet Explorer." & vbNewLine & vbNewLine & "You can do ANY ONE of the following three remedies to fix stability issues with Internet Explorer:-" & vbNewLine & vbNewLine &"  - UNINSTALL Real Player from your system." & vbNewLine &"  - Use other Internet Browsers like Firefox/Safari/Opera for Watching Online Broadcasts." & vbNewLine &"  - DISABLE Real Player ActiveX Control Plugin manually by going in MANAGE ADD-ONS option under TOOLS Menu." & vbNewLine & vbNewLine & "Please DO NOT forget to RESTART your Internet Browser after implementing any of the above mentioned three solutions."
  answer = MsgBox(fullstring,16,"WARNING - Real Player Plugin Detected")  
end if