Jump to content
Sign in to follow this  

Is it possible to check VPN connected or not

Recommended Posts


With this line of code I can connect my VPN

Run('rasphone -d "My VPN"')
$hWnd = WinWait("[CLASS:#32770]", "Connection to My VPN", 10)
$Title = 'Connection to My VPN'
$process = WinGetHandle(WinGetTitle($Title))
ControlClick($process, "", "[CLASS:Button; INSTANCE:4]")

Is it possible to check, whether VPN has connected or not

Share this post

Link to post
Share on other sites

You can check the ip address you have when connected to the VPN. For example, one of my customers uses 10.10.181.x for their SSL VPN. Just check for the existence of those octets, and look at @IPAddress in the help file.

√-1 2^3 ∑ π, and it was delicious!

How to get your question answered on this forum!

Share this post

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

  • Similar Content

    • JonF
      By JonF
      I have a server running Small Busines Server 2008.  On that server is a shared directory containing Microsoft Office templates in the normal directory setup; a bunch of templates, a Smart Art subdirectory, and a Document Themes subdirectory containing Theme Colors, Theme Effects, and Theme Fonts subdirectories.
      My task is to create a program that copies all that to the local user's templates subdirectory.  It must work on the local network or over the VPN.  I am not allowed to wipe the local template directory. I may not assume that any drives are mapped, I have to use UNC paths to the server. So a .cmd file doesn't work because it doesn't do UNC paths, at least copy and xcopy and robocopy don't.
      This morning I sat down with AutoIt and came up with:
      #include <File.au3> #include <Array.au3> #include <FileConstants.au3> $LocalPath = EnvGet("APPDATA") & "\Microsoft\Templates\" $Result = DirCopy("\\\Users\<redacted>\<redacted>\<redacted>\<redacted> Templates 2",$LocalPath,$FC_OVERWRITE) MsgBox(0,"Info",$Result) Works on the internal network. Works when I connect to our guest network (which is a different subnet) and connect to the (SoftEther) VPN.  Does not work when connected to the VPN on physically remote machines.
    • adamchapman
      By adamchapman
      I'm using InetGet to download some files but get an error "13" with InetGet after the 4th download. This occurs while using Hidemyass Pro VPN.
      If I can understand what error 13 actually means I'll have a better chance of debugging
      Does anybody know what error 13 means? I;ve looked at the soucre in the include folder for "IE" and "Inet" but can't see the source for Inetget in either.
      Any help is greatly appreciated