'By Eric M. Bouse
'Tested on Win2k

Option Explicit
Dim Shell
Set Shell = CreateObject("Wscript.Shell")

Wscript.Echo "Reminder: Please connect using the VPN client prior to running this application"
Shell.Run "C:\WINNT\system32\mstsc.exe"
Wscript.Quit