<%
    Function IsObj(str)
      On Error Resume Next
        IsObj = False
      Err.Number = 0
      
      Dim TmpObj
      Set TmpObj = Server.CreateObject(str)
      
      If 0 = Err.Number Then 
        IsObj = True
      End If

      Set TmpObj = Nothing
      Err.Number = 0
    End Function

    object_arr = array("MSWC.AdRotator", "MSWC.BrowserType", "MSWC.NextLink", "MSWC.Tools", _ 
                       "MSWC.Status", "MSWC.Counters", "MSWC.ContentRotator", _
                       "MSWC.PageCounter", "MSWC.PermissionChecker")
    
    FOR i = 0 TO UBOUND(object_arr)
      response.write "Ist " & object_arr(i) & " installiert: "
      response.write "<b> " & IsObj(object_arr(i)) & "</b><br>"
    NEXT
    %>