[VB.NET]: Interrogazione stato scheda Ethernet

[w_t]

Dovrei fare una interrogazione alla scheda Ethernet del mio PC tramite un programma VB.NET e sapere se e' bloccata o fuori uso,
e' possibile?

[alka]

Non basterebbe un PING?

[w_t]

Ma non risponde la LoopBack, scheda Ethernet Virtuale ?

[alka]

Originariamente inviato da w_t
Ma non risponde la LoopBack, scheda Ethernet Virtuale ?

Se fai il PING sulla macchina in cui è installata una scheda di rete, se la macchina risponde al PING puoi dire che la scheda è funzionante e la macchina è accesa.

[w_t]

Considera che il Programma VB.NET gira nella solita macchina che sto interrogando

[alka]

Originariamente inviato da w_t
Considera che il Programma VB.NET gira nella solita macchina che sto interrogando

Oooops...

Forse tramite WMI qualcosa si può conoscere...

[motogpdesmo16]

Avrei un problema simile, solo che è rapportato ad asp.net (ma il codice sostanzialmente è vb.net).
Il ping posso farlo indifferentemente se la macchina è connessa tramite Ethernet/USB, vero?

[sspintux]

Originariamente inviato da alka

Forse tramite WMI qualcosa si può conoscere...

..forse anche esaminando l'output di ipconfig
(ipconfig /All > schedarete.txt) si può avere qualche informazione utile
(tipo : cavo di rete scollegato)

[w_t]

Su UgiDotNet mi hanno postato questo:

Una card ehernet bloccata o fuori uso !?.... io andrei dal costruttore a taiwan e lo prenderei a calci..... scherzi a parte : 
se usi il framework 2.0 puoi trovare un aiuto in SystemInformation.Network che 
indica semplicemente se è presente una connessione di rete ma se vuoi sapere proprio se la scheda non funziona dovresti vedere se ti può aiutare 

Management.ManagementObjectSearcher 

con qualcosa del tipo : 

Dim searcher As New Management.ManagementObjectSearcher("SELECT NetConnectionStatus FROM Win32_NetworkAdapter") 
For Each networkAdapter As Management.ManagementObject In searcher.Get() 
If (Not IsNothing(networkAdapter("NetConnectionStatus"))) Then 
If Convert.ToInt32(networkAdapter("NetConnectionStatus")).Equals(2) Then 
connected = True 
Exit For 
End If 
End If 
Next 


NetConnectionStatus dovrebbe assumere i valori definiti da questa funzione : 

Function NetConnectionStatus(intStatus) 
Select Case intStatus 
Case 0 
NetConnectionStatus = "Disconnected" 
Case 1 
NetConnectionStatus = "Connecting" 
Case 2 
NetConnectionStatus = "Connected" 
Case 3 
NetConnectionStatus = "Disconnecting" 
Case 4 
NetConnectionStatus = "Hardware not present" 
Case 5 
NetConnectionStatus = "Hardware disabled" 
Case 6 
NetConnectionStatus = "Hardware malfunction" 
Case 7 
strNetConnectionStatus = "Media disconnected" 
Case 8 
NetConnectionStatus = "Authenticating" 
Case 9 
NetConnectionStatus = "Authentication succeeded" 
Case 10 
NetConnectionStatus = "Authentication failed" 
Case 11 
strNetConnectionStatus = "Invalid address" 
Case 12 
NetConnectionStatus = "Credentials required" 
Case Else 
NetConnectionSattus = "" 
End Select 
End Function

[alka]

...e funziona?