|
 Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
 CONFIGURER ADRESSE IP (FIXE), DNS, PASSERELLE, ETC
 Information sur la source
 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
- ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
- '' 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"
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'' 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...
 Fichier Zip
Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !
 Télécharger le zip
 Historique
- 25 septembre 2006 16:53:35 :
- Correction ORTH... je suis pas fort... même sur qu'il en reste mais le plus important... c'est le code ;-)
- 25 septembre 2006 17:16:44 :
- bon c'est la derniere fois lol j'ai du signer...
- 27 septembre 2006 10:42:13 :
- Un peu plus de commentaire je viendrais le pofiner quand j'aurais fini de travailler sur la question de asimengo...
- 06 octobre 2006 14:03:04 :
- Bon j'ai mit le projet en zip... il permet de faire le même truc sauf que l'on peut choisir une adress IP, et pour configurer la liste des suffixes DNS j'utilise la solution de Baddante
Ce script se lance en local et il faut être administrateur de la machine...
A bientot lol
- 06 octobre 2006 14:14:13 :
- Bon la ca fait toujour le même truc, mais... pour un pc distant sur un domaine ;-)
Attention ce scripte ne marche pas en local...
Il faut entrer un login est un mot de pass administrateur soit de la machine ou du domaine ainsi que le nom du domaine... enfin telecharger le et vous verez ;-)
La maintenan je crois que j'ais répondu a tous les demandes lol
- 06 octobre 2006 14:18:54 :
- Mauvaise manipulalion de mes fichiers zip... dans le zip il y a 2 scripts du coup lire mes 2 dernieres mise a jour pour les comprendres...
Leurs noms permet de bien les diférenciers ;-)
- 06 octobre 2006 17:18:08 :
- J'ai repasser mon code en débutant car j'ai vu une source qui s'est fait desendre lool alors reston humble ;-)
(Je l'avais passé en initier a cause de la box...)
 Sources de la même categorie
Sources en rapport avec celle ci
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
réseau local [ par Dragon ]
une question bien stupid, c`est quoi notre IP lorsqu`on est connecter à un réseau local ???ça dois surement avoir un rapport avec le proxy, masi il y
Recherche d'adresses IP sur une réseau local [ par tntdavid ]
Dans notre société GROUPAMA Centre-Atlantique, nous voudrions développer sous VB, une petite application permettant de connaitre les adresses IP de to
IP dynamic et DNS [ par lo ]
mon but, je sais il est peut etre loin, mais je sais marcher longtemps, est de faire un robot capable de mettre a jour mes redirections http, chez uli
Adresse IP quand on a plusieurs cartes réseau et des IPC différentes sur la même machine [ par jack ]
Bonjour à tou(te)sComment retrouver l'adresse IP quand on a plusieurs cartes réseau et des IP différentes sur la même machine ?Le WinSocks en donne un
Urgent problem de réseau [ par nct2000 ]
Dites comment je peut trouver mon DNS par winsock ???Et esceque tous les pc dans un réseau interne possède un DNS ?
Envoyer un fichier à un IP distant ou à un personne sur un réseau! comment? [ par Manic ]
Je voudrais savoir comment envoyer un fichier à un IP ou à une personne sur un réseau, et tout cela avec le control Winsock svp!Donc, si vous savez co
Comment récupérer l'adresse IP et autres infos réseau sans Wsock ? [ par Filou07 ]
Comment puis-je récupérer l'adresse IP, le nom et les autres infos réseau de ma machine, mais sans utiliser Winsock (par pitié) ?
Broadcasting : Comment ça marche ? [ par jack ]
Salut.(réseau privé)J'ai une machine sur laquelle tourne un prog "Serveur" de doc. L'adresse IP de ce serveur est inconnue des prog Clients présents s
IP dans réseau [ par leptidev ]
Bonjour, je voudrais avoir toutes les adresses ip d'un réseau. merci
Ouvrir fichier distant (sur un machine en réseau Intranet) [ par jockos ]
Je connais l'IP de la "machine cible" et le Path du fichier que je veux ouvrir sur cette machine cible.Comment faire pour ouvrir ce fichier ?Est-ce qu
|
 Téléchargements
Logiciels à télécharger sur le même thème :
|