  set irvine = CreateObject("Irvine.Api")
  MsgBox("Irvineのバージョンは " & irvine.Version & " です。")
  set item = CreateObject("Irvine.Item")
  for i = 0 to irvine.ItemCount - 1
    item.Data = irvine.Items(i)
    MsgBox item.Url
  next
