SetVPN
This function lets the user change the credentials used when using the operating system’s VPN settings to establish server access.
Group: Server Extensions
Syntax: [bOK =] Server.SetVPN(bEnabled, [vVPNName], [vUserID], [vPassword])
bOK (Boolean) Optional – is a return value; a value of True means the method processed normally.
bEnabled (Boolean) enables or disables the configured VPN
vVPNName (Variant) Optional – is the name of the VPN as configured in the operating system
vUserID (Variant) Optional – is the user ID to be used for making that VPN connection if it is different that the already configured user ID in the VPN setup
vPassword (Variant) Optional – is the password to be used for making that VPN connection if it is different that the already configured password in the VPN setup
Example:
Dim bOK as Boolean
bOK = Server.SetVPN(True, "MyISP")