'================================================================================
'
' NAME: Routing.vbs
'
' AUTHOR: Simon Jones , Compaq ITMS
' DATE  : 7/01/2001
'
' COMMENT: Use this file to set up routes for Focalpoint and TIAS on the PC that
'          has the modem installed.
' Note: This file can only be used in WinNT4, Win2000 and WinME PCs
'       as they are the only OSs that will remember permanent routes
'================================================================================

Option explicit

'   Declare the variables

Dim Router
Dim Route_1
Dim Mask
Dim Mask_1
Dim Focalpoint
Dim WshShell

'  Set the IPs and Masks to use

Route_1 = "57.8.0.0"
Mask_1 = "255.255.0.0"


' Create the Object

Set WshShell = CreateObject("Wscript.Shell")

' Get the Router's IP address from the user
Router = InputBox ("Enter the IP address of the CDTEL supplied Router", "Galileo IP Routing - by Simon Jones (Compaq)", "Enter the IP here")

' This is where we do the actual routing

Focalpoint = "%COMSPEC% /C Route Add " & Route_1 & " Mask " & Mask_1 & " " & Router & " /p"
WshShell.RUn Focalpoint, 1, True