Function isHere(chk)
  isHere = -1
  On error resume next
  If ScriptEngineMajorVersion > 1 then
    flp = IsObject(CreateObject(chk))
    if flp then
      isHere = 1
    Else
      isHere = 0
    End if
  End if
End Function