scripting tcp/ip settings

[ulio]

Hey all,

I was wondering if anyone could lead me in the right direction in creating a script to automatically set a computer's dns server and suffix search order settings within tcp/ip properties....i swear i've seen this done before. if anyone know of any sites or perhaps has code samples, i'd appreciate big time

thanks

-ulio

 

[PhilJackson]

Something like this?

For Each objNetAdapter in colNetAdapters
    errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
    errGateways = objNetAdapter.SetGateways(strGateway)
    errDNSServers = objNetAdapter.SetDNSServerSearchOrder(strDNSServers)
    If errEnable = 0 Then
        WScript.Echo "Static IP addressing now configured."
    Else
        WScript.Echo "Static IP addressing could not be configured."
    End If
Next

Just fill in the variables with the addresses

Spong

 

[PhilJackson]

I should have added this at the beginning... it would be useful!

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

Spong