How do i get the MAC address of the NIC cards connected in pb7?

and check also this link

http://www.experts-exchange.com/Programming/Editors_IDEs/PowerBuilder/Q_22442499.html

thank you all for the reply. but..
I have code to obtain mac id in pb 10,
but  as  there is no equivalent functions in pb 7(like String(lblb_data, EncodingAnsi!) for ex.)
i am unable to get desired result.
here i am pasting my pb 10 code, please help me migrate it to version 7 of pb


// -----------------------------------------------------------------------------
// SCRIPT:     n_adapter.of_GetAdapterInfo
//
// PURPOSE:    This function returns information about network adapters.
//
// ARGUMENTS:  as_macaddress      - Array of MAC addresses
//                              as_description      - Array of Descriptions
//                              as_adaptername      - Array of Adapter names
//                              as_ipaddress      - Array of IP addresses
//
// DATE        PROG/ID            DESCRIPTION OF CHANGE / REASON
// ----------  --------            -----------------------------------------------------
// 01/21/2006      RolandS            Initial coding
// -----------------------------------------------------------------------------

Constant ULong ERROR_BUFFER_OVERFLOW = 111
Blob lblb_AdapterInfo, lblb_data
ULong lul_rtn, lul_OutBufLen
Integer li_adaptcnt, li_adaptmax, li_addrlen
Integer li_cnt, li_max, li_pos, li_char, li_offset
String ls_errmsg

// call function to get buffer size
lul_rtn = GetAdaptersInfo(lblb_AdapterInfo, lul_OutBufLen)
If lul_rtn = ERROR_BUFFER_OVERFLOW Then
      // allocate buffer
      lblb_AdapterInfo = Blob(Space(lul_OutBufLen/2))
      // call function to get data
      lul_rtn = GetAdaptersInfo(lblb_AdapterInfo, lul_OutBufLen)
      If lul_rtn = 0 Then
            // how many adapters?
            li_adaptmax = lul_OutBufLen / 640
            For li_adaptcnt = 1 To li_adaptmax
                  // calculate offset
                  li_offset = (640 * (li_adaptcnt - 1))
                  // get mac address length
                  lblb_data = BlobMid(lblb_AdapterInfo, li_offset + 401, 1)
                  li_addrlen = Asc(String(lblb_data, EncodingAnsi!))
                  // get mac address
                  For li_cnt = 1 To li_addrlen
                        li_pos = li_offset + 404 + li_cnt
                        lblb_data = BlobMid(lblb_AdapterInfo, li_pos, 1)
                        li_char = Asc(Char(String(lblb_data, EncodingAnsi!)))
                        If li_char < 16 Then
                              as_macaddress[li_adaptcnt] += "0"
                        End If
                        as_macaddress[li_adaptcnt] += of_ToHex(li_char)
                        If li_cnt < li_addrlen Then
                              as_macaddress[li_adaptcnt] += "-"
                        End If
                  Next


                  // get description
                  lblb_data = BlobMid(lblb_AdapterInfo, li_offset + 269, 132)
                  as_description[li_adaptcnt] = String(lblb_data, EncodingAnsi!)
                  // get adaptername
                  lblb_data = BlobMid(lblb_AdapterInfo, li_offset + 9, 260)
                  as_adaptername[li_adaptcnt] = String(lblb_data, EncodingAnsi!)
                  // get ip address
                  lblb_data = BlobMid(lblb_AdapterInfo, li_offset + 433, 16)
                  as_ipaddress[li_adaptcnt] = String(lblb_data, EncodingAnsi!)
            Next
      Else
            ls_errmsg = of_GetErrorMsg(lul_rtn)
            MessageBox("Error in of_GetAdapterInfo", &
                                    ls_errmsg, StopSign!)
            Return False
      End If
Else
      ls_errmsg = of_GetErrorMsg(lul_rtn)
      MessageBox("Error in of_GetAdapterInfo", &
                              ls_errmsg, StopSign!)
      Return False
End If

Return True

http://www.rgagnon.com/pbdetails/pb-0267.html#

pls check this link