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...
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.