how to add DNS and WINS VBScript

I need add 5 DNS and wins thru VBScript. When i run this program it comes with lots of diffrent types of errors. Can anybody help to find the error
 
 
Option Explicit
Dim objNics
Dim strComputer
Dim objWMIService
Dim strNewDNSServerI1
Dim strNewDNSServerI2
Dim strNewDNSServerI3
Dim strNewDNSServerI4
Dim strNewDNSServerI5
Dim arrDNSServerOrder
Dim nic
 

'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"
strNewDNSServerI4 = "10.10.10.4"
strNewDNSServerI4 = "10.10.10.5"
'serverName = "\\Resource.jp.nomura.com\BW7-HAIFU"
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objNics = objWMIService.ExecQuery ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

r =  objNics.DNSServerSearchOrder
 objNics.SetWINSServer  strNewDNSServerI1,strNewDNSServerI2,strNewDNSServerI3,strNewDNSServerI4,strNewDNSServerI5
intNewArraySize = 1
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
arrDNSServerOrder(4) = strNewDNSServerI5
intNewDNS = objNics.SetDNSServerSearchOrder(arrDNSServerOrder)
 
'Wscript.Echo
'End sub


Posting the errors you get might be a start. As might be understanding that ExecQuery() returns a collection that does not have methods such as SetWINSServer() or SetDNSServerSearchOrder().