Dim inqdata(64) As Integer Dim retval As Integer Dim ha As Integer Dim target As Integer Dim lun As Integer Dim results As String Dim inqstr As String Dim i As Integer Dim NL Dim length As Integer Dim vendor As String Dim vers As String Dim product As String target = 10 ha = 6 lun = 0 retval = SCSIInquiry(ha,target,lun,inqdata) If retval <> 1 Then MsgBox "Inquiry failed - Status = " & retval Stop Else retval = SCSIGetVendor(ha,target,lun,vendor) retval = SCSIGetProduct(ha,target,lun,product) retval = SCSIGetVersion(ha,target, lun , vers) results = "Vendor = " & vendor & " Product = " & product & " Version = " & vers MsgBox results results = "Hex INQUIRY data = " For i = 0 To 32 results = results & Format(Hex(inqdata(i)),"@@") & " " Next MsgBox results End If