Differenze tra le versioni di "Ottenere la distribuzione di Linux montata, il tipo di architettura e la versione del kernel"
Da Gambas-it.org - Wikipedia.
| Riga 3: | Riga 3: | ||
Dim s As String | Dim s As String | ||
| + | Dim c As Short | ||
| − | s = | + | s = File.Load("/etc/issue.net") <FONT Color=gray>' ''In alcune distribuzioni il percorso del file potrebbe essere:'' "'''/etc/issue'''"</font> |
| + | If c > 0 Then s = Left(File.Load("/etc/issue"), c - 1) & gb.NewLine | ||
| + | |||
| + | s = "Sistema Operativo: " & s | ||
s &= "Architettura: " & System.Architecture | s &= "Architettura: " & System.Architecture | ||
s &= "\nKernel: " & Scan(File.Load("/proc/version"), "*(*")[0] | s &= "\nKernel: " & Scan(File.Load("/proc/version"), "*(*")[0] | ||
Versione attuale delle 17:49, 14 gen 2024
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
