Changer l'adresse ip d'une carte reseau

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 643 fois - Téléchargée 34 fois

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

Ajouter un commentaire

Commentaires

Signaler
ahmedmahdibenjemaa
Messages postés
19
Date d'inscription
jeudi 27 mars 2008
Statut
Membre
Dernière intervention
14 mai 2013
 -
quelle sont les bibliothèque qu'on doit importé??
merci d'avance
Signaler
jkbenites
Messages postés
3
Date d'inscription
jeudi 6 juillet 2006
Statut
Membre
Dernière intervention
27 juillet 2007
 -
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





Private Sub Form_Load()

********* THE ERROR WAS HERE (AUTOMATITAtION of ERROR:
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
End Sub
Signaler
jkbenites
Messages postés
3
Date d'inscription
jeudi 6 juillet 2006
Statut
Membre
Dernière intervention
27 juillet 2007
 -
i have a problem with the source...
how i can use it?
Signaler
patrick532
Messages postés
40
Date d'inscription
mardi 2 septembre 2003
Statut
Membre
Dernière intervention
20 avril 2009
 -
salut,
ne sachant pas comment on peut répondre en joignant un zip je vous renvoi sur cette source que je viens de déposer:
http://www.vbfrance.com/code.aspx?ID=25291
pour faire fonctionner netsh sans que l'utilisateur utilise la ligne de commande. (j'ai créer ce prog pour XP).
bonne continuation et A+
Signaler
cs_Spectrum
Messages postés
21
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
7 décembre 2004
 -
le changement d'adresse multi OS passe obligatoirement par différents outils. En effet, dans les conf w95, w98, ces informations sont stoquées dans le registre donc modification assez lourde (due à l'organisation des clef), pour w2k et XP on à également la possibilité d'utiliser netsh (en ligne de commande)
Afficher les 12 commentaires
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.