code:

---

               LAN1----DSL-----\
              /                 \(x.x.x.x)
LAN---ISA/RRAS                   ISP---INTERNET
              \                 /
               LAN2---ISDNROUTER
                    (10.0.0.1)
 
RRAS Static Routes:
destination  netmask  gateway  interface metric
  0.0.0.0    0.0.0.0  x.x.x.x    LAN1      2
  0.0.0.0    0.0.0.0  10.0.0.1   LAN2      5

---

1. Someone to say it will definitly work.
2. Someone to come up with something better.
3. You to try it, find out, and tell us!
   

code:

---

  
KovdaBoxEXT = "81.211.35.65" ' что пингуем
KovdaBoxINT = "10.0.2.5"
KovdaIP = "81.211.35.62"
KovdaGateWay = "81.211.35.57"    ' 
UltraIP = "81.95.36.11"
UltraGateWay = UltraIP
UltraName = "Ultra.NET"
KovdaName = "WAN"
strCuptionRoute = "0.0.0.0"
Dim KovdaMAC 
Dim UltraMAC 
arrKovdaGateways = Array(KovdaGateWay)
arrKovdaMetrics2 = Array(2)
arrKovdaMetrics48 = Array(48)
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
RouteFlag=0
On Error Resume Next
strComputer = "."     ' This computer
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
' Choose KOVDA adapter by Name
Set objKovdaAdapter = objWMIService._
 ExecQuery("Select * from Win32_NetworkAdapter where NetConnectionID = '" _
   & KovdaName & "'") ',,48)
' Choose ULTRA adapter by Name
Set objUltraAdapter = objWMIService._
 ExecQuery("Select * from Win32_NetworkAdapter where NetConnectionID = '" _
   & UltraName & "'") ',,48)

Wscript.Echo "==================================================================="
For Each objItem in objKovdaAdapter
 Wscript.Echo "Kovda MACAddress: " & objItem.MACAddress
 KovdaMAC = objItem.MACAddress
Next
For Each objItem in objUltraAdapter
 Wscript.Echo "Ultra MACAddress: " & objItem.MACAddress
 UltraMAC = objItem.MACAddress
 UltraInterfaceIndex = Hex(objItem.InterfaceIndex)
 Wscript.Echo "Ultra InterfaceIndex: " & UltraInterfaceIndex
Next
Wscript.Echo "==================================================================="
' Choose KOVDA adapter CONFIGURATION by MACAddress
Set CONFobjKovdaAdapter = objWMIService._
 ExecQuery("Select * from Win32_NetworkAdapterConfiguration where MACAddress = '" _
   & KovdaMAC & "'") ',,48)
' Choose ULTRA adapter CONFIGURATION by MACAddress
Set CONFobjUltraAdapter = objWMIService._
 ExecQuery("Select * from Win32_NetworkAdapterConfiguration where MACAddress = '" _
   & UltraMAC & "'") ',,48)
For Each objItem in CONFobjKovdaAdapter
 Wscript.Echo "Kovda Description: " & objItem.Description
 KovdaMAC = objItem.MACAddress
Next
For Each objItem in CONFobjUltraAdapter
 Wscript.Echo "Ultra Description: " & objItem.Description
 UltraMAC = objItem.MACAddress
Next
Wscript.Echo "==================================================================="
Do
'################## 0 = 0 Then '
 ' Ping - Kovda alive? - 10.0.2.5
 Set objPingINT = GetObject("winmgmts:{impersonationLevel=impersonate}")._
   ExecQuery("select * from Win32_PingStatus where address = '" _
            & KovdaBoxINT & "'")
    For Each KovdaStatusInternal in objPingINT
        If IsNull(KovdaStatusInternal.StatusCode) or KovdaStatusInternal.StatusCode<>0 Then  ' Kovda &#1080;&#1079;&#1076;&#1086;&#1093; - 10.0.2.5
   WScript.Echo "KovdaStatusInternal " & KovdaBoxINT & " PING Status Code: " & KovdaStatusInternal.StatusCode
   If RouteFlag = 1 Then
    WScript.Echo " " & Now() & "  ####### We goes through ULTRA ##########"
    For Each objItem in CONFobjKovdaAdapter
    ReturnCode = objItem.SetGateways(arrKovdaGateways, arrKovdaMetrics48)
    ReturnCode = objItem.SetIPConnectionMetric(arrKovdaMetrics48(0))
    Next
    ' route CHANGE 0.0.0.0 MASK 0.0.0.0  172.16.2.52 METRIC 48 IF 0x60006")
    Set oExec = WshShell.Exec("route CHANGE 0.0.0.0 MASK 0.0.0.0 " & _
       UltraGateWay & " METRIC " & arrKovdaMetrics2(0) & " IF 0x" & UltraInterfaceIndex)
    Do While oExec.Status = 0
    WScript.Sleep 100
    Loop
    RouteFlag=2
   End If
   Set objPingEXT = GetObject("winmgmts:{impersonationLevel=impersonate}")._
   ExecQuery("select StatusCode from Win32_PingStatus where address = '"_
            & KovdaBoxEXT & "'")
   For Each KovdaStatusExternal in objPingEXT
   WScript.Echo "KovdaStatusExternal " & KovdaBoxEXT & " PING Status Code: " & KovdaStatusExternal.StatusCode
            If (Not IsNull(KovdaStatusExternal.StatusCode) and KovdaStatusExternal.StatusCode=0 and RouteFlag=2)  or RouteFlag=0 Then ' Kovda 65 &#1091;&#1089;&#1087;&#1077;&#1096;&#1085;&#1086; &#1087;&#1080;&#1085;&#1075;&#1091;&#1077;&#1090;&#1089;&#1103;
    ' route CHANGE 0.0.0.0 MASK 0.0.0.0  81.211.35.57 METRIC 2 IF 2")
    For Each objItem in CONFobjKovdaAdapter
    ReturnCode = objItem.SetGateways(arrKovdaGateways, arrKovdaMetrics2)
    WScript.Echo " " & Now() & "  We goes to KOVDA! -- "
    ReturnCode = objItem.SetIPConnectionMetric(arrKovdaMetrics2(0))
    Next
    ' route CHANGE 0.0.0.0 MASK 0.0.0.0  172.16.2.52 METRIC 48 IF 0x60006")
    Set oExec = WshShell.Exec("route CHANGE 0.0.0.0 MASK 0.0.0.0 " & _
       UltraGateWay & " METRIC " & arrKovdaMetrics48(0) & " IF 0x" & UltraInterfaceIndex)
    Do While oExec.Status = 0
    WScript.Sleep 100
    Loop
    RouteFlag = 1
   End If
   Next
   '++++++++++++ Print Route +++++ 
   Set objKovdaRoute = objWMIService._
    ExecQuery("Select * from Win32_IP4RouteTable where Caption = '" _
      & strCuptionRoute _
      & "' and NextHop = '" & KovdaGateWay & "'") ',,48)
   ' Default Route string to UltraNET
   Set objUltraRoute = objWMIService._
    ExecQuery("Select * from Win32_IP4RouteTable where Caption = '" _
      & strCuptionRoute _
      & "' and NextHop = '" & UltraGateWay & "'") ',,48)
   For Each objItem in objKovdaRoute
   WScript.Echo "KovdaRoute.Metric: " & objItem.Metric1
   Next
   For Each objItem in objUltraRoute
   WScript.Echo "UltraRoute.Metric: " & objItem.Metric1
   Next
   '++++++++++++++++++++++++++++++++
   Wscript.Echo "==================================================================="
        End If
    Next
    WScript.Sleep 60000
loop

---