convert to vbs

i cannot get this bat to connect to my workplace vpn i was hoping in vbs it may work, but i cant convert it,, any help please?

@echo off
setlocal

set dialup="Pax VPN"

@echo Dialing %dialup%
rasphone -d %dialup%

for /f "usebackq tokens=1,3" %%i in (`route print`) do (
   if %%i==172.30.0.0 (
      for /l %%k in (16,1,31) do (
          @echo Adding route to 172.%%k.0.0 via gw %%j
          rem route delete 172.%%k.0.0
          route add 172.%%k.0.0 mask 255.255.0.0 %%j
      )
    )
)
Start Free Trial