Ottenere la distribuzione di Linux montata, il tipo di architettura e la versione del kernel

Da Gambas-it.org - Wikipedia.

Per conoscere la distribuzione di Linux montata, il tipo di architettura e la versione del kernel utilizzato sulla propria macchina, si può adottare il seguente codice:

Public Sub Main()

 Dim s As String
 Dim c As Short

 s = File.Load("/etc/issue.net")   ' In alcune distribuzioni il percorso del file potrebbe essere: "/etc/issue"
 If c > 0 Then s = Left(File.Load("/etc/issue"), c - 1) & gb.NewLine

 s = "Sistema Operativo: " & s
 s &= "Architettura:      " & System.Architecture
 s &= "\nKernel:            " & Scan(File.Load("/proc/version"), "*(*")[0]

 Print s

End