Solved

Applet to Prevent VPN Timeouts

Posted on 2008-06-20
4
951 Views
Last Modified: 2012-08-13
I have a couple clients with whom I have VPN accounts where the VPN servers are configured with short timeout periods.  (5 minutes, I believe.)  If I'm using VPN, and I hop over to a local application even for a brief period of time, I get a timeout.  To reestablish my work on the client server, I typically have to logon via VPN and then logon via RD as well.  It's a pain.  Is there a little applet out there (or even a BAT script, VBS script, or a VB.NET piece of code) that would maintain a minimal level of activity through the VPN tunnel that would prevent these timeouts?
0
Comment
Question by:jdana
  • 2
  • 2
4 Comments
 
LVL 24

Expert Comment

by:purplepomegranite
Comment Utility
It would be very easy to write a script to ping the server at intervals (this is usually enough to keep a connection alive).  Or you could just:

ping (server) -l 1 -t

where (server) is the IP address of a server the other side of the VPN.  The above from a command prompt, and it just pings with one byte of data (the l parameter can be adjusted if this is not enough).

BUT... you say it times out, are you actively disconnected, or does the VPN simply stop working?  If you exceed the Windows idle time, the server will disconnect the VPN.  If the connection just goes dead (but looks like it is connected), then there is likely to be another issue.
0
 

Author Comment

by:jdana
Comment Utility
purplepomegranite (nice name),

It is a timeout (as opposed to VPN stopping).  

ping (server) -l 1 -t seems pretty good.  Any idea how to call it from a vbs script?  (I'd like to drop it in a loop to slow it down a bit.)
0
 
LVL 24

Accepted Solution

by:
purplepomegranite earned 250 total points
Comment Utility
The attached code will ping until the first unsuccessful ping (or you stop the script with <CTRL><C>).  Just change the parts I've commented.  It outputs the result to the command window.
Option Explicit

dim blnPinged, strHost

strHost="www.google.com"  ' Change the address to where you want to ping

blnPinged=true
 

while blnPinged ' Loop while ping is successful

	blnPinged=Ping(strHost)

	if blnPinged then

		wscript.echo "Pinged " & strHost & " successfully at " & Now

		WScript.Sleep 1000 ' 1000 is one second, adjust accordingly

	else

		wscript.echo "Ping failed to " & strHost & " at " & Now

	end if

wend
 
 

Function Ping(strHost)

	dim objPing, objRetStatus

	set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _

	("select * from Win32_PingStatus where address = '" & strHost & "'")
 

	for each objRetStatus in objPing

		if IsNull(objRetStatus.StatusCode) or objRetStatus.StatusCode<>0 then

			Ping = False

		else

			Ping = True

		end if

	next

End Function

Open in new window

0
 

Author Closing Comment

by:jdana
Comment Utility
Awesome!  Thanks!
0

Featured Post

Threat Intelligence Starter Resources

Integrating threat intelligence can be challenging, and not all companies are ready. These resources can help you build awareness and prepare for defense.

Join & Write a Comment

Some of you may have heard that SonicWALL has finally released an app for iOS devices giving us long awaited connectivity for our iPhone's, iPod's, and iPad's. This guide is just a quick rundown on how to get up and running quickly using the app. …
Secure VPN Connection terminated locally by the Client.  Reason 442: Failed to enable Virtual Adapter. If you receive this error on Windows 8 or Windows 8.1 while trying to connect with the Cisco VPN Client then the solution is a simple registry f…
After creating this article (http://www.experts-exchange.com/articles/23699/Setup-Mikrotik-routers-with-OSPF.html), I decided to make a video (no audio) to show you how to configure the routers and run some trace routes and pings between the 7 sites…
After creating this article (http://www.experts-exchange.com/articles/23699/Setup-Mikrotik-routers-with-OSPF.html), I decided to make a video (no audio) to show you how to configure the routers and run some trace routes and pings between the 7 sites…

771 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now