Changer @ipRésolu

Question

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

McDEV04 · Accepted Answer

Ben finalement le script tourne  Magnifique

McDEV04 · Answer

et si je change Set objWMIService = GetObject("winmgmts:" _
      & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
en 

Set objWMIService = GetObject( _
    "winmgmts:\" & strComputer & "\root\cimv2")

???
je vais test.....

Changer @ip

2 réponses

Votre réponse

Discussions similaires