Dim userdata(1024) As Integer Dim usercdb(12) As Byte Dim target As Integer Dim ha As Integer Dim lun As Integer Dim retval As Integer usercdb(0) = &H12 usercdb(1) = 0 usercdb(2) = 0 usercdb(3) = 0 usercdb(4) = &Hff usercdb(5) = 0 target = 10 ha = 6 lun = 0 retval = SCSIUserCdb(ha,target,lun,usercdb(),6,1,&Hff,0) If retval = 1 Then retval = SCSIGetBuffer(0,32,userdata) For i = 0 To 32 results = results & Format(Hex(userdata(i)),"@@") & " " Next MsgBox results Else MsgBox "command failed" End If