begin process at 2012 02 16 11:08:24
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

VBScript

 > CONFIGURER ADRESSE IP (FIXE), DNS, PASSERELLE, ETC

CONFIGURER ADRESSE IP (FIXE), DNS, PASSERELLE, ETC


 Information sur la source

Note :
10 / 10 - par 1 personne
10,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :VBScript Classé sous :ip, dns, wins, gateway, réseau Niveau :Débutant Date de création :25/09/2006 Date de mise à jour :06/10/2006 17:18:08 Vu / téléchargé :66 447 / 2 061
Auteur : neocam

Ecrire un message privé
Commentaire sur cette source (45)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
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

Les Membres Club peuvent 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

Source avec Zip Source avec une capture RECHERCHE & SAUVEGARDE DES FICHIERS PAR LEURS EXTENSIONS par hackoo
Source avec Zip Source avec une capture [VBS] SPLASH SCREEN EN VBSCRIPT par hackoo
Source avec Zip Source avec une capture [VBS] GOOGLE EASTER EGGS par hackoo
Source avec Zip Source avec une capture FILE2COMPARE: COMPARAISON DE DEUX FICHIERS LIGNE PAR LIGNE par hackoo
Source avec Zip Source avec une capture [VBS] COMMENT CRÉER UN DOSSIER ET LE PROTÉGER PAR MOT DE PAS... par hackoo
Toutes les sources de la catégorie VBScript

 Sources en rapport avec celle ci

Source avec Zip Source .NET (Dotnet) NSLOOKUP EN VB.NET OU COMMENT FAIRE UNE REQÛETE DNS EN PRÉCI... par ShareVB
Source avec Zip Source avec une capture DNS REDIRECTION par EvildarkEurope
Source avec Zip Source avec une capture Source .NET (Dotnet) INFORMATIONS SUR LES INTERFACES RÉSEAUX par Mayzz
Source avec Zip Source avec une capture MISE À JOUR D'UN DOMAINE DYNDNS ET DÉTECTION IP EXTERNE par tdt63
ANALYSE IP par dominique21000

Commentaires et avis

Commentaire de mini master le 26/09/2006 01:44:20

sa marche meme avec un router

Commentaire de neocam le 26/09/2006 10:38:30

Je l'ais crée pour qu'il puisse tourner en local, car c'est en vue d'une connexion VPN, mais si je change le nomPC par un pc dans le même réseau et si j'ai les droits ca marche également.
Par contre je n'est pas essayé de configurer un routeur... je ne pense pas que ca marche...

Commentaire de asimengo le 26/09/2006 18:47:18

cool ça roule.

J'aimerais utiliser ton code pour modifier rapidement en un clic les config de la carte réseau, seulement j'aimerais aussi pouvoir le faire à partir d'une session qui n'a pas les droits administrateurs. Avec un Alt + clic droit sur le fichier .vbs je n'ai pas l'option Exécuter en tant que ...
Pourrais-tu ajouter à ton code des lignes pour spécifier user et password qui permettrait de pallier à ce problème de droit d'accès.

Tu pourrais spécifier le type de tes variables afin que nous puissions mieux comprende ton code.

Commentaire de couls le 26/09/2006 23:26:41

bonjour j'suis un débutant dans les réseaux, j'aimerai savoir même si j'ai pas un adresse ip non fixe, ce code peut m'aider à fixer mon adresse?

Commentaire de neocam le 27/09/2006 10:49:25

Bonjour couls,
Le but de ce code est de fixer l'adresse IP, le dns, la passerelle....
En faite si tu fait:
un clik droit / propriété sur favoris réseaux
clik droit / propriété sur réseau local
tu 2* clik sur Protocol Internet TCP/IP
Il rempli toute les informations que tu as devan les yeux dans l'onglet général ainsi que dans avancé dans tous les onglets sauf option...
J'espere avoir répondu à ta question...

Commentaire de neocam le 27/09/2006 10:50:49

Bonjour asimengo... Bonne idée je mi atel ;-)

Commentaire de couls le 27/09/2006 13:12:33

Merci Neocam, je pense que je vais essayer ton système,encore une fois merci et bonne suite

Commentaire de couls le 27/09/2006 13:57:06

Neocam une dernière question,est ce que ca marche avec une connexion ADSL ?

Commentaire de neocam le 27/09/2006 15:43:08

Pas de problème Couls ;-)
Techniquement si tu connais tes paramettres ca doit marcher.
Je ne les pas testé dans un but privé si ca fonctionne tu peu me tenir au courant ;-)

Commentaire de asimengo le 28/09/2006 19:42:03

je te mets 10 parce ke ça repond o besoin, pour le plus ke tu apporteras c'est du pure bonus.

Bonne prog

A+

Commentaire de asimengo le 28/09/2006 19:45:01

en passant est-ce du vbscript ou du vb.net?

Moi je l'ai copié ds notepad et modifié les paramètres pr rapport à mon réseau et enregistré sous x.vbs et il est était déjà prêt à l'emploi.

Commentaire de neocam le 29/09/2006 09:12:03

Merci asimengo ;-)
Ca fait toujours plaisir d'avoir des commentaires comme ça ;-)
Oui j'ais écrit ce script en vbs...
Je suis en train de trvailler sur ta question je pense que ca me prendra plus de temp que prévus j'éssayerais de te prévenir lorsque je modifirais cette source...

Commentaire de zz2001top le 02/10/2006 06:49:54

Génial

Commentaire de Baddante le 02/10/2006 19:28:56

Salut,

ajoute suffixe de recherche DNS (FQDN) :

Set objNetworkSettings = objWMIService.Get("Win32_NetworkAdapterConfiguration")
arrDNSSuffixes = Array("dsi.mon.domaine.fr", "groupe.france.idf.fr")
objNetworkSettings.SetDNSSuffixSearchOrder(arrDNSSuffixes)

Commentaire de MSDK le 03/10/2006 21:16:33

Salut,

Il me semble que ton script configure toute les cartes qui ont IP activés.
Exemple : la carte réseau + carte wifi + connexion RAS.

Commentaire de Baddante le 04/10/2006 13:23:11

oui MSDK à cause de la requete de sélection WQL (WMI Query Language) : "Select * from Win32_NetworkAdapterConfiguration where IPEnabled = true"
PS : les ",,48" servent à rien à mon avis.

Il faut choisir ta carte par exemple : Win32_NetworkAdapter.DeviceID="8" ou le faire à la connexion :

Set objWMIService = getObject("winmgmts:\\" & NomPC & "\root\cimv2") => ... getObject("winmgmts:\\" & NomPC & "\root\cimv2:Win32_NetworkAdapter.DeviceID="8")

ou faire une requete pour trouver toutes les cartes Ethernet : "AdapterType = Ethernet 802.3" il peut y en avoir 2 mais c'est plus rare.

Ou encore plus précis la MAC address : "Win32_NetworkAdapter.MACAddress" = "00:B0:BA:27:0B:FF".

Commentaire de neocam le 04/10/2006 13:35:48

Baddante cette solution marche trés bien aussi merci... elle ma permit d'avancer sur le paramétrage d'un poste a distance sur un domaine je vais d'ailleur posté cette source ce soir ou demain, je me tate aussi a le mettre en fichier zip, mais c'est tellement plus sympa de voir le code en direct ;-)
Les informations tel que le login et mot de passe etc sont entrées dans une box ecrite en html et permet également de choisir une ip sur une liste...

MSDK => oui... j'aurais pu fixé le code a une seul carte réseau en entrant son nom en condition mais nous n'avons pas tous les mêmes cartes ;-)
A toi de le modifier selon t'es besoins...

Commentaire de neocam le 04/10/2006 13:40:34

Baddante merci pour ton explication encore plus clair ;-)
Mais j'ai remarqué que l'id varié selon les postes sur le mien la carte intéréssé et la 1...
Deplus si ta des connexions vmware ou quoi la tu n'as pas fini lol
Je pense que la solution de la mac adress et vraiment la plus pertinante ;-)

Commentaire de blonblon2 le 10/11/2006 16:04:27

Le script modifie l'IP de toutes les cartes réseaux actives (y compris WIFI) que faut il rajouter pour ne modifier que l'ip de la carte réseau locale ? Merci d'avance

Commentaire de neocam le 10/11/2006 16:19:49

Bonjour blonblon2,
Ce problème à été soulevé dans les commentaires précédant, relis la solution de baddante posté le 04/10/2006 à 13:23:11...
Le filtrage par adresse mac est pour moi l'option la plus adéquat...
Pour récupérer ton adresse mac lance cmd dans exécuter et tape ipconfig /all
Peut être tu le savais mais bon... on sait jamais lol
;-)

Commentaire de blonblon2 le 10/11/2006 18:09:01

Salut Neocam
j'avais pris la file de commentaires dans le mauvais sens.
Depuis j'ai essayé avec l'adresse mac mais ça ne fonctionne pas. ça ne plante pas mais c'est sans effet. je suis sous XP. PC Dell portable. Voici mes lignes de commande si tu peux m'aider ...
Set objWMIService = getObject("winmgmts:\\" & NomPC & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where Win32_NetworkAdapter.MACAddress" = "00:0D:56:B0:81:FF" )
autre chose sais tu comment je peux remonter l'adresse mac de la carte ip locale d'un pc pour lequel je veux changer l'adresse ip?
Merci

Commentaire de neocam le 10/11/2006 18:13:07

essaye plutôt:
Set objWMIService = getObject("winmgmts:\\" & NomPC & "\root\cimv2:Win32_NetworkAdapter.MACAddress" = "00:B0:BA:27:0B:FF")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
dit moi quoi.. et bon weekend ;-)

Commentaire de caller17 le 12/11/2006 22:00:11

bonjour a tous je n'y connais rien en code ... mais ce programme ma l'air intéressant car justement je cherche un programme qui pourrais juste me permettre de retrouver mon addresse de passerelle pour mon routeur car j'ai perdu le boitier contenant mon ip de passerelle pour acceder a l'interface du routeur ( D-Link dfe-808 , est 'il possible de m'envoyer un programme me permettant de savoir ma passerelle vers le routeur ? merci ... voici mon addresse Gmail si vous savez me l'envoyez ou répondre a mon message merci ;-)

eclesius@gmail.com

Commentaire de neocam le 12/11/2006 22:17:30

salut caller17,
tape ipconfig /all dans cmd
tu lance la boite de commande cmd en tapen cmd dans éxécuter
;-)

Commentaire de blonblon2 le 13/11/2006 18:40:58

Salut Neocam
ça n'a toujours aucun effet. Je suis pourtant sûr de l'adresse Mac de la carte. Y a t'il un autre moyen de filtrer la carte IP local ?

Commentaire de neocam le 14/11/2006 09:33:53

pour ton routeur essaye les adresses:
192.168.0.1
192.168.1.1
0.254.1.254
Sinon dans panneau de config/favori reseau ou sur le bureau
clique droit propriété
clique droit sur ta carte reseau/status/propriété
double clic sur protocol TCP/IP

Commentaire de neocam le 14/11/2006 09:35:38

Envoir ton code blonblon... juste les declarations ;-)

Commentaire de blonblon2 le 14/11/2006 10:33:55

Salut Voilà mon code. Quand je mets tes 2 lignes, je vois le nom de mes 2 cartes et la modif est prise en compte. avec mes 2 lignes je ne vois pas la remontée du nom de la carte et rien n'est modifié.
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
For Each objItem in colItems
NomPC = objItem.Caption
msgbox(NomPC)
Next
  
Set objWMIService = Nothing
Set colItems = Nothing
Set objWMIService = getObject("winmgmts:\\" & NomPC & "\root\cimv2:Win32_NetworkAdapter.MACAddress" = "00:0D:56:B0:81:FF")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")

'Set objWMIService = getObject("winmgmts:\\" & NomPC & "\root\cimv2")
'Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled = true",,48)

For Each objItem in colItems
nomcarteip=objItem.Caption
msgbox(nomcarteip)
errEnable = objItem.EnableStatic(strIPAddress, strSubnetMask)        
Next      

Commentaire de neocam le 14/11/2006 10:51:04

bon celles que tu as mit en commentaire ne servent plus a rien par contre tu utilise mal ta requête regarde bien... tu l'utilise dans Win32_ComputerSystem...
essaye ca...
Set objWMIService = getObject("winmgmts:\\" & NomPC & "\root\cimv2:Win32_NetworkAdapter.MACAddress" = "00:0D:56:B0:81:FF")
'Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration")

Commentaire de blonblon2 le 14/11/2006 11:26:22

j'avais déjà essayé et ça ne marche pas. Je pense que le problème vient de la ligne avec l'instruction de la macaddress. J'ai contourné le problème en faisant un if nomcarteip= "nom de la carte en question" et ça marche.
Mais comme je suis obstiné j'aimerais bien comprendre. je voudrais pour m'aider afficher la macaddress dans msgbox. Sais tu comment faire ? J'ai essayé numacad=objItem.Win32_NetworkAdapter.MACAddress ou numacad=objItem.Win32_NetworkAdapter.MACAddress.caption puis msgbox(numacad) mais ça ne marche pas...
A+ et mille mercis pour tes conseils.

Commentaire de neocam le 14/11/2006 11:36:11

dabort tu lance une inputbox pour recuperer le contenu de ta variable que tu tapera toi même ensuite tu insert ta variable "Win32_NetworkAdapter.MACAddress" = variable
je n'avai pas tester la solution de la mac addresse alors essaye ca aussi
"Win32_NetworkAdapterConfiguration.MACAddress" = variable

Commentaire de caller17 le 14/11/2006 17:58:44

apres plusieur essaie de configuration dont ma mere y a passer tout la journée , j'y ai trouvé mon erreur , et GROSSE comme une maison ^^

le soit disant Routeur DFE-808 dont j'essayais de configurer mon reseau n'est pas un routeur ...

la cata quoi ! en faite c'etait un HUB mais je me demandais si c possible de mettre internet partager via un HUB ? merci pour les info :D

Commentaire de blonblon2 le 15/11/2006 09:13:12

Salut Si dans la boucle For each Objitem... je récolte Objitem.caption je récupére le nom des cartes, Objitem.MACAddress je récupère l'adresse Mac des cartes. Mais si j'essaie de récolter Objitem.IPAddress je n'arrive pas à visualiser encore moins à récupérer l'addresse IP. Objitem.IPAddress semble être pourtant reconnu. Pouvez-vous m'aider ? Faut il ajouter qq chose au bout de Ojitem.IPAddress ? Merci d'avance.

Commentaire de neocam le 17/11/2006 09:27:53

caller17=> Oui c'est possible si ton modeme est un modem eternet
Blonblon2=>Utilise Ojitem.IPAddress(0)ou(1) je sais plus lol
Voili voilou...

Commentaire de hantoz le 15/01/2007 10:19:47

bonjour, je suis nouveau avec vous et je possede un cyber à 10 postes et j'aimerai fixer les IP des PC
j'ai télécharger le ZIP que vous avez mis sur le site mais koi faire avec?
j'ai 1 switch et 1 modem ADSL cable USB relier à 1 PC serveur

j'ai consulter pas mal de site et rien à faire

Commentaire de titititi59 le 21/02/2007 16:38:21

Bonjour est ce que quelqun pourrait me traduire ce code en c++. J'en ai besoin.
Merci.

Commentaire de neocam le 26/02/2007 00:01:07

C'est du vbscript c'est casiment pareil... mais sinon désolé je vois pas trop comment intérogé wmi en c++.. et jai pas trop le temp de me poser sur le pb... par contre tu peut copier coller ce code dans un .txt et le renomer en vbs puis le lancer en c++... inutile certe enfin ca depen ton appli ;)  

Commentaire de Baddante le 26/02/2007 11:22:21

Quel "type de C++" "standard" / .NET ?
La solution la plus simple à mon avis c'est d'utiliser une commande Shell("cscript script_IP.vbs " + arg,arg[n] ... etc

NEOCAM sympa les petites interface en html, je pense qu'il faudrait rajouter un script utilisable en ligne de commande (cscript) pour automatiser sans l'interface.

Enfin bon c'est déjà très bien, ont peut pas "traduire" dans tous les langages ! ;+)

Commentaire de titititi59 le 26/02/2007 18:41:33

C'est bon j'ai trouver un autre moyen: en utilisan la commande netsh de windows
voici le code pour ceux que ça interesse:

/////////////////////////////
#include<iostream>

int main() {
system("netsh interface ip show config");//afficher config avant

system("netsh interface ip set address ""\"Connexion au réseau local\""" static 192.10.0.10 255.255.0.0 192.10.0.254 1");//config ip mask passerelle
system("netsh interface ip set dns ""\"Connexion au réseau local\""" static 213.26.55.66");//config dns1
system("netsh interface ip add dns ""\"Connexion au réseau local\""" 213.44.67.89");//config dns2


system("netsh interface ip show config");//afficher config après
return 0;
}
/////////////////////////

Commentaire de nuke1024 le 23/04/2007 22:06:55

Salut à tous,

J'ai un fait un script du même style à partir de divers modèle du genre, qui va chercher le nom des PC à modifier dans un fichier txt. je ne modifie que les wins et dns car j'ai besoin de modifié ca que sur des serveurs de différents sites.
Aujourd'hui j'ai besoin de modifié uniquement le wins et dns secondaire (ceux du site principal)et garder le wins et dns primaire déjà inscrit (ceux du site local)???

Et ne sachant faire des scripts qu'avec des morceaux de script que je modifie avec le peu que je connaisse (lol), je venais voir si par hasard quelqu'un pouvait me renseigner !!!

Merci d'avance

Commentaire de neocam le 06/06/2007 10:41:37

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

Commentaire de kingstoon le 28/02/2010 15:32:34

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.

Commentaire de neocam le 01/03/2010 09:28:51

Mais de rien :)

Commentaire de 4u4me4us le 28/05/2010 14:44:49

Je voulais savoir qu'elle code il faut ajouter pour faire une configuration automatique VPN?

Commentaire de patgil le 17/07/2010 16:43:20

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

 Ajouter un commentaire


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


Nos sponsors


Sondage...

Comparez les prix


Archos 5 Internet Tablette 500 Go
Entre 396€ et 444€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Underwater View of the Ocean With LIght Shining Through the WavePhoto Renewable Energy is Within Reach
Photo Beautiful El Capitan Yosemite National Park 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,718 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)