Bonjour le Forum,

J'ai un code qui permet de savoir si le VPN est actif mais pour qu'il fonctionne il faut le nom du VPN, mais je ne le trouve pas, j'ai essayé plusieurs noms que j'ai pris dans les processus en cours Windows ou sur Reseau mais sans succès.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
  Private Sub CheckVPN()
        Dim nics As NetworkInterface() = NetworkInterface.GetAllNetworkInterfaces
        Dim isVpnExist As Boolean = nics.AsEnumerable().Any(Function(x) x.Name = "Cisco AnyConnect ")
        If isVpnExist Then
            ' vpn exist do something
            MsgBox("VPN Actif")
        Else
 
            ' vpn is not exist do something
            MsgBox("No VPN")
        End If
    End Sub
Merci pour votre aide.