function drmexists()
  on error resume next
  DrmStore.StoreLicense("")
  if (err.number = 0) then
    drmexists = true
  else
    drmexists = false
  end if
end function

function isDCInstalled()
dim objMCInst, fHasMCInst
On Error Resume Next
isDCInstalled = false
fHasMCInst = IsObject(CreateObject("MCInstaller.Media_Client_ActiveX_Installer"))
if fHasMCInst then
  set objMCInst = CreateObject("MCInstaller.Media_Client_ActiveX_Installer")
  objMCInst.INSTALLACTION=SILENTCHECK
  isDCInstalled = objMCInst.isDCInstalled
end if
end function