faux ta source est compliquée à comprendre donc plus difficile à utiliser et en plus elle n'est pas optimisée pour l'execution. A l'inverse les commandes proposées dans cette page sont plus simples à comprendre, plus rapides à utiliser et plus sûres. N'oublie pas, Clem, qu'un bon développeur doit savoir optimiser son code et le réaliser le plus simplement possible. Alors revoit ton jugement !
De plus, c'est vrai qu'il n'y a pas la suppression de clé mais c'est juste un oubli de Amine qu'il corrigera rapidement.
@ +

c'est pas mal mais ca serait bien d'avoir par exemple le coût de la communication et que le prog se lance dès qu'on se connecte à internet. En fait faudrait faire comme "Le Compteur Internet" de Ora Creative, tu connais ?

t'es sponsorisé par Norton ou quoi. Car sache pour ta gouverne qu'il existe d'autre Antivirus tels que VirusScan, Pc Cillin ou encore Panda. Alors modifie ton code en conséquence.
@ +

oui mais au moins t'a tout d'un coup sans devoir faire 36 recherches. Surtout quand t'as besoin d'un coup de tous ces programmes. Enfin ça fait gagner du temps à tout le monde. Et merci pour ce prog.

Salut !

J'ai trouvé sur "microsoft.fr" en tapant le mot clé "mac" dans la zone de recherche de la page d'accueil un meilleur code pour récupérer la mac adresse. Ce prog marche sur toutes les versions de windows. Mais je sais pas s'il est valable sous VB5 car je l'ai programmé en VB6.

Mais je te le donne quand même au cas où ça pourrait servir :

'A mettre dans un module
Public Const NCBASTAT As Long = &H33
Public Const NCBNAMSZ As Long = 16
Public Const NCBRESET As Long = &H32

Public Type NET_CONTROL_BLOCK
    ncb_command As Byte
    ncb_retcode As Byte
    ncb_lsn As Byte
    ncb_num As Byte
    ncb_buffer As Long
    ncb_length As Integer
    ncb_callname As String * NCBNAMSZ
    ncb_name As String * NCBNAMSZ
    ncb_rto As Byte
    ncb_sto As Byte
    ncb_post As Long
    ncb_lana_num As Byte
    ncb_cmd_cplt As Byte
    ncb_reserve(9) As Byte
    ncb_event As Long
End Type

Public Type ADAPTER_STATUS
    adapter_address(5) As Byte
    rev_major As Byte
    reserved0 As Byte
    adapter_type As Byte
    rev_minor As Byte
    duration As Integer
    frmr_recv As Integer
    frmr_xmit As Integer
    iframe_recv_err As Integer
    xmit_aborts As Integer
    xmit_success As Long
    recv_success As Long
    iframe_xmit_err As Integer
    recv_buff_unavail As Integer
    t1_timeouts As Integer
    ti_timeouts As Integer
    Reserved1 As Long
    free_ncbs As Integer
    max_cfg_ncbs As Integer
    max_ncbs As Integer
    xmit_buf_unavail As Integer
    max_dgram_size As Integer
    pending_sess As Integer
    max_cfg_sess As Integer
    max_sess As Integer
    max_sess_pkt_size As Integer
    name_count As Integer
End Type

Public Type NAME_BUFFER
    name As String * NCBNAMSZ
    name_num As Integer
    name_flags As Integer
End Type

Public Type ASTAT
    adapt As ADAPTER_STATUS
    NameBuff(30) As NAME_BUFFER
End Type

Public Declare Function Netbios Lib "netapi32.dll" (pncb As NET_CONTROL_BLOCK) As Byte


Public Function MACAddress() As String
    Dim macAdr As String
    Dim ncb As NET_CONTROL_BLOCK
    Dim adapter As ASTAT
    
    ncb.ncb_command = NCBRESET
    Call Netbios(ncb)
    
    ncb.ncb_command = NCBASTAT
    ncb.ncb_lana_num = 0
    ncb.ncb_callname = "* "
    ncb.ncb_buffer = VarPtr(adapter)
    ncb.ncb_length = Len(adapter)
    
    Call Netbios(ncb) 'renvoie entre autre la mac adresse dans une structure
    For i = 0 To 5
        macAdr = macAdr & Format$(Hex(adapter.adapt.adapter_address(i)), "00") & " "
    Next i

    macAdr = Trim(macAdr) 'Enlève les espces à droite et à gauche de la chaîne
    MACAddress = macAdr

End Function

Private Sub Form_load()
    MsgBox MACAddress
End Sub

Au fait ton prog est censé faire quoi ? car chez moi il se passe rien.
En plus tu dois charger un fichier à partir du répertoire par défaut de windows. Mais sache que tout le monde n'a pas pour répertoire par défaut "C:windows" mais on peut avoir "C:winnt" par exemple (notamment sous NT et 2000). Donc faut récupérer le répertoire par défaut de windows grâce à la fonction "GetWindowsDirectory" de la dll "kernel32".
Voilà c'est tout.  
@ + !

et en plus t'as oublié de préciser qu'il faut aller dans "Références" du menu "Projet" pour cocher "Microsoft ActiveX Data Objects 2.0 Library " sinon reconnaît pas "ADODB".