home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / iria107a.lzh / api_test.vbs next >
Encoding:
Text File  |  2000-12-15  |  299 b   |  13 lines
  1. On Error Resume Next
  2. set Iria = CreateObject("Iria.IriaApi")
  3. if Iria is Nothing then
  4.   MsgBox("Iriaé¬î⌐òté⌐éΦé▄é╣é±")
  5. else
  6.   count = Iria.ItemCount
  7.   if count > 0 then
  8.     id = Iria.Items(0).Self_ID
  9.     MsgBox(Iria.ItemStatus(id))
  10.   end if                         
  11. end if
  12.  
  13. Iria = Nothing