rem Выключение DefaultGateway на внешнем адаптере st7

Option Explicit
dim oNAs

const SearchedIP="194.226.228.70"

rem  Открыть объект WMI
dim oWMI
  Set oWMI = GetObject("winmgmts:" _
     & "{impersonationLevel=impersonate}!\\" _
     & "." & "\root\cimv2")

rem  Выбрать все конфигурации сетевых адаптеров
dim colNetworkAdapterConfigurations
  Set colNetworkAdapterConfigurations = oWMI.ExecQuery _
     ("Select * from Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE")

dim i, oNAC, ip
  i=- 1 
  for each oNAC in colNetworkAdapterConfigurations
    if i=- 1  then 
      On Error Resume Next
      for each ip in oNAC.IPAddress
        if (Err.Number= 0 ) and (i=- 1 ) and ip=SearchedIP then 
          i=oNAC.Index
        end if
      next	
      On Error Goto  0 
    end if
  next
WScript.Echo "Found: " ,i

rem Выключение шлюза
dim dgw
  set oNAC=GetObject("winmgmts:Win32_NetworkAdapterConfiguration.Index="+CStr(i))
  dgw=array("10.0.0.8")
  oNAC.SetGateways dgw
  set oNAC = Nothing
rem Проверка
  set oNAC=GetObject("winmgmts:Win32_NetworkAdapterConfiguration.Index="+CStr(i))
WScript.Echo IPList(oNAC.DefaultIPGateway)

set oWMI = Nothing
set colNetworkAdapterConfigurations = Nothing
set oNAC = Nothing

rem -------------------------------------


private function IPList(IPs)
  IPList = ArrToStr(IPs, "; ")
end function

private function ArrToStr(Arr, Delim)
  Dim s,r
  r = ""
  On Error Resume Next
  for each s in Arr
    if r = "" then
      r=s
    else
      r=r+Delim+s
    end if	
  next
  On Error Goto  0 
  ArrToStr=r
end function