CHANGER L'ADRESSE IP D'UNE CARTE RESEAU

Signaler
Messages postés
17
Date d'inscription
lundi 12 août 2002
Statut
Membre
Dernière intervention
16 février 2011
-
Messages postés
19
Date d'inscription
jeudi 27 mars 2008
Statut
Membre
Dernière intervention
14 mai 2013
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/25151-changer-l-adresse-ip-d-une-carte-reseau

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
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
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?
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+
Afficher les 12 commentaires