Changer l'adresse ip d'une carte reseau

Commenter

Contenu du snippet

Le code permet de changer l'adresse ip d'une carte réseau

Source / Exemple : 


Dim Adapter As Object
    Dim tmpStr As String
    
    Dim ipaddr As Variant
    Dim subnet As Variant
    Dim gateway As Variant
    Dim tmpVariant As Variant
    
    Dim RetVal As Integer
    

    Set Adapter = GetObject("winmgmts:Win32_NetworkAdapterConfiguration=0") ' 0 = le numéro de la carte réseau 0 : si une seule ....
    
    
    ipaddr = Array(IpAdresse)
    subnet = Array(IpSousReseau)
    gateway = Array(IpPasserelle)
    
    
    'Set your adapter to a static IP address
    RetVal = Adapter.EnableStatic(ipaddr, subnet)
    
    If RetVal = 0 Then
        'Set your gateway
        RetVal = Adapter.setgateways(gateway)
        If RetVal = 0 Then
            'Set your DNS
            RetVal = Adapter.SetDNSDomain("myDnsName")
        End If
    End If

Conclusion :


Si y a un problème demandé le ici ou sur un message privé du forum

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.