CHANGER L'ADRESSE IP D'UNE CARTE RESEAU
cs_Banzai
Messages postés
17
Date d'inscription
lundi 12 août 2002
Statut
Membre
Dernière intervention
16 février 2011
-
4 août 2004 à 19:29
ahmedmahdibenjemaa Messages postés 18 Date d'inscription jeudi 27 mars 2008 Statut Membre Dernière intervention 14 mai 2013 - 19 août 2010 à 10:41
ahmedmahdibenjemaa Messages postés 18 Date d'inscription jeudi 27 mars 2008 Statut Membre Dernière intervention 14 mai 2013 - 19 août 2010 à 10:41
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
https://codes-sources.commentcamarche.net/source/25151-changer-l-adresse-ip-d-une-carte-reseau
19 août 2010 à 10:41
merci d'avance
25 juil. 2007 à 03:18
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
25 juil. 2007 à 03:05
how i can use it?
9 août 2004 à 20:15
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+
5 août 2004 à 16:00
5 août 2004 à 11:16
Par contre je n'ai pas ajouté dans mes références Microsoft WMI Scripting pour que ca fonctionne sous Win 2000. Il le faut pour NT et XP peut être ...
Sinon pour information je ne suis pas un expert en VB. :o)
Deplus quand j'ai dis que ca fonctionnait sous NT4 (sp4) .... c'est en rapport avec l'aide MSDN ... :o)
Tu as l'air vraiment calé en la matière ..
est ce que tu connais autre chose qui permet de changer l'adresse ip est qui est multi OS puisque cette méthode n'a pas l'air de fonctionner sur tous les OS ?
5 août 2004 à 10:54
http://www.microsoft.com/downloads/details.aspx?familyid=afe41f46-e213-4cbf-9c5b-fbf236e0e875&languageid=f49e8428-7071-4979-8a67-3cffcb0c2524&displaylang=en
Et important si vous voulez pouvoir utiliser ce code dans VB, il faut bien sur les références à WMi dans le projet !!! (Microsoft WMI Scripting V1.1 Library
5 août 2004 à 10:34
Le sdk contient : Des exemples de code, des librairies parfois installées par le produit pour le quel est fait le SDK et la documentation des API/Fonctions/Méthodes contenues dans les objets du SDK
Dans le cas présent : Le code s'appuie sur WMI et non sur des objets propres à un SDK quelquonque, les pré-requis sont donc une installation de WMI (en standard sur Win XP/2000/2003) et les droits sur le shéma WMI pour le compte qui exécute le script.
Ici il manque la séquence d'impersonification dans la chaine de connection à WMI :
GetObject("winmgmts:{impersonationLevel=impersonate}\" & sComputer & sNameSpace)
le sNameSpace correspondant le plus souvent à la racine standard des interogation WMI :"Root\CIMV2"
De surcroit, il faut faire attention à l'énumération des cartes par WMI car en effet pour WMi le port infrarouge est considéré comme une carte par exemple, ainsi que les accès distants, il vaut donc mieux browser la collection des adapters à la recherche de celle que l'on veux modifier....
Bon courage
5 août 2004 à 08:48
Par contre c'est du SDK.. peut etre que ce n'est pas installé sur vos machines !! sinon je ne peux pas dire ou sinon se renseigner directement sur le site de msdn vu qu'ils précisent que ca doit fonctionner.
a+
JC
5 août 2004 à 00:05
4 août 2004 à 19:29
Il bloque a l'instruction :
Set Adapter = GetObject("winmgmts:Win32_NetworkAdapterConfiguration=0")
4 août 2004 à 19:29
Il bloque a l'instruction :
Set Adapter = GetObject("winmgmts:Win32_NetworkAdapterConfiguration=0")