Criando rota de rede via script .VBS

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")


strSubnetMask = Array("MASCARA DE REDE")
strGateway = Array("IP DO GATEWAY")
strGatewayMetric = Array(1)
strDNS = Array("DNS PRIMARIO","DNS SECUNDARIO")


For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)

objNetAdapter.SetDNSServerSearchOrder strDNS
Next