Discussion :

[EHOMBA]

Bonjour,

S'il vous plait, aidez-moi, j'aimerais récupérer l'adresse MAC du PC pour l'afficher dans une zone de texte d'un état.
Merci d'avance.
EOF

[Malick]

Ces entrées dans la pourraient vous être utiles :

• Comment obtenir les informations issues des cartes réseau à la manière d'un IPCONFIG ?
  
• Comment obtenir l'adresse MAC de la carte réseau ?

Cordialement,
Malick

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub test()
Debug.Print GetNetworkConnectionMACAddress
End Sub
Function GetNetworkConnectionMACAddress() As String
   Dim vAdapters As Variant
   Dim oAdapter As Object
   Dim lIndex As Long
   Dim lMatchIndex As Long
   Dim vResult As Variant
    Set oWMIService = GetObject("winmgmts:\\" & "." & "\root\cimv2")
   Set vAdapters = oWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
   For Each oAdapter In vAdapters
       If Not IsNull(oAdapter.MACAddress) And IsArray(oAdapter.IPAddress) Then
           lMatchIndex = -1
           For lIndex = 0 To UBound(oAdapter.IPAddress)
               If Not oAdapter.IPAddress(lIndex) = "0.0.0.0" Then
                   lMatchIndex = lIndex
                   Exit For
               End If
           Next lIndex
           If Not lMatchIndex < 0 Then
               GetNetworkConnectionMACAddress = oAdapter.MACAddress
           End If
       End If
  Next
End Function

[EHOMBA]

Ce module marche très bien sur un nouveau projet MS Access, mais losque j'essaie de l'exécuter sur base de données existante, il me retourne une boîte de dialogue suivante: "Assistant intégration du module de sécurité : Etape n°1". Que faire svp?
EOF