Connect a VPN

[Toolguy]

Hi
What the best way to connect a vpn in access
the shell command doesn't seem to work with a shortcut on the desktop

Public Sub StartVPN()
Dim StartProcess
StartProcess = Shell("C:\Documents and Settings\User1\Desktop\New Folder\VPN Connection.lnk", 1)
End Sub

Cheers Toolguy

 

[Toolguy]

Got it sorted

 

[dcb]

You feel like sharing the solution?

 

[Toolguy]

Yip no worries there. This is how i got around it
Create the VPN Connection on your computer and call it "Work VPN"

Create a batch files with note pad and the write this in....

rasdialer "Work VPN"

Save it and call it Connect.bat

Create another one and write this in

rasdialer "Work VPN" /D
Save and call it Disconnect.bat

Call the first file with a shell cmd to connect and call the other file to disconnect

code to connect the VPN with a Access Module

Public Sub StartVPN()
Dim StartProcess
StartProcess = Shell("C:\Documents and Settings\User1\Desktop\Connect.bat", vbHide)
End Sub

code to Disconnect the VPN with a Access Module

Public Sub StopVPN()
Dim StopProcess
StopProcess = Shell("C:\Documents and Settings\User1\Desktop\Disconnect.bat", vbHide)
End Sub

Hope this explanes the process. Working on a way to do the full connection inside Access with a module

Toolguy

 

[Galaxiom]

I think this might be what you are after.
You can run links using a ShellExecute Function.

Here is good explanation.
http://www.suodenjoki.dk/us/productions/articles/vbashellexecute.htm