Vista - vbscript WINS and DNS

I'm trying to add the WINS and DNS entries through vbscript but when I
run the process below
it only inputs the first two WINS addresses. The DNS entries work
fine.

Thanks in advance.


'************************ Begin Script ***************************
Dim objNics
Dim strComputer
Dim strNewDNSServerI1
Dim strNewDNSServerI2
Dim strNewDNSServerI3
Dim strNewDNSServerI4
Dim arrDNSServerOrder
Dim objWMIService


On Error Resume Next

strComputer = "."
strNewDNSServerI1 = "10.10.10.1" 'DNS Search Order - First
strNewDNSServerI2 = "10.10.10.2" 'DNS Search Order - Second
strNewDNSServerI3 = "10.10.10.3" 'DNS Search Order - Third
strNewDNSServerI4 = "10.10.10.4" 'DNS Search Order - Forth

Set objWMIService = GetObject("winmgmts:" &
"{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objNics = objWMIService.ExecQuery ("SELECT * FROM
Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

For Each nic In objNics
arrDNSServerOrder = nic.DNSServerSearchOrder
nic.SetWINSServer
strNewDNSServerI1,strNewDNSServerI2,strNewDNSServerI3,strNewDNSServerI4

intNewArraySize = 3
ReDim Preserve arrDNSServerOrder(intNewArraySize)

For i = (intNewArraySize - 1) To 0 Step -1
arrDNSServerOrder(i + 1) = arrDNSServerOrder(i)
Next

arrDNSServerOrder(0) = strNewDNSServerI1
arrDNSServerOrder(1) = strNewDNSServerI2
arrDNSServerOrder(2) = strNewDNSServerI3
arrDNSServerOrder(3) = strNewDNSServerI4
intNewDNS = nic.SetDNSServerSearchOrder(arrDNSServerOrder)

Next