Jul 7, 2009 at 2:26 PM
Edited Jul 7, 2009 at 2:30 PM
Thanks for your response Jeff,
I fixed all issues you mentioned besides:
) Where you're setting the extended options, that code is going to overwrite any other options that may have been set by the CreateVpnEntry method.
I noticed That My entry.options are not kept as you said
It currently Holds the Extended option and one Option .. but i need to set multiple
I do need to Use Ipsec auth Key
Dim rasstrat As DotRas.RasVpnStrategy
rasstrat = RasVpnStrategy.L2tpOnly
Dim PhoneBook As New RasPhoneBook
Dim entry = RasEntry.CreateVpnEntry("NAME", "IPADDRESS", rasstrat, RasDevice.GetDeviceByName("(L2TP)", RasDeviceType.Vpn))
entry.ExtendedOptions = RasEntryExtendedOptions.UsePreSharedKey
entry.Options = RasEntryOptions.PreviewUserPassword
'I know this will not be kept since its an enum is there a way to set multiple?
entry.Options = RasEntryOptions.ShowDialingProgress