#bas
...
On Error Resume Next
DIM IPArray()
REDIM IPArray(ip1.Count)
For I = 0 To (ip1.Count - 1)
IPArray(I) = ip1.Get(I)
Next
For Each objNetCard in colNetCards
arrDNSServers = Array(dns1, dns2) 
errEnable = objNetCard.EnableStatic(IPArray, mask)
...