GESTIONNAIRE DE PROFILS DE CONNEXION RESEAU

Commentaire de oursdestras le 27/02/2007 23:37:53

Salut vous tous ;-)
Voilà comme par le plus grand des hasards, je suis en train de me casser les dents sur le même programme que toi (créer des profils de connexion) mais c’est loin d’être au point…
J’ai comparé ton programme au mien et j’avoue que nous avons tout deux, deux façons  bien différente d’abordé le problème (je début snif snif).

Je bloque aussi sur ton programme avec Studio 2005 (for each).

En revanche pour répertorier les cartes réseaux, je les ai recherché dans la base de registre.. ce qui donne :
‘………………………………………………………………………………………………….
Public Function sChargeValKeyCarteReso(ByVal iVar As Integer, ByVal bEval As Boolean) As String
        '................................................................................................
        'Charge les noms et les ServiceNames des cartes réseaux.
        'L'adresse clef registre des noms et ServiceName est :HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards

        'e = False -> eVal= 2 donne les ServiceNames.
        'e= True -> eVal=1 donne les noms des cartes réseaux.


        Dim iVal As Integer
        Dim iNombrSouKey As Integer
        Dim sNomSK As String
        iNombrSouKey = My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards").SubKeyCount
        Dim sName(iNombrSouKey) As String 'Tous les noms des cartes réseaux sont dan"sName"
        sName = My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE").OpenSubKey("Microsoft").OpenSubKey("Windows NT").OpenSubKey("CurrentVersion").OpenSubKey("NetworkCards").GetSubKeyNames
        Dim n As Integer
        n += 1
        Dim sEtiqutt(iNombrSouKey - 1, 1) As String



sNomSK = sName(iVar)
        sEtiqutt(iVar, 0) = My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards").OpenSubKey(sNomSK).GetValue("Description")
        sEtiqutt(iVar, 1) = My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards").OpenSubKey(sNomSK).GetValue("ServiceName")

        Return sEtiqutt(iVar, iVal)


    End Function

C’est un peut lourd mais ca marche de plus il prend en charge les cartes de type 13942.
Ca peu t’être utile ?