Changer @ip [Résolu]

McDEV04 42 Messages postés vendredi 24 août 2007Date d'inscription 1 octobre 2007 Dernière intervention - 27 sept. 2007 à 23:39 - Dernière réponse : McDEV04 42 Messages postés vendredi 24 août 2007Date d'inscription 1 octobre 2007 Dernière intervention
- 28 sept. 2007 à 05:22
Bonjour,
je fait encor appel à vos connaissance pour me venir en aide
J'ai un poste client sous Windows 2000. Ce poste est tellement bridé que l'on ne peut pas changer sa configuration Window, alors le boss à lancé un batch mais les shell sont aussi bloqué, alors il m'a demandé de faire un VBS, mais il ne tourne pas sous 2000 par contre sous xp

Si vous avez quelque chose à me proposer ?? en attendant je retourne sur la toile, hihhih j'y suis déjà

Merci

Const strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
      & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")

Set colNetAdapters = objWMIService.ExecQuery _
      ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

    'Adresse ip, MSR, Passerelle, metric

strIPAddress = Array("192.168.213.2")
strSubnetMask = Array("255.255.255.248")
strPasserelle = Array("192.168.212.254")
strGatewayMetric = Array(1)

For Each objNetAdapter in colNetAdapters
      errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
      errGateways = objNetAdapter.SetGateways(strPasserelle, strGatewaymetric)
      If errEnable = 0 Then
           WScript.Echo "The IP address has been changed."
      Else
           WScript.Echo "The IP address could not be changed."
      End If
Next
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
McDEV04 42 Messages postés vendredi 24 août 2007Date d'inscription 1 octobre 2007 Dernière intervention - 28 sept. 2007 à 05:22
3
Merci
Ben finalement le script tourne  Magnifique

Merci McDEV04 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 75 internautes ce mois-ci

Commenter la réponse de McDEV04
McDEV04 42 Messages postés vendredi 24 août 2007Date d'inscription 1 octobre 2007 Dernière intervention - 28 sept. 2007 à 00:36
0
Merci
et si je change Set objWMIService = GetObject("winmgmts:" _
      & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
en

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

???
je vais test.....
Commenter la réponse de McDEV04

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.