Configurer adresse ip (fixe), dns, passerelle, etc

Soyez le premier à donner votre avis sur cette source.

Vue 74 248 fois - Téléchargée 2 428 fois

Description

Bon voila je cherchais à pouvoir configurer entiérement une connexion réseau avec une adresse ip fixe en vue d'une connexion VPN, mais je ne trouvais pas de source sur le net qui me permettais de faire ça.
Alors je me suis creusé la tête et j'ais crée un petit script qui fonctionne parfaitement sous windows XP :D
Je vous le partage pour le bonheur des plus grands et des tous petits lol

Source / Exemple :


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'' Code créé par Christophe Sauvage le 25/09/06         ''
'' Code VBS - Automatisation de la configuration réseau ''                  
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Option Explicit
On Error Resume Next
 
Dim NomPC, Card,  objWMIService, WSHShell
Dim objItem, colItems, ip, strComputer

Dim strIPAddress, strSubnetMask, errEnable, strGateway, strDNS, strDNSDomain, strWins1, strWins2
strIPAddress = Array("192.175.203.122") 'Tableau de chaîne utile pour pouvoir modifier l'ip car celle ci est rangé un tableau avec son masque
strSubnetMask = Array("255.255.255.0") 'Utilisé avec le "tableau" IP
strGateway = Array("192.175.203.1")'Comme pour l'IP est le masque pour regler la passerelle il faut utiliser un tabeau de chaîne
strWins1 =  "192.25.1.8" 'Chaîne contenant l'adresse du wins 
strWins2 =  "192.25.1.5" 'Idem on peut avoir plusieurs adresse de wins
strDNS = array("192.25.1.5","192.25.1.8")'Tableau de chaîne, la premiére case du tableau contien l'adresse dns principale la seconde la secondaire ;-)
strComputer = "." 'Chaîne, permettant de dire que l'on utilisera l'ordinateur courant utiliser pour récupérer son nom ce n'est pas obligatoir mais pour                                              'plus de clarté...

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

''Recuperation du nom du poste
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)'Execution d'une requete dans le systéme en vue de récuperer le nom
For Each objItem in colItems 'Je parcour chaque objet rétourner par la requête jusqu'a ce que je retrouve caption pour affecter le resultat a NomPC
  NomPC = objItem.Caption
Next

Set objWMIService = Nothing 'Libere le contenu de objWMIService pour le remettre a 0
Set colItems = Nothing 'Idem

Set objWMIService = getObject("winmgmts:\\" & NomPC & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled = true",,48)
For Each objItem in colItems
		''Configure la passerelle
		errEnable = objItem.setgateways(strGateway)
		''Configure l'adresse du wins principale et secondaire	
		objItem.SetWINSServer strWins1 , strWins2
		''configure les adresses DNS
		errEnable = objItem.SetDNSServerSearchOrder(strDNS)	
		''Configure l'ip du poste avec sont masque ed sous réseau
  		errEnable = objItem.EnableStatic(strIPAddress, strSubnetMask)		
Next  	

''Configure la liste des suffixes des serveurs dns (on peut mettre jusque 6 suffixes)
''Nous somme obliger de regler les suffix dns directement dans le registre si vous avez une autre méthode ca m'interresse aussi ;-)
SET WSHShell = CreateObject("WScript.Shell")
WSHShell.RegWrite "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\TCPIP\Parameters\SearchList","suffixDNS1.com,suffixDN2.com","REG_SZ"

Conclusion :


Bon maintenant pour d'autre mise à jour proposer moi des choses et j'essayerais de fair de mon mieu pour le pofiner... car la j'ai a peu prés fait le tour de la question... enfin pour mon utiliter personnel ;-)
Si une chose je vais en refaire un pour une machine local... qui se lancerai même sur une machine ou l'utilisitateur n'est pas administrateur de son poste...

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
1
Date d'inscription
samedi 17 juillet 2010
Statut
Membre
Dernière intervention
17 juillet 2010

Bonjour NEOCAM

Je suis debutant.
je cherche a avoir une adresse ip fixe sur ma livebox d'orange
est il possible par un prog.

Merci de ta reponse

gilles.pat60@orange.fr
Messages postés
781
Date d'inscription
lundi 22 janvier 2007
Statut
Membre
Dernière intervention
30 octobre 2013
3
Je voulais savoir qu'elle code il faut ajouter pour faire une configuration automatique VPN?
Messages postés
52
Date d'inscription
mercredi 28 juin 2006
Statut
Membre
Dernière intervention
1 mars 2010

Mais de rien :)
Messages postés
2
Date d'inscription
vendredi 26 février 2010
Statut
Membre
Dernière intervention
19 mai 2010

Merci beaucoup NEOCAM à ce code qui va me aider dans mon projet et désoler pour le code vb.net je suis un débutant.
Messages postés
52
Date d'inscription
mercredi 28 juin 2006
Statut
Membre
Dernière intervention
1 mars 2010

Désolé a tous de me connecter si tardivement...
Merci Badante ^^ mais si y a toujours possibilité les langages ne sont que des crayons il suffit d'apprendre a les tenirs ;)
Pour les reste désolé en ce moment je suis sur un projet de base de connaissance... alors je ne peut pas me pencher sur vaux problémes...
Mais des que j'ai du temps et si j'y repense aussi je m'y pencherais promit :p
Je serais dispo vers septembre octobre... :$
Afficher les 45 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.