Ali ne lezi vraže... ;)
Pošto meni treba samo promena DNS-a, ja sam na osnovu priloženog skripta napravio novi od samo par linija:
Code:
On Error Resume Next
strComputer = "."
arrDNSServers = Array("192.168.120.10", "192.168.119.10")
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colNicConfigs = objWMIService.ExecQuery ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
For Each objNicConfig In colNicConfigs
WScript.Echo VbCrLf & " Network Adapter " & objNicConfig.Index & VbCrLf & " " & objNicConfig.Description & VbCrLf
intDNSServers = objNicChanged.SetDNSServerSearchOrder(arrDNSServers)
If intDNSServers <> 0 Then
WScript.Echo " Unable to assign DNS servers."
Else
WScript.Echo " Assigned new DNS servers."
End If
Next
Međutim, taj skript jednostavno ne menja adrese DNS servera kod mene, iako na kraju napiše "Assigned new DNS servers" ..... Bilo bi dobro kada bi još neko probao ovaj skript i javio da li prolazi...