Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Changement d'IP, qq soucis...

Changement d'IP, qq soucis...

9 réponses
Avatar
John Fuss
Bonjour,

je développe en VBA sous Excel (personne n'est parfait) une gestion de site
avec principalement la gestion de l'IP (IP, subnet, gateway, DHCP, DNS,
WINS) et la gestion de l'imprimante par defaut.

Mon problème : le changement des paramètres IP ne se font que si le poste
est connecté au réseau (même si le Pc est juste branché sur un HUB tout seul
ça marche mais non connecté ça marche pas). Je fourni ma méthode en bas de
mail, connaissez-vous une technique/méthode pour palier à mon problème ?

Merci d'avance

John

Voici ma fonction un peu elaguée :

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery("Select * from
Win32_NetworkAdapterConfiguration")
For Each objNetAdapter In colNetAdapters
If i = Index Then
If DNS Then
Err = objNetAdapter.SetDNSServerSearchOrder(tabDNS)
Else
Err = objNetAdapter.SetDNSServerSearchOrder()
End If
If DHCP Then
Err = Err + objNetAdapter.EnableDHCP()
ElseIf IsArray(tabIP) Then
Err = Err + objNetAdapter.EnableStatic(Array(tabIP(0)),
Array(tabIP(1)))
Err = Err + objNetAdapter.setgateways(Array(tabIP(2)),
Array(1))
Else
Err = 1
End If
If WINS And IsArray(tabWINS) Then
Err = Err + objNetAdapter.SetWINSServer(tabWINS(0),
tabWINS(1))
ElseIf Not WINS Then
Err = Err + objNetAdapter.SetWINSServer("", "")
Else
Err = 1
End If
SetIPAddress = Err = 0
Exit For
End If
i = i + 1
Next
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Quasimodo
John Fuss wrote on 11/9/2004 :
Bonjour,

je développe en VBA sous Excel (personne n'est parfait) une gestion de site
avec principalement la gestion de l'IP (IP, subnet, gateway, DHCP, DNS,
WINS) et la gestion de l'imprimante par defaut.

Mon problème : le changement des paramètres IP ne se font que si le poste
est connecté au réseau (même si le Pc est juste branché sur un HUB tout seul
ça marche mais non connecté ça marche pas). Je fourni ma méthode en bas de
mail, connaissez-vous une technique/méthode pour palier à mon problème ?

Merci d'avance

John

Voici ma fonction un peu elaguée :

Set objWMIService = GetObject("winmgmts:.rootcimv2")
Set colNetAdapters = objWMIService.ExecQuery("Select * from
Win32_NetworkAdapterConfiguration")
For Each objNetAdapter In colNetAdapters
If i = Index Then
If DNS Then
Err = objNetAdapter.SetDNSServerSearchOrder(tabDNS)
Else
Err = objNetAdapter.SetDNSServerSearchOrder()
End If
If DHCP Then
Err = Err + objNetAdapter.EnableDHCP()
ElseIf IsArray(tabIP) Then
Err = Err + objNetAdapter.EnableStatic(Array(tabIP(0)),
Array(tabIP(1)))
Err = Err + objNetAdapter.setgateways(Array(tabIP(2)),
Array(1))
Else
Err = 1
End If
If WINS And IsArray(tabWINS) Then
Err = Err + objNetAdapter.SetWINSServer(tabWINS(0),
tabWINS(1))
ElseIf Not WINS Then
Err = Err + objNetAdapter.SetWINSServer("", "")
Else
Err = 1
End If
SetIPAddress = Err = 0
Exit For
End If
i = i + 1
Next



bonjour,
c'est un peux logique.
Vous demandez un stack ip à un serveur dhcp et si vous n'êtes pas
connecté au réseau (pas de broadcast possible), alors il n'est pas
possible de contacter le serveur dhcp. Le service icp de la station je
crois, vous octroie une adresse ip du type 169.xxx automatiquement.

@+Quaz

--
This is an automatic signature of MesNews.
Site : http://mesnews.no-ip.com
Avatar
John Fuss
Je ne crois pas, qd je fais :
ElseIf IsArray(tabIP) Then
Err = Err + objNetAdapter.EnableStatic(Array(tabIP(0)),
Array(tabIP(1)))
Err = Err + objNetAdapter.setgateways(Array(tabIP(2)),
je n'utilise pas le DHCP ?!
Uniquement dans ce cas :
If DHCP Then
Err = Err + objNetAdapter.EnableDHCP()

Non ?

John

"Quasimodo" a écrit dans le message de
news:
John Fuss wrote on 11/9/2004 :
> Bonjour,
>
> je développe en VBA sous Excel (personne n'est parfait) une gestion de


site
> avec principalement la gestion de l'IP (IP, subnet, gateway, DHCP, DNS,
> WINS) et la gestion de l'imprimante par defaut.
>
> Mon problème : le changement des paramètres IP ne se font que si le


poste
> est connecté au réseau (même si le Pc est juste branché sur un HUB tout


seul
> ça marche mais non connecté ça marche pas). Je fourni ma méthode en bas


de
> mail, connaissez-vous une technique/méthode pour palier à mon problème ?
>
> Merci d'avance
>
> John
>
> Voici ma fonction un peu elaguée :
>
> Set objWMIService = GetObject("winmgmts:.rootcimv2")
> Set colNetAdapters = objWMIService.ExecQuery("Select * from
> Win32_NetworkAdapterConfiguration")
> For Each objNetAdapter In colNetAdapters
> If i = Index Then
> If DNS Then
> Err = objNetAdapter.SetDNSServerSearchOrder(tabDNS)
> Else
> Err = objNetAdapter.SetDNSServerSearchOrder()
> End If
> If DHCP Then
> Err = Err + objNetAdapter.EnableDHCP()
> ElseIf IsArray(tabIP) Then
> Err = Err +


objNetAdapter.EnableStatic(Array(tabIP(0)),
> Array(tabIP(1)))
> Err = Err +


objNetAdapter.setgateways(Array(tabIP(2)),
> Array(1))
> Else
> Err = 1
> End If
> If WINS And IsArray(tabWINS) Then
> Err = Err + objNetAdapter.SetWINSServer(tabWINS(0),
> tabWINS(1))
> ElseIf Not WINS Then
> Err = Err + objNetAdapter.SetWINSServer("", "")
> Else
> Err = 1
> End If
> SetIPAddress = Err = 0
> Exit For
> End If
> i = i + 1
> Next

bonjour,
c'est un peux logique.
Vous demandez un stack ip à un serveur dhcp et si vous n'êtes pas
connecté au réseau (pas de broadcast possible), alors il n'est pas
possible de contacter le serveur dhcp. Le service icp de la station je
crois, vous octroie une adresse ip du type 169.xxx automatiquement.

@+Quaz

--
This is an automatic signature of MesNews.
Site : http://mesnews.no-ip.com



Avatar
Quasimodo
John Fuss has brought this to us :
Je ne crois pas, qd je fais :
ElseIf IsArray(tabIP) Then
Err = Err + objNetAdapter.EnableStatic(Array(tabIP(0)),
Array(tabIP(1)))
Err = Err + objNetAdapter.setgateways(Array(tabIP(2)),
je n'utilise pas le DHCP ?!
Uniquement dans ce cas :
If DHCP Then
Err = Err + objNetAdapter.EnableDHCP()

Non ?

John

"Quasimodo" a écrit dans le message de
news:
John Fuss wrote on 11/9/2004 :
Bonjour,

je développe en VBA sous Excel (personne n'est parfait) une gestion de site
avec principalement la gestion de l'IP (IP, subnet, gateway, DHCP, DNS,
WINS) et la gestion de l'imprimante par defaut.

Mon problème : le changement des paramètres IP ne se font que si le poste
est connecté au réseau (même si le Pc est juste branché sur un HUB tout
seul ça marche mais non connecté ça marche pas). Je fourni ma méthode en
bas de mail, connaissez-vous une technique/méthode pour palier à mon
problème ?

Merci d'avance

John

Voici ma fonction un peu elaguée :

Set objWMIService = GetObject("winmgmts:.rootcimv2")
Set colNetAdapters = objWMIService.ExecQuery("Select * from
Win32_NetworkAdapterConfiguration")
For Each objNetAdapter In colNetAdapters
If i = Index Then
If DNS Then
Err = objNetAdapter.SetDNSServerSearchOrder(tabDNS)
Else
Err = objNetAdapter.SetDNSServerSearchOrder()
End If
If DHCP Then
Err = Err + objNetAdapter.EnableDHCP()
ElseIf IsArray(tabIP) Then
Err = Err + objNetAdapter.EnableStatic(Array(tabIP(0)),
Array(tabIP(1)))
Err = Err + objNetAdapter.setgateways(Array(tabIP(2)),
Array(1))
Else
Err = 1
End If
If WINS And IsArray(tabWINS) Then
Err = Err + objNetAdapter.SetWINSServer(tabWINS(0),
tabWINS(1))
ElseIf Not WINS Then
Err = Err + objNetAdapter.SetWINSServer("", "")
Else
Err = 1
End If
SetIPAddress = Err = 0
Exit For
End If
i = i + 1
Next



bonjour,
c'est un peux logique.
Vous demandez un stack ip à un serveur dhcp et si vous n'êtes pas
connecté au réseau (pas de broadcast possible), alors il n'est pas
possible de contacter le serveur dhcp. Le service icp de la station je
crois, vous octroie une adresse ip du type 169.xxx automatiquement.

@+Quaz

--
This is an automatic signature of MesNews.
Site : http://mesnews.no-ip.com





re,
quel est la procédure pour prendre en compte le nouveau stack ip sans
résolution dhcp (type : ipcoinfig /renew).

@+Quaz

--
This is an automatic signature of MesNews.
Site : http://mesnews.no-ip.com
Avatar
Thierry Dymon
Une autre possibilité : utiliser la configuration alterné pour obtenir une
adresse IP déterminé lorsque qu'aucun serveur DHCP est en ligne (cf
propriété protocole TC/IP de la carte en question)/
Avatar
Illinger Philippe
"Thierry Dymon" wrote in message news:
Une autre possibilité : utiliser la configuration alterné pour obtenir une
adresse IP déterminé lorsque qu'aucun serveur DHCP est en ligne (cf
propriété protocole TC/IP de la carte en question)/





Avez-vous deja essaye de faire un ipconfig, cable debranché ?

Le resultat est le meme quand on essaye de faire un bind sur une interface réseau sans cable...ca ne marche pas...

existe-t-il une solution ?
Personnellement je ne crois pas, mais si quelqu'un a une solution....



---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.794 / Virus Database: 538 - Release Date: 10/11/2004
Avatar
Quasimodo
It happens that Illinger Philippe formulated :
"Thierry Dymon" wrote in message
news:
Une autre possibilité : utiliser la configuration alterné pour obtenir une
adresse IP déterminé lorsque qu'aucun serveur DHCP est en ligne (cf
propriété protocole TC/IP de la carte en question)/





Avez-vous deja essaye de faire un ipconfig, cable debranché ?

Le resultat est le meme quand on essaye de faire un bind sur une interface
réseau sans cable...ca ne marche pas...

existe-t-il une solution ?
Personnellement je ne crois pas, mais si quelqu'un a une solution....



---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.794 / Virus Database: 538 - Release Date: 10/11/2004



bonjour,
je pense que c'est pour cela qu'il existe une pile ip de type loopback
(127.0...).
Si l'on se réfère au modèle osi, chaque couches sont inter-dépendentes
l'une de l'autre et si l'on considere que les quatres dernières couches
sont les piliers du modèle osi (transport, resau, datalink, physique).
La couche du plus bas niveau étant la plus importante dans le sans du
transport (pas de réception d'echo, pas possible de faire un braodcast
pour le dhcp, de vérification d'existance de l'adresse ip sélectionnée,
etc) et que celle-ci ne peux rendre de service à la couche directement
supérieur, aucun bind ne peux se faire puisqu'il n'existe aucun stack
ip généré. Voila mon interpretation du problème, j'espere que cela
poura vous amener à un début de solution.


@+Quaz

--
This is an automatic signature of MesNews.
Site : http://mesnews.no-ip.com
Avatar
John Fuss
Pour le moment j'utilise un logiciel (SwitchIP) qui me change dynamique
l'adresse réseau sans pour autant devoir être branché au réseau... Pour
info...

John

"Quasimodo" a écrit dans le message de
news:
It happens that Illinger Philippe formulated :
> "Thierry Dymon" wrote in message
> news:
>> Une autre possibilité : utiliser la configuration alterné pour obtenir


une
>> adresse IP déterminé lorsque qu'aucun serveur DHCP est en ligne (cf
>> propriété protocole TC/IP de la carte en question)/
>>
>>
>
> Avez-vous deja essaye de faire un ipconfig, cable debranché ?
>
> Le resultat est le meme quand on essaye de faire un bind sur une


interface
> réseau sans cable...ca ne marche pas...
>
> existe-t-il une solution ?
> Personnellement je ne crois pas, mais si quelqu'un a une solution....
>
>
>
> ---
> Outgoing mail is certified Virus Free.
> Checked by AVG anti-virus system (http://www.grisoft.com).
> Version: 6.0.794 / Virus Database: 538 - Release Date: 10/11/2004

bonjour,
je pense que c'est pour cela qu'il existe une pile ip de type loopback
(127.0...).
Si l'on se réfère au modèle osi, chaque couches sont inter-dépendentes
l'une de l'autre et si l'on considere que les quatres dernières couches
sont les piliers du modèle osi (transport, resau, datalink, physique).
La couche du plus bas niveau étant la plus importante dans le sans du
transport (pas de réception d'echo, pas possible de faire un braodcast
pour le dhcp, de vérification d'existance de l'adresse ip sélectionnée,
etc) et que celle-ci ne peux rendre de service à la couche directement
supérieur, aucun bind ne peux se faire puisqu'il n'existe aucun stack
ip généré. Voila mon interpretation du problème, j'espere que cela
poura vous amener à un début de solution.


@+Quaz

--
This is an automatic signature of MesNews.
Site : http://mesnews.no-ip.com



Avatar
Quasimodo
John Fuss presented the following explanation :
Pour le moment j'utilise un logiciel (SwitchIP) qui me change dynamique
l'adresse réseau sans pour autant devoir être branché au réseau... Pour
info...

John

"Quasimodo" a écrit dans le message de
news:
It happens that Illinger Philippe formulated :
"Thierry Dymon" wrote in message
news:
Une autre possibilité : utiliser la configuration alterné pour obtenir une
adresse IP déterminé lorsque qu'aucun serveur DHCP est en ligne (cf
propriété protocole TC/IP de la carte en question)/





Avez-vous deja essaye de faire un ipconfig, cable debranché ?

Le resultat est le meme quand on essaye de faire un bind sur une interface
réseau sans cable...ca ne marche pas...

existe-t-il une solution ?
Personnellement je ne crois pas, mais si quelqu'un a une solution....



---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.794 / Virus Database: 538 - Release Date: 10/11/2004



bonjour,
je pense que c'est pour cela qu'il existe une pile ip de type loopback
(127.0...).
Si l'on se réfère au modèle osi, chaque couches sont inter-dépendentes
l'une de l'autre et si l'on considere que les quatres dernières couches
sont les piliers du modèle osi (transport, resau, datalink, physique).
La couche du plus bas niveau étant la plus importante dans le sans du
transport (pas de réception d'echo, pas possible de faire un braodcast
pour le dhcp, de vérification d'existance de l'adresse ip sélectionnée,
etc) et que celle-ci ne peux rendre de service à la couche directement
supérieur, aucun bind ne peux se faire puisqu'il n'existe aucun stack
ip généré. Voila mon interpretation du problème, j'espere que cela
poura vous amener à un début de solution.


@+Quaz

--
This is an automatic signature of MesNews.
Site : http://mesnews.no-ip.com





re,
Branché au réseau (physiquement je supose), alors sorry mais pas plus
d'idées.

@+Quaz

--
This is an automatic signature of MesNews.
Site : http://mesnews.no-ip.com
Avatar
John Fuss
Merci, je vais continuer à chercher.

John

"Quasimodo" a écrit dans le message de
news:
John Fuss presented the following explanation :
> Pour le moment j'utilise un logiciel (SwitchIP) qui me change dynamique
> l'adresse réseau sans pour autant devoir être branché au réseau... Pour
> info...
>
> John
>
> "Quasimodo" a écrit dans le message de
> news:
>> It happens that Illinger Philippe formulated :
>>> "Thierry Dymon" wrote in


message
>>> news:
>>>> Une autre possibilité : utiliser la configuration alterné pour


obtenir une
>>>> adresse IP déterminé lorsque qu'aucun serveur DHCP est en ligne (cf
>>>> propriété protocole TC/IP de la carte en question)/
>>>>
>>>>
>>>
>>> Avez-vous deja essaye de faire un ipconfig, cable debranché ?
>>>
>>> Le resultat est le meme quand on essaye de faire un bind sur une


interface
>>> réseau sans cable...ca ne marche pas...
>>>
>>> existe-t-il une solution ?
>>> Personnellement je ne crois pas, mais si quelqu'un a une solution....
>>>
>>>
>>>
>>> ---
>>> Outgoing mail is certified Virus Free.
>>> Checked by AVG anti-virus system (http://www.grisoft.com).
>>> Version: 6.0.794 / Virus Database: 538 - Release Date: 10/11/2004
>>
>> bonjour,
>> je pense que c'est pour cela qu'il existe une pile ip de type loopback
>> (127.0...).
>> Si l'on se réfère au modèle osi, chaque couches sont inter-dépendentes
>> l'une de l'autre et si l'on considere que les quatres dernières couches
>> sont les piliers du modèle osi (transport, resau, datalink, physique).
>> La couche du plus bas niveau étant la plus importante dans le sans du
>> transport (pas de réception d'echo, pas possible de faire un braodcast
>> pour le dhcp, de vérification d'existance de l'adresse ip sélectionnée,
>> etc) et que celle-ci ne peux rendre de service à la couche directement
>> supérieur, aucun bind ne peux se faire puisqu'il n'existe aucun stack
>> ip généré. Voila mon interpretation du problème, j'espere que cela
>> poura vous amener à un début de solution.
>>
>>
>> @+Quaz
>>
>> --
>> This is an automatic signature of MesNews.
>> Site : http://mesnews.no-ip.com

re,
Branché au réseau (physiquement je supose), alors sorry mais pas plus
d'idées.

@+Quaz

--
This is an automatic signature of MesNews.
Site : http://mesnews.no-ip.com