Erreur lors de la collecte Collecte de mac adresse de stations distantes en Visual Basic Access 2007 fonction GetMACAddress

Question

Bonjour et bonne année (il est encore temps),
Nous avons développé  en VBA sous Access 2003 (migrée sous Access  2007),  une  application qui, pour un hostname netbios saisi, récolte sur
le réseau l’@ mac associée. Les hostnames peuvent correspondre à des
stations Windows, unix, imprimantes, ...
Nous utilisons pour cela la fonction getmacaddress utilisant les commandes
NBASTAT et la fonction Copymemory de la librairie
kernel32 (voir la programmation plus loin)
Il semble que depuis que nous avons migré en Windows 7,  cette application ne fonctionne plus, l’application se refermant sur erreur.
Après test, j’ai constaté qu’elle fonctionne  toujours correctement sur station XP.
J’ai essayé d’utiliser les commandes wmi en lieu et place de
NBASTAT : Wmi ne retourne que les macadresses correspondant à des stations Windows et ne répond donc pas à notre besoin.
 Auriez vous une solution pour continuer à btenir les macaddress et adresses IP ip des matériels réseau distants (stations Windows, unix, impimantes, ...) par
programmation sous Access VBA en Windows 7 ?
Un grand Merci d’avance
GetMacaddress :
Public Function GetMACAddress(ByVal NameHost As String) As String
    On Error Resume Next
    Dim tmp As String, pASTAT As Long
    Dim NCB As NET_CONTROL_BLOCK, AST As ASTAT
    Dim NameOK As Boolean
    Dim t
    Dim octet0 As String
    Dim octet1 As String
    Dim octet2 As String
    Dim octet3 As String
    Dim octet4 As String
    Dim octet5 As String
    NCB.ncb_command = NCBRESET
    Call Netbios(NCB)
    NCB.ncb_callname = NameHost
    NCB.ncb_command = NCBASTAT
    NCB.ncb_lana_num = 0
    NCB.ncb_length = Len(AST)
    pASTAT = HeapAlloc(GetProcessHeap(), HEAP_GENERATE_EXCEPTIONS Or HEAP_ZERO_MEMORY, NCB.ncb_length)
    If pASTAT = 0 Then
        Debug.Print "Erreur d'allocation memoire"
        Exit Function
    End If
    NCB.ncb_buffer = pASTAT
    Call Netbios(NCB)
    CopyMemory AST, NCB.ncb_buffer, Len(AST)
    NameOK = False
    For t = 0 To 5
        If AST.adapt.adapter_address(t) <> 0 Then
            NameOK = True
            Exit For
        End If
    Next
    If NameOK = True Then
        octet0 = VBA.Right("0" & VBA.Hex(AST.adapt.adapter_address(0)), 2)
        octet1 = VBA.Right("0" & VBA.Hex(AST.adapt.adapter_address(1)), 2)
        octet2 = VBA.Right("0" & VBA.Hex(AST.adapt.adapter_address(2)), 2)
        octet3 = VBA.Right("0" & VBA.Hex(AST.adapt.adapter_address(3)), 2)
        octet4 = VBA.Right("0" & VBA.Hex(AST.adapt.adapter_address(4)), 2)
        octet5 = VBA.Right("0" & VBA.Hex(AST.adapt.adapter_address(5)), 2)
        tmp = octet0 & "-" & octet1 & "-" & octet2 & "-" & octet3 & "-" & octet4 & "-" & octet5
        HeapFree GetProcessHeap(), 0, pASTAT
        GetMACAddress = tmp
    Else
        GetMACAddress = "-1"
    End If
End Function
WMI :
Public Function Macadresse() As String
Dim computer As String
Dim wmi As Object
Dim vadapter As Object
Dim query As Variant
Dim mac As Object
Dim mac_ids As String
computer = "hostnamestationdistante"
Set wmi = GetObject("winmgmts:\\" & computer & "\root\cimv2")
'Set wmi = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & computer & "\root\cimv2")
Set vadapter = wmi.execquery("select * from win32_networkadapterconfiguration where Ipenabled = true")
For Each mac In vadapter
    mac_ids = mac_ids & ", " & mac.macaddress
Next mac
If Len(mac_ids) > 0 Then mac_ids = Mid$(mac_ids, 3)
Macadresse = mac_ids
End Function

Answer 1