Check for VPN Connection

  • Thread starter Thread starter eighthman11
  • Start date Start date
E

eighthman11

Hello everyone. Quick question. Is there a way to check to see if a
user is signed on to a VPN using Visual Basic? Any Help
appreciated. Thanks Ray.
 
eighthman11 said:
Hello everyone. Quick question. Is there a way to check to see if a
user is signed on to a VPN using Visual Basic?
Click to expand...

From what little I know about VPNs they use a different network
adapter and IP address. You could check the network adapter list and
then see what the IP address by using some of the networking APIs
available at vbnet.mvps.org.

Tony
--
Tony Toews, Microsoft Access MVP
Please respond only in the newsgroups so that others can
read the entire thread of messages.
Microsoft Access Links, Hints, Tips & Accounting Systems at
http://www.granite.ab.ca/accsmstr.htm
Tony's Microsoft Access Blog - http://msmvps.com/blogs/access/
 
:
Quick question. Is there a way to check to see if a
user is signed on to a VPN using Visual Basic? Any Help
appreciated.
Click to expand...

Generally all you need to do is check to see if they have access to
something on the remote network they are connecting to. I use the
FSO functions for this. If you want me to look up the code, I can.
 
Generally all you need to do ischeckto see if they have access to
something on the remote network they are connecting to. I use the
FSO functions for this. If you want me to look up the code, I can.
Click to expand...


David,
I appreciate the help. If you could find the code for the FSO
function that would be fantastic or even tell me where to search and I
will look it up myself. Thanks again for the help. Ray
 
m:
If you could find the code for the FSO
function that would be fantastic or even tell me where to search
and I will look it up myself.
Click to expand...

The function I use is posted after my signature.

--
David W. Fenton http://www.dfenton.com/
usenet at dfenton dot com http://www.dfenton.com/DFA/

Public Function CheckForNetwork(strResource As String, _
bolIsFolder As Boolean, _
Optional bolClear As Boolean = False) As Boolean
Static objFSO As Object

If bolClear Then Set objFSO = Nothing: Exit Function

If objFSO Is Nothing Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
End If
If bolIsFolder Then
CheckForNetwork = objFSO.FolderExists(strResource)
Else
CheckForNetwork = objFSO.FileExists(strResource)
End If
End Function
 
Back
Top