Differenze tra le versioni di "Conoscere il nome delle interfacce di rete presenti nel proprio sistema"
Da Gambas-it.org - Wikipedia.
| Riga 4: | Riga 4: | ||
'''Public''' Sub Main() | '''Public''' Sub Main() | ||
| − | Dim | + | Dim ss As String[] |
Dim s As String | Dim s As String | ||
| − | + | ss = Dir("/proc/net/dev_snmp6", Null, gb.Device) | |
| − | + | ||
| − | For Each s In | + | For Each s In ss |
Print s | Print s | ||
Next | Next | ||
Versione delle 19:42, 29 ott 2022
Il riferimento alle interfacce di rete presenti nel proprio sistema può essere riscontrato nei file contenuti nella cartella "/proc/net/dev_snmp6 ", i quali riportano appunto il nome della relativa interfaccia.
Pertanto sarà semplice ricavare il solo e semplice nome delle interfacce di rete ad esempio mediante il seguente codice:
Public Sub Main()
Dim ss As String[]
Dim s As String
ss = Dir("/proc/net/dev_snmp6", Null, gb.Device)
For Each s In ss
Print s
Next
End
Un'altra possibilità di conoscere il nome di ciascuna interfaccia di rete è quella di estrapolarlo dalle informazioni testuali contenute nel file "/proc/net/dev ":
Public Sub Main()
Dim ss As String[]
Dim s As String
Dim b As Byte
s = File.Load("/proc/net/dev")
ss = Split(s, gb.NewLine)
For b = 2 To ss.Max
If Not IsNull(ss[b]) Then Print LTrim(Scan(ss[b], "*:*")[0])
Next
End
