'================================================================================
'
' NAME: Routing.vbs
'
' AUTHOR: Simon Jones , Compaq ITMS
' DATE  : 7/01/2001
'
' COMMENT: Use this file to set up routes for a Galileo PPTP connection where
'          the IP address falls in the 172.21.x.x range.
' Note: This file can only be used in WinNT4, Win2000, WinME and WinXP PCs
'       as they are the only OS's 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 = "172.20.200.0"
Mask_1 = "255.255.255.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 PPTP Connection eg. 172.21.80.111", "Galileo IP Routing for PPTP - 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