Get all Defects list from QC into a vbscript array

Hi,

I wish to get all the Defect list from ALM into an Array using vbscript, so far the code below is working fine (from previous forums), I just need to save ALL the list into an Array 2D (columns and rows).

  function get_defects_list(arr)
    dim objbugfactory, objbugfilter, bug, testlink
    dim objbuglink, objbuglinklist, objbuglist
    dim test
    set objbugfactory = qcutil.qcconnection.bugfactory
    set objbugfilter = objbugfactory.filter
    set objbuglist = objbugfilter.newlist
    for each bug in objbuglist
      set objbuglink = bug.linkfactory
      set objbuglinklist = objbuglink.newlist("")
      if objbuglinklist.count > 0 then
        for each testlink in objbuglinklist
          set test = testlink.targetentity
          print bug.id test.name
        next
      end if
    next
    get_defects_list = arr
  end function

Thanks