VBS script for å endre IP adresse.....

[Hagforce]

Heisann

 

Jeg er ute etter et VBS script for å gi lokal tilkobling en statisk IP adresse...

 

Jeg fant dette scriptet:

strComputer = "."
strIPAddress = Array("10.0.0.100")
strSubnetMask = Array("255.0.0.0")
strGateway = Array("10.0.0.1")
strGatewayMetric = Array(1)
' --------- END CONFIGURATION ------

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

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

For Each a in adapters
   errIP = a.EnableStatic(strIPAddress, strSubnetMask)
   errGateways = a.SetGateways(strGateway, strGatewaymetric)
   If errIP = 0 Then
       WScript.Echo "Success! The IP address has been changed."
   Else
       WScript.Echo "Error! The IP address could not be changed."
   End If
Next

 

Men det endrer IP på alle kort, jeg vil kun endre på lokal tilkobling, og jeg vil også ha med DNS samt et script for å gå tilbake til DHCP oppsett.

 

Noen som kan hjelpe?

[GeirGrusom]

For Each a in adapters
  errIP = a.EnableStatic(strIPAddress, strSubnetMask)
  errGateways = a.SetGateways(strGateway, strGatewaymetric)
  If errIP = 0 Then
      WScript.Echo "Success! The IP address has been changed."
  Else
      WScript.Echo "Error! The IP address could not be changed."
  End If
Next

Du må legge inn en test her

Her er alle feltene til denne klassen.

[Hagforce]

Beklager, jeg finner ikke ut av dette.

 

Muligheter for mer hjelp?

 

Vil altså ha muligheten for å legge kun inn på et nettverkskort (local/lokal) + DNS

[GeirGrusom]

Beklager at jeg ikke kan være mer hjelpsom, men jeg holder på med noe annet nå, så jeg har ikke tid til å finne ut dette for deg.

men

For Each a in adapters

  ' Her må du legge inn en test for å sjekke om dette er adapteren du leter etter
  ' bruk feltene i den linken jeg ga deg på en eller annen måte
  ' f.eks. noe lignende
  ' If adapter.Caption = "Den nettverksadapteren jeg leter etter" Then
  errIP = a.EnableStatic(strIPAddress, strSubnetMask)
  errGateways = a.SetGateways(strGateway, strGatewaymetric)

  If errIP = 0 Then
      WScript.Echo "Success! The IP address has been changed."
  Else
      WScript.Echo "Error! The IP address could not be changed."
  End If
  ' End If
Next

Jeg vet ikke om dette fungerer, du får kikke mer på feltlisten, og prøve deg litt frem.

[Cerwell]

Hva med å prøve en .bat?

 

Denne er fin:

 

http://itpro.no/art/7939.html