Comment écrire un script windows pour modifier les paramètres réseau à la volée

Cette semaine, je suis tombé sur un problème intéressant. Dans de nombreux bureaux ou des environnements de travail, vous devrez peut-être redéfinir vos paramètres réseau pour se connecter à différents réseaux. Par exemple, certaines personnes prennent leur maison pour ordinateur portable avec eux et ont un ensemble IP statique spécifiquement pour cette machine. Cependant, étant donné que le réseau de travail est généralement DHCP, qui exige que la personne de continuer à changer les paramètres de réseau entre une adresse IP statique ou DHCP automatique en fonction où ils sont.

Un problème plus fréquent est pour les ingénieurs ou le personnel informatique qui ont souvent besoin de se connecter à des appareils ou machines sur un petit réseau dans un bâtiment. Pour se connecter à ce réseau isolé, vous devez changer vos paramètres réseau à une adresse IP statique. Plus tard, lorsque vous vous reconnectez au réseau d`entreprise, il est de retour à nouveau DHCP.

Je me suis retrouvé dans cette situation assez souvent, et me suis tellement fatigué de la navigation sur la carte réseau, ouvrir les paramètres IP et de faire ces modifications, que j`ai décidé qu`il était temps de mettre en place un script VB qui le ferait tout en un ou deux clics. Si vous avez suivi avec mes articles de programmation, alors vous savez que j`aime les scripts VB. Une fois, je l`utilisais pour créer un ordinateur possédé, et également utilisé pour la automatiser Microsoft SyncToy pour les sauvegardes de données.Créer un ordinateur avec Windows Freaky Possessed Script pour HalloweenCréer un ordinateur avec Windows Freaky Possessed Script pour HalloweenIl y a beaucoup de farces amusantes que vous pouvez jouer sur vos amis avec un ordinateur. Vous avez probablement vu tous ces rampants vidéos YouTube que les gens se transmettent pour une bonne frousse ....Lire la suite

Video: programmer des fichier scripts batch part1

Il est également possible d`accomplir cette tâche avec un script VB, et il est même possible de le rendre suffisamment souple pour qu`il puisse accepter l`entrée de l`utilisateur pour l`adresse IP statique. Dans cet article, je vais vous montrer comment le faire en trois sections.

Création d`un réseau Modification des paramètres de script

Il y a trois tâches principales que vous devez accomplir avec le script afin de créer cette petite application pour commuter les paramètres réseau. La première consiste à utiliser le script pour créer des paramètres IP statiques. La prochaine est de trouver un script pour activer DHCP. Enfin, le dernier est de demander à l`utilisateur qui tâche qu`ils veulent faire, et ensuite utiliser cette rétroaction pour l`accomplir.

VB Script pour définir les paramètres IP statiques

Rappelez-vous, les scripts suivants doivent être enregistré en tant que fichier texte avec une extension .wsf afin de travailler sur un PC Windows. Le script suivant va changer vos paramètres réseau à une adresse IP statique avec un masque de sous-réseau spécifique et par défaut GateWall, avec trois codées en dur dans le script.

Pour tous les exemples de code figurant dans cet article, assurez-vous d`ajouter « à la fin, sinon le code ne fonctionnera pas.
Voici le script de changement IP statique:

Option ExplicitOn Error Resume NextDim objWMIServiceDim objNetAdapterDim strComputerDim arrIPAddressDim arrSubnetMaskDim arrGatewayDim colNetAdaptersDim errEnableStaticDim errGatewaysstrComputer = "."arrIPAddress = Array ("192.168.1.106") ArrSubnetMask = Array ("255.255.255.0") ArrGateway = Array ("192.168.1.1") Set objWMIService = GetObject ("winmgmts: " & strComputer & " Root cimv2") Set colNetAdapters = (objWMIService.ExecQuery"Select * from Win32_NetworkAdapterConfiguration où IPEnabled = TRUE") Pour chaque objNetAdapter dans colNetAdapterserrEnableStatic = objNetAdapter.EnableStatic (arrIPAddress, arrSubnetMask) Si non errEnableStatic = 0 ThenWScript.Echo "Échec attribution IP / sous-réseau."Mettre fin à IferrGateways = objNetAdapter.SetGateways (arrGateway) Si non errGateways = 0 ThenWScript.Echo "Le non attribution de la passerelle."fin IfNextWScript.Quit

Ce script utilise le service Windows WMI dans Windows pour atteindre l`objectif de la modification des paramètres. Vous pouvez voir les trois variables de tableau fixes chargés avec les adresses IP, et où le script vérifie pour l`actif « activée » carte réseau. Ensuite, il utilise les méthodes « EnableStatic » et « SetGateways » pour faire les changements nécessaires. Quand je lance le script sur mon réseau domestique (où je requiers DHCP), vous pouvez voir où le script a changé avec succès mes paramètres de la carte, et je l`ai perdu ma connexion Internet.

Après avoir prouvé que la partie statique IP du script fonctionne, il est temps d`écrire le script qui définira l`adaptateur DHCP il va détecter automatiquement l`adresse IP du réseau. Voici le script que vous pouvez utiliser pour le faire.

Option ExplicitOn Error Resume NextDim objWMIServiceDim objNetAdapterDim strComputerDim errEnablestrComputer = "."Set objWMIService = GetObject ("winmgmts: " & strComputer & " Root cimv2") Set colNetAdapters = (objWMIService.ExecQuery"Select * from Win32_NetworkAdapterConfiguration où IPEnabled = TRUE") Pour chaque objNetAdapter dans colNetAdapterserrEnable = objNetAdapter.EnableDHCP () NextWScript.Quit

Comme vous pouvez le voir, ce script est beaucoup plus simple. Il utilise également WMI, mais la seule fonction est nécessaire « EnableDHCP ». Ceci est effectué sur la carte réseau actuellement activé. Après avoir enregistré et de lancer ce script, mes paramètres de la carte de l`adaptateur modifié pour revenir à DHCP, et ma connexion Internet travaillait à nouveau.

Alors, maintenant que vous avez le code pour effectuer les deux actions importantes, la prochaine partie de cette astuce sera de prendre saisie de l`utilisateur afin de déterminer exactement ce que IP statique qu`ils veulent. Pour réactiver DHCP, vous pouvez demander à l`utilisateur d`entrer le mot « AUTO » pour détecter automatiquement l`adresse IP.
Voici ce que ce nouveau script complet intégrant les deux scripts ci-dessus ressemble.

Video: Script de démarrage de site selectionné sous windows

Option ExplicitOn Error Resume NextDim objWMIServiceDim objNetAdapterDim strComputerDim arrIPAddressDim arrSubnetMaskDim arrGatewayDim colNetAdaptersDim errEnableStaticDim errGatewaysDim strInputDim errFailederrFailed = 0strInput = InputBox ("Saisissez l`adresse IP statique ou AUTO") Si strInput = "AUTO" ThenstrComputer = "."Set objWMIService = GetObject ("winmgmts: " & strComputer & " Root cimv2") Set colNetAdapters = (objWMIService.ExecQuery"Select * from Win32_NetworkAdapterConfiguration où IPEnabled = TRUE") Pour chaque objNetAdapter dans colNetAdapterserrEnable = objNetAdapter.EnableDHCP () Si non errEnable = 0 ThenWScript.Echo "Configuration DHCP a échoué."errFailed = 1End IfNextElsestrComputer = "."arrIPAddress = Array (strInput) arrSubnetMask = Array ("255.255.255.0") ArrGateway = Array ("192.168.1.1") Set objWMIService = GetObject ("winmgmts: " & strComputer & " Root cimv2") Set colNetAdapters = (objWMIService.ExecQuery"Select * from Win32_NetworkAdapterConfiguration où IPEnabled = TRUE") Pour chaque objNetAdapter dans colNetAdapterserrEnableStatic = objNetAdapter.EnableStatic (arrIPAddress, arrSubnetMask) Si non errEnableStatic = 0 ThenWScript.Echo "Échec attribution IP / sous-réseau."errFailed = 1End IferrGateways = objNetAdapter.SetGateways (arrGateway) Si non errGateways = 0 ThenWScript.Echo "Le non attribution de la passerelle."errFailed = 1End IfNextEnd IFIF errFailed = 0 ThenWScript.Echo "Paramètres IP modifiées avec succès."fin IfWScript.Quit

Ce script utilise la fonction InputBox pour obtenir soit l`IP statique ou la commande « AUTO » de l`utilisateur.

Si quoi que ce soit autre que « AUTO » est tapé dans le champ, qui sera utilisé comme la chaîne IP statique dans la section de code qui utilise WMI pour définir les paramètres IP statiques pour la carte réseau. Il y a aussi un chèque pour la confirmation « 0 » en disant tout allait bien.

Vérification de mes paramètres de la carte réseau après l`exécution du script, je confirme que le script a en fait effectuer les changements de configuration IP statique.

Maintenant, pour tester le script AUTO. Taper AUTO remplit la première condition dans l`instruction « IF » pour vérifier AUTO. Cela exécute le script alternatif qui permet DHCP.

Après l`exécution, je suis entré dans mes paramètres de l`adaptateur et, il était assez sûr remis à Obtenir une adresse IP automatiquement.

Bien qu`il puisse être une tâche assez simple d`aller dans vos paramètres de la carte réseau et changer à l`électricité statique ou DHCP, si vous devez le faire, il peut vraiment devenir souvent une vraie douleur. Vous pouvez le faire à partir d`une ligne de commande en utilisant « netsh », mais encore une fois, vous devez vous rappeler la syntaxe de commande.

En utilisant le script ci-dessus permet de construire un utilitaire rapide et facile que vous pouvez utiliser à tout moment pour changer vos paramètres réseau à la volée.

Video: Comment créer un script batch

Pensez que vous pouvez donner à ce Windows Script un essai? D`autres idées de ruser et de faire encore mieux? Partagez vos idées et suggestions dans la section commentaires ci-dessous.