Sætte en fast IP,MASK,GATEWAY,DNS

Jeg har set et script der sætter IP, masken, gateway.
Men den sætter ikke DNS.
Og jeg får også en fejl selv om den har sat IP,MSK,Gateway.
er der nogen der kan hjælpe?
Eks. på det jeg har indtil nu.

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress = Array("172.17.42.235")
strSubnetMask = Array("255.255.255.0")
strGateway = Array("172.17.42.1")
strGatewayMetric = Array(1)

For Each objNetAdapter in colNetAdapters
    errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
    errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
    If errEnable = 0 Then
        WScript.Echo "The IP address er ændret."
    Else
        WScript.Echo "The IP address kunne ikke ændres."
    End If
Next

på forhånd tak