need script determine if machine got dns settings, else apply these...

  • Thread starter Thread starter Fr@nk
  • Start date Start date
F

Fr@nk

Hi,

I'm in the need for a script to run at machine boot, determine if the
machine got a dns setting, and if not to apply dns 1 (and 2 if
possible)
No need for checking ipnumber, gateway etc.


who would be willing to advise ?

(i do not want to buy commercial software to be able to change config,
but want to automate it)

Like : machine in place a, got dns: do nothing, machine in place b, not
getting dns apply xyz.

Thanks

I found this maybe can be used as base ??? (save as .vbs)

Option Explicit

Dim NetworkAdapter, AdapterConfiguration 'Objects
Dim IPAddress, SubnetMask, Gateway, DNS 'String Arrays
Dim RetVal 'Integers

For Each NetworkAdapter In
GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapter")
If NetworkAdapter.AdapterType = "Ethernet 802.3" Then
For Each AdapterConfiguration In GetObject("winmgmts:").InstancesOf
("Win32_NetworkAdapterConfiguration")
If UCase(AdapterConfiguration.ServiceName) =
UCase(NetworkAdapter.ServiceName) Then
IPAddress = Array("192.168.0.10")
SubnetMask = Array("255.255.255.0")
Gateway = Array("192.168.0.1")
DNS = Array("35.8.2.41")

RetVal = AdapterConfiguration.EnableStatic(IPAddress, SubnetMask)
If Not RetVal = 0 Then

WScript.Echo "Failure assigning IP/Subnetmask."
End If
RetVal = AdapterConfiguration.SetGateways(Gateway)

If Not RetVal = 0 Then
WScript.Echo "Failure assigning Gateway."
End If
RetVal = AdapterConfiguration.SetDnsServerSearchOrder
(DNS)
If Not RetVal = 0 Then
WScript.Echo "Failure assinging DNS search order."
End If
End If
Next
End If
Next
 
Back
Top