Skift mellem statisk og dynamisk (DHCP)

Her kommer et script til at ændre fra statisk til DHCP enabled IP konfiguration.

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

For Each objNetAdapter In colNetAdapters
    errEnable = objNetAdapter.EnableDHCP()
    If errEnable = 0 Then
        Wscript.Echo "DHCP er slået til."
    Else
        Wscript.Echo "DHCP kunne ikke slåes til."
    End If
Next

Nedenfor følger et script til at ændre fra DHCP til statisk. Husk at ændre din IP adresse, subnet, og default gateway.

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress = Array("192.168.1.141")
strSubnetMask = Array("255.255.255.0")
strGateway = Array("192.168.1.100")
strGatewayMetric = Array(1)

For Each objNetAdapter in colNetAdapters
    errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
    errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
    If errEnable = 0 Then
        WScript.Echo "The IP address er ændret."
    Else
        WScript.Echo "The IP address kunne ikke ændres."
    End If
Next


Håber det kan bruges.

VH CK

ellers kan du kigge lidt på brugen af netsh

Hej
Jeg er ny på dette forum. Men har allerede fundet ting som er kanon at bruge, TAK
Lige 2 hurtige spg.
1 jeg får en fejl hvis jeg køre ovennævnte script, men den ændre fint min ip.!
2 ER det ikke muligt at få DNS indstillet?