Differenze tra le versioni di "Conoscere numero seriale, modello ed altre informazioni su hard-disk SATA con la funzione esterna ioctl()"
Da Gambas-it.org - Wikipedia.
| Riga 1: | Riga 1: | ||
| − | 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., | + | 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 | + | 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''": | Mostriamo di seguito un esempio pratico, avendo cura di <SPAN Style="text-decoration:underline">eliminare la protezione</span> al file-device "''/dev/sda''": | ||
| Riga 13: | Riga 13: | ||
| − | + | Public Sub Main() | |
Dim fl As File | Dim fl As File | ||
| Riga 19: | Riga 19: | ||
Dim err As Integer | Dim err As Integer | ||
| − | <FONT Color=gray>' ''Elimina la protezione del file-device "/dev/sda".'' | + | <FONT Color=gray>' ''Elimina la protezione del file-device "/dev/sda".''</font> |
| − | ' '''''Si dovrà inserire la propria password di sistema.'''''</font> | + | <FONT Color=#006400>' '''''Si dovrà inserire la propria password di sistema.'''''</font> |
| − | Shell "echo <FONT Color= | + | Shell "echo <FONT Color=darkorange>MIA_PASSWORD</font> | sudo -S chmod 444 /dev/sda" Wait |
fl = Open "/dev/sda" For Read | fl = Open "/dev/sda" For Read | ||
| Riga 43: | Riga 43: | ||
fl.Close | fl.Close | ||
| − | + | End | |
Versione delle 15:25, 1 ago 2023
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 eliminare la protezione al file-device "/dev/sda":
Library "libc:6"
Private Const HDIO_GET_IDENTITY As Integer = &030D
' int ioctl (int __fd, unsigned long int __request, ...)
' Perform the I/O control operation specified by REQUEST on FD.
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
' Elimina la protezione del file-device "/dev/sda".
' Si dovrà inserire la propria password di sistema.
Shell "echo MIA_PASSWORD | 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
Free(hd)
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)
Free(hd)
fl.Close
End
