Etat du script: Fonctionnel

Présentation:

Le script:

'Changement adressage IP Fixe => DHCP
'Version 0.1 20080124 by Clockover

'Variables
'Réseau utilisé par les machines en IP fixe.
network = "x.x.x."
'Inutilisé pour l'instant.
'mask = "24"

'Réécupération des différentes interfaces réseaux fonctionnant avec IP.
strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE")

'Boucle pour trouver les interfaces qui sont configurée en IP statique
For Each objItem in colItems 
	If objItem.DHCPEnabled = False Then
		'Pour un mask de 24bits
		For i = 1 To 254
			ip = network & i
			'Boucle pour identifer les interfaces adressées sur le réseau recherché (jusqu'à la deuxième IP attribuée).
			If objItem.IPAddress(0) = ip OR objItem.IPAddress(1) = ip then
				'Configuration en DHCP avec retour à l'utilisateur
				'Mise en place des DNS en automatique.
				intReturn = objItem.setDNSServersearchOrder()
				'Mise en place de l'adressage en automatique.
				intReturn = objItem.EnableDHCP	
				Select Case intReturn
				Case 0
					Wscript.Echo "DHCP activé!"
				Case 1
					Wscript.Echo "Vous devez redémarrer pour activer le DHCP!"
				Case Else
					Wscript.Echo "Une erreur est survenue!"
				End Select
			End if
		Next
	End If
Next

TODO Liste:

-Coder la prise en charge d'un mask différent de /24.
-Rajouter la possibilité de choisir le nombre d'alias possible sur une interface.

Historique:

Version 0.1 (2008/01/24)
-Création du script et test en production avec succès.