Visualizza wikitesto di Conoscere numero seriale, modello ed altre informazioni su hard-disk SATA con la funzione esterna ioctl()

Utilizzando la funzione esterna "ioctl()", e facendo riferimento alla ''Struttura'' esterna ''hd_driveid'' del file header ''/usr/include/linux/hdreg.h'', è possibile ottenere alcune informazioni, come numero seriale, modello etc., relative a un hard-disk SATA.

Sarà necessario richiamare nel progetto Gambas la libreria condivisa: "''libc.so.6'' ".

Mostriamo di seguito un esempio pratico, avendo cura di <SPAN Style="text-decoration:underline">eliminare la protezione</span> al file-device "''/dev/sda''":
 Library "libc:6"
 
 Private Const HDIO_GET_IDENTITY As Integer = &030D
 
 <FONT Color=gray>' ''int ioctl (int __fd, unsigned long int __request, ...)''
 ' ''Perform the I/O control operation specified by REQUEST on FD.''</font>
 Private Extern ioctl(__fd As Integer, __request As Long, hd_drived As Pointer) As Integer
 
 
 Public Sub Main()
 
  Dim fl As File
  Dim hd As Pointer
  Dim err As Integer
 
 <FONT Color=gray>' ''Elimina la protezione del file-device "/dev/sda".''</font>
 <FONT Color=#006400>' '''''Si dovrà inserire la propria password di sistema.'''''</font>
  Shell "echo <FONT Color=darkorange>MIA_PASSWORD</font> | sudo -S chmod 444 /dev/sda" Wait
 
  fl = Open "/dev/sda" For Read
 
  hd = Alloc(SizeOf(gb.Byte), 512)
 
  err = ioctl(fl.Handle, HDIO_GET_IDENTITY, hd)
  If err < 0 Then
    Chiusura(hd, fl)
    Error.Raise("Errore alla funzione 'ioctl()' !")
  Endif
 
  Print "\n\nCilindri:       "; Short@(hd + 2) & Space(16)
  Print "Heads:          "; Short@(hd + 6)
  Print "Settori:        "; Short@(hd + 12)
  Print "Num. seriale:   "; Trim(Left(String@(hd + 20), 20))
  Print "Firmware rev.:  "; Left(String@(hd + 46), 8)
  Print "Modello:        "; Left(String@(hd + 54), 40)
 
  Chiusura(hd, fl)
 
 End
 
 
 Private Procedure Chiusura(p As Pointer, fi As File)
 
  Free(p)
  fi.Close
 
 End