Discussion :

[Heffgé]

Bonjour,

Je souhaite automatiser la bascule entre DHCP et adresse IP statique pour une carte réseau bien pécise. À cette fin j'ai écrit le script suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
NICName = "Realtek PCIe GbE Family Controller" 
ipaddr = Array("192.168.1.200") 
subnet = Array("255.255.255.0")
 
Set NICs = GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
 
For Each NIC in NICs
    If NIC.Description = NICName Then 
		If NIC.DHCPEnabled Then
			NIC.ReleaseDHCPLease()
			on error resume next
'			If NIC.IsWriteLocked Then
'				NIC.ReleaseWriteLock
'			End If
			ret = NIC.EnableStatic(ipaddr, subnet)
			msg = "code retour = " & ret & vbcrlf & "DHCP désactivé" & vbcrlf & "Adresse IP statique : " & NIC.IPAddress(0)
		Else
			ret = NIC.EnableDHCP
			NIC.RenewDHCPLease()
			msg = "code retour = " & ret & vbcrlf & "DHCP activé" & "Adresse IP dynamique : " & NIC.IPAddress(0)
		End If
		Exit For
   End If
Next
msgbox msg

Le ReleaseDHCPLease fonctionne mais pas le EnableStatic. J'obtiens un code retour d'une valeur négative astronomique (-2147217405) mais rien ne bouge. En parcourant la toile j'ai lu qu'il fallait lever un éventuel vérou. Cela ne change rien d'où la mise en commentaire de ce bout de code.

Je n'ai pas encore testé l'alternative, le passage en DHCP, car j'aimerais d'abord, si c'est possible, résoudre le problème du passage en adresse statique.

Vos suggestions sont les bienvenues et je vous en remercie par avance.

[umfred]

D'après ce que je lis, tu n'as pas forcément besoin de relâcher l'adresse IP acquise en DHCP, tu peux directement activer l'adressage statique.
Donc si tu commentes le NIC.ReleaseDHCPLease(), que se passe-t-il?

[Heffgé]

Bonjour umfred et merci de t'interesser à mon problème.

que se passe-t-il

Kif-kif. J'ai ajouté le release dans un 2e temps en passant que c'était peut-être nécessaire mais ça ne change rien. Si ce n'est qu'un ipconfig montre que le release fonctionne puisque l'adresse IP est devenue une adresse APIPA.
Toutefois le message du script affiche toujours l'adresse IP de départ.

[umfred]

J'avais un présentiment, qui est confirmé par la réponse de jurassic pork en 2011 https://www.developpez.net/forums/d1...c/#post6113490
problème de droits, il faut lancer "en tant qu'administrateur"

[Heffgé]

Ceci m'avait affleuré l'esprit mais dans la mesure où le release passait je n'y croyais pas trop. Il n'est pas possible de lancer un script vbs en tant qu'administrateur par un simple clic. Il faut passer par la méthode du déclenchement à deux étages.

Voici donc le script modifié :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
' Initialisation variables
'-------------------------
NICName = "Realtek PCIe GbE Family Controller" ' Remplacez par le nom de la carte réseau
ipaddr = Array("192.168.1.200") 'Remplacer par l'adresse IP à affecter
subnet = Array("255.255.255.0")
 
'Le script se relance lui-même en mode administrateur
'-----------------------------------------------------
If WScript.Arguments.length = 0 Then
	Set monShell = CreateObject("Shell.Application")
	monShell.ShellExecute "wscript.exe", Chr(34)& WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1
Else 
 
' À la relance
'-------------
	Set NICs = GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
	For Each NIC in NICs
		If NIC.Description = NICName Then 
			If NIC.DHCPEnabled Then
				NIC.ReleaseDHCPLease()
				ret = NIC.EnableStatic(ipaddr, subnet)
				msg = "code retour = " & ret & vbcrlf & "DHCP désactivé" & vbcrlf & "Adresse IP statique : " & NIC.IPAddress(0)
			Else
				ret = NIC.EnableDHCP
				NIC.RenewDHCPLease()
				msg = "code retour = " & ret & vbcrlf & "DHCP activé" & vbcrlf & "Adresse IP dynamique : " & NIC.IPAddress(0)
			End If
			Exit For
		End If
	Next
	msgbox msg
End If

Tout semble maintenant fonctionner sauf l'affichage de l'adresse IP. Il y a systématiquement un coup de retard. C'est toujours l'ancienne que je récupère dans IPAddress au lieu de la nouvelle (après affectation ou après le renew).

Ce n'est pas très génant en soi et il suffise que je ne l'affiche pas mais j'aimerais bien ne pas mourir idiot. Comment réactualiser cette valeur après modif ?

En tout cas un grand merci pour m'avoir mis sur cette piste

[umfred]

regarde peut-être si il n'y aurait pas plusieurs adresses dans NIC.IPAddress, vu que c'est un tableau