Dim sensedata(16) As Integer Dim ha As Integer Dim target As Integer Dim lun As Integer Dim retval As Integer Dim testloop As Integer Dim innerloop As Integer Dim results As String Dim NL As String NL = Chr(10) Dim inqdata(256) As Integer Dim inqstr As String Dim i As Integer Dim length As Integer Dim vendor As String Dim vers As String Dim product As String Dim today ha = 5 target = 0 lun = 0 Open "aitlogs.txt" For Output As #1 'MsgBox Now today = Now Print #1, today & " " Print #1, " " retval = SCSIGetDLLVersion() 'MsgBox "Dll version = " & retval 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 Print #1, results Print #1, "" Print #1, "Host adapter = " & ha & " Target = " & target & " LUN = " & lun Print #1, " " End If getlogs Close MsgBox "Test Finished" Stop Sub GetLogs retval = SCSILogSense(ha,target,lun,&H30, &H40,inqdata()) If retval <> 1 Then MsgBox "Log Sense failed - Status = " & retval Stop Else ' results = "Tape log = " ' For i = 0 To 128 ' results = results & Hex(inqdata(i)) & " " ' Next ' Print #1, results results = "Tape Log Page (30h) = " Print #1, results results = "Current Number of Groups Written = " results = results & Hex(inqdata(8)) & Hex(inqdata(9)) & Hex(inqdata(10)) Print #1, results results = "Current Number of RAW Retries = " results = results & Hex(inqdata(15)) & Hex(inqdata(16)) Print #1, results results = "Current Number of Groups Read = " results = results & Hex(inqdata(21)) & Hex(inqdata(22)) & Hex(inqdata(23)) Print #1, results results = "Current Number of ECC-3 Retries = " results = results & Hex(inqdata(28)) & Hex(inqdata(29)) Print #1, results Print #1, " " results = "Previous Number of Groups Written = " results = results & Hex(inqdata(34)) & Hex(inqdata(35)) & Hex(inqdata(36)) Print #1, results results = "Previous Number of RAW Retries = " results = results & Hex(inqdata(41)) & Hex(inqdata(42)) Print #1, results results = "Previous Number of Groups Read = " results = results & Hex(inqdata(47)) & Hex(inqdata(48)) & Hex(inqdata(49)) Print #1, results results = "Previous Number of ECC-3 Retries = " results = results & Hex(inqdata(54)) & Hex(inqdata(55)) Print #1, results Print #1, " " results = "Total Number of Groups Written = " results = results & Hex(inqdata(60)) & Hex(inqdata(61)) & Hex(inqdata(62)) & Hex(inqdata(63)) Print #1, results results = "Total Number of RAW Retries = " results = results & Hex(inqdata(68)) & Hex(inqdata(69)) & Hex(inqdata(70)) Print #1, results results = "Total Number of Groups Read = " results = results & Hex(inqdata(75)) & Hex(inqdata(76)) & Hex(inqdata(77)) & Hex(inqdata(78)) Print #1, results results = "Total Number of ECC-3 Retries = " results = results & Hex(inqdata(83)) & Hex(inqdata(84)) & Hex(inqdata(85)) Print #1, results Print #1, " " results = "Load Count = " results = results & Hex(inqdata(90)) & Hex(inqdata(91)) Print #1, results Print #1, " " End If End Sub