Differenze tra le versioni di "Conoscere il nome delle interfacce di rete presenti nel proprio sistema"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "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 appu...") |
|||
| Riga 1: | Riga 1: | ||
| − | 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. | + | 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: | Pertanto sarà semplice ricavare il solo e semplice nome delle interfacce di rete ad esempio mediante il seguente codice: | ||
| Riga 6: | Riga 6: | ||
Dim archivos As String[] | Dim archivos As String[] | ||
Dim s As String | Dim s As String | ||
| + | |||
| + | archivos = Dir("/proc/net/dev_snmp6", Null, gb.Device) | ||
| + | |||
| + | For Each s In archivos | ||
| + | Print s | ||
| + | Next | ||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
'''End''' | '''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''": | + | 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() | '''Public''' Sub Main() | ||
| Riga 22: | Riga 22: | ||
Dim s As String | Dim s As String | ||
Dim b As Byte | 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''' | '''End''' | ||
Versione delle 19:40, 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 archivos As String[]
Dim s As String
archivos = Dir("/proc/net/dev_snmp6", Null, gb.Device)
For Each s In archivos
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
