PureBasic Forums - English

Code: Select all

Structure IDEREGS 
    bFeaturesReg.b 
    bSectorCountReg.b 
    bSectorNumberReg.b 
    bCylLowReg.b 
    bCylHighReg.b 
    bDriveHeadReg.b 
    bCommandReg.b 
    bReserved.b 
EndStructure 
Structure SENDCMDINPARAMS 
    cBufferSize.l 
    irDriveRegs.IDEREGS 
    bDriveNumber.b 
    bReserved.b[3] 
    dwReserved.l[4] 
EndStructure 

Structure  DRIVERSTATUS 
    bDriveError.b 
    bIDEStatus.b 
    bReserved.b[2] 
    dwReserved.l[2] 
EndStructure 
Structure  SENDCMDOUTPARAMS 
    cBufferSize.l 
    DStatus.DRIVERSTATUS      
    bBuffer.b[512] 
EndStructure 

Structure DRIVEATTRIBUTE 
  bAttrID.b 
  wStatusFlags.w 
  bAttrValue.b 
  bWorstValue.b 
  bRawValue.b[6] 
  bReserved.b 
EndStructure 

Structure ATTRTHRESHOLD 
  bAttrID.b 
  bWarrantyThreshold.b 
  bReserved.b[10] 
EndStructure 

#DFP_RECEIVE_DRIVE_DATA = $7C088 
#DFP_SEND_DRIVE_COMMAND = $7c084 
#SMART_ENABLE_SMART_OPERATIONS = $d8 
#SMART_CYL_LOW = $4F 
#SMART_CYL_HI = $C2 
#IDE_EXECUTE_SMART_FUNCTION = $b0 
#SMART_READ_ATTRIBUTE_VALUES = $d0 
#SMART_READ_ATTRIBUTE_THRESHOLDS = $d1 



bin.SENDCMDINPARAMS 
bout.SENDCMDOUTPARAMS 



Procedure.s ChangeHighLowByte(Instring.s) 
;Change BIG-Little Endian 
sdummy.s="" 
L=Len(Instring) 
For I=1 To L Step 2 
If (I+1)<=L 
  sdummy.s=sdummy.s + Mid(Instring,I+1,1)+Mid(Instring,I,1)  
EndIf 
Next I 
ProcedureReturn sdummy.s 
EndProcedure 


mvarCurrentDrive=0 ;If you have more hard-disks change it here 

hdh = CreateFile_("\\.\PhysicalDrive" + Str(mvarCurrentDrive),#GENERIC_READ | #GENERIC_WRITE, #FILE_SHARE_READ | #FILE_SHARE_WRITE,0, #OPEN_EXISTING, 0, 0) 
If hdh  
        bin\bDriveNumber = mvarCurrentDrive 
        bin\cBufferSize = 512 
        
        If (mvarCurrentDrive & 1) 
          bin\irDriveRegs\bDriveHeadReg = $B0 
        Else 
          bin\irDriveRegs\bDriveHeadReg = $A0 
        EndIf 
        bin\irDriveRegs\bCommandReg = $EC 
        bin\irDriveRegs\bSectorCountReg = 1 
        bin\irDriveRegs\bSectorNumberReg = 1 
    
       br=0 
       Result=DeviceIoControl_( hdh, #DFP_RECEIVE_DRIVE_DATA, bin, SizeOf(SENDCMDINPARAMS), bout, SizeOf(SENDCMDOUTPARAMS), @br, 0) 
       If br>0 
        hddfr = 55:hddln = 40          : 
        Modell.s=ChangeHighLowByte(PeekS(@bout\bBuffer[0]+hddfr-1 ,hddln  ) ) 
        hddfr = 21:hddln = 20          : 
        Serial.s=Trim(ChangeHighLowByte(PeekS(@bout\bBuffer[0]+hddfr-1 ,hddln  ) )) 
        hddfr = 47:hddln = 8          
        Firmware.s=ChangeHighLowByte(PeekS(@bout\bBuffer[0]+hddfr-1 ,hddln  ) ) 
        Debug "Model: "+Modell.s 
        Debug "Serial: "+Serial.s 
        Debug  "Firmware: "+Firmware.s 
       EndIf 

       bin\irDriveRegs\bFeaturesReg = #SMART_ENABLE_SMART_OPERATIONS 
       bin\irDriveRegs\bSectorCountReg = 1 
       bin\irDriveRegs\bSectorNumberReg = 1 
       bin\irDriveRegs\bCylLowReg = #SMART_CYL_LOW 
       bin\irDriveRegs\bCylHighReg = #SMART_CYL_HI 
       bin\irDriveRegs\bCommandReg = #IDE_EXECUTE_SMART_FUNCTION 
       bin\bDriveNumber = mvarCurrentDrive 
       If (mvarCurrentDrive & 1) 
          bin\irDriveRegs\bDriveHeadReg = $B0 
        Else 
          bin\irDriveRegs\bDriveHeadReg = $A0 
       EndIf 
       br=0 
       Result=DeviceIoControl_( hdh, #DFP_SEND_DRIVE_COMMAND, bin, SizeOf(SENDCMDINPARAMS), bout, SizeOf(SENDCMDOUTPARAMS), @br, 0) 
       Debug hdh 
       Debug GetLastError_() 
       Debug Result 
       If br>0 
        Debug "#SMART_ENABLE_SMART_OPERATIONS successful" 
       EndIf 
        
       bin\irDriveRegs\bFeaturesReg = #SMART_READ_ATTRIBUTE_THRESHOLDS 
       br=0 
       Result=DeviceIoControl_( hdh, #DFP_RECEIVE_DRIVE_DATA, bin, SizeOf(SENDCMDINPARAMS), bout, SizeOf(SENDCMDOUTPARAMS), @br, 0) 
       If br>0 
        Debug "#SMART_READ_ATTRIBUTE_THRESHOLDS successful" 
        i=0 
        *pTA.ATTRTHRESHOLD = @bout\bBuffer[0]+2 
        While *pTA\bAttrID & $FF <> 0 
          Debug "Attribute "+Str(*pTA\bAttrID & $FF) 
          Debug *pTA\bWarrantyThreshold & $FF 
          *pTA.ATTRTHRESHOLD = *pTA.ATTRTHRESHOLD + SizeOf(ATTRTHRESHOLD) 
        Wend 
       EndIf 

        
       bin\irDriveRegs\bFeaturesReg = #SMART_READ_ATTRIBUTE_VALUES 
       br=0 
       Result=DeviceIoControl_( hdh, #DFP_RECEIVE_DRIVE_DATA, bin, SizeOf(SENDCMDINPARAMS), bout, SizeOf(SENDCMDOUTPARAMS), @br, 0) 
       If br>0 
        Debug "#SMART_READ_ATTRIBUTE_VALUES successful" 
        i=0 
        *pDA.DRIVEATTRIBUTE = @bout\bBuffer[0]+2 
        While *pDA\bAttrID & $FF <> 0 
          Debug "Attribute "+Str(*pDA\bAttrID & $FF) 
          Debug *pDA\bAttrValue & $FF 
          Debug *pDA\bWorstValue & $FF 
          Debug (*pDA\bRawValue[0] & $FF) + (*pDA\bRawValue[1] & $FF) * 256 
          Debug "" 
          *pDA.DRIVEATTRIBUTE = *pDA.DRIVEATTRIBUTE + SizeOf(DRIVEATTRIBUTE) 
        Wend 
       EndIf 

Else 
  Beep_(100,100) 
EndIf 

Code: Select all

PRE_FAILURE_WARRANTY = &H1
ON_LINE_COLLECTION = &H2
PERFORMANCE_ATTRIBUTE = &H4
ERROR_RATE_ATTRIBUTE = &H8
EVENT_COUNT_ATTRIBUTE = &H10
SELF_PRESERVING_ATTRIBUTE = &H20