Imports DotRas
 
Module MainModule
 
    Sub Main()
        If Not My.Application.CommandLineArgs.Count = 3 Then
            ShowUsage()
        Else
            Dim VpnName As String = My.Application.CommandLineArgs(0)
            Dim Destination As String = My.Application.CommandLineArgs(1)
            Dim PresharedKey As String = My.Application.CommandLineArgs(2)
 
            Try
                Dim PhoneBook As New RasPhoneBook
                PhoneBook.Open()
                Dim VpnEntry As RasEntry = RasEntry.CreateVpnEntry(VpnName, Destination, DotRas.RasVpnStrategy.L2tpOnly, _
                                                                   DotRas.RasDevice.Create(VpnName, DotRas.RasDeviceType.Vpn))
                VpnEntry.Options.UsePreSharedKey = True
                VpnEntry.Options.UseLogOnCredentials = True
                PhoneBook.Entries.Add(VpnEntry)
                VpnEntry.UpdateCredentials(RasPreSharedKey.Client, PresharedKey)
                Console.WriteLine("VPN connection created successfully")
            Catch ex As Exception
                Console.WriteLine("ERROR: " & ex.Message & vbNewLine)
                Environment.Exit(999)
            End Try
        End If
    End Sub
 
    Private Sub ShowUsage()
        Console.WriteLine("Invalid number of arguments specified." & vbNewLine & vbNewLine & _
                          "Usage: VpnSetup.exe [VPN Name] [Destination] [Preshared Key]" & vbNewLine & vbNewLine & _
                          "EXAMPLE: VpnSetup.exe ""New VPN"" vpn.mycompany.com SomePassword" & vbNewLine)
    End Sub
 
End Module

SW1wb3J0cyBEb3RSYXMKCk1vZHVsZSBNYWluTW9kdWxlCgogICAgU3ViIE1haW4oKQogICAgICAgIElmIE5vdCBNeS5BcHBsaWNhdGlvbi5Db21tYW5kTGluZUFyZ3MuQ291bnQgPSAzIFRoZW4KICAgICAgICAgICAgU2hvd1VzYWdlKCkKICAgICAgICBFbHNlCiAgICAgICAgICAgIERpbSBWcG5OYW1lIEFzIFN0cmluZyA9IE15LkFwcGxpY2F0aW9uLkNvbW1hbmRMaW5lQXJncygwKQogICAgICAgICAgICBEaW0gRGVzdGluYXRpb24gQXMgU3RyaW5nID0gTXkuQXBwbGljYXRpb24uQ29tbWFuZExpbmVBcmdzKDEpCiAgICAgICAgICAgIERpbSBQcmVzaGFyZWRLZXkgQXMgU3RyaW5nID0gTXkuQXBwbGljYXRpb24uQ29tbWFuZExpbmVBcmdzKDIpCgogICAgICAgICAgICBUcnkKICAgICAgICAgICAgICAgIERpbSBQaG9uZUJvb2sgQXMgTmV3IFJhc1Bob25lQm9vawogICAgICAgICAgICAgICAgUGhvbmVCb29rLk9wZW4oKQogICAgICAgICAgICAgICAgRGltIFZwbkVudHJ5IEFzIFJhc0VudHJ5ID0gUmFzRW50cnkuQ3JlYXRlVnBuRW50cnkoVnBuTmFtZSwgRGVzdGluYXRpb24sIERvdFJhcy5SYXNWcG5TdHJhdGVneS5MMnRwT25seSwgXwogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgRG90UmFzLlJhc0RldmljZS5DcmVhdGUoVnBuTmFtZSwgRG90UmFzLlJhc0RldmljZVR5cGUuVnBuKSkKICAgICAgICAgICAgICAgIFZwbkVudHJ5Lk9wdGlvbnMuVXNlUHJlU2hhcmVkS2V5ID0gVHJ1ZQogICAgICAgICAgICAgICAgVnBuRW50cnkuT3B0aW9ucy5Vc2VMb2dPbkNyZWRlbnRpYWxzID0gVHJ1ZQogICAgICAgICAgICAgICAgUGhvbmVCb29rLkVudHJpZXMuQWRkKFZwbkVudHJ5KQogICAgICAgICAgICAgICAgVnBuRW50cnkuVXBkYXRlQ3JlZGVudGlhbHMoUmFzUHJlU2hhcmVkS2V5LkNsaWVudCwgUHJlc2hhcmVkS2V5KQogICAgICAgICAgICAgICAgQ29uc29sZS5Xcml0ZUxpbmUoIlZQTiBjb25uZWN0aW9uIGNyZWF0ZWQgc3VjY2Vzc2Z1bGx5IikKICAgICAgICAgICAgQ2F0Y2ggZXggQXMgRXhjZXB0aW9uCiAgICAgICAgICAgICAgICBDb25zb2xlLldyaXRlTGluZSgiRVJST1I6ICIgJiBleC5NZXNzYWdlICYgdmJOZXdMaW5lKQogICAgICAgICAgICAgICAgRW52aXJvbm1lbnQuRXhpdCg5OTkpCiAgICAgICAgICAgIEVuZCBUcnkKICAgICAgICBFbmQgSWYKICAgIEVuZCBTdWIKCiAgICBQcml2YXRlIFN1YiBTaG93VXNhZ2UoKQogICAgICAgIENvbnNvbGUuV3JpdGVMaW5lKCJJbnZhbGlkIG51bWJlciBvZiBhcmd1bWVudHMgc3BlY2lmaWVkLiIgJiB2Yk5ld0xpbmUgJiB2Yk5ld0xpbmUgJiBfCiAgICAgICAgICAgICAgICAgICAgICAgICAgIlVzYWdlOiBWcG5TZXR1cC5leGUgW1ZQTiBOYW1lXSBbRGVzdGluYXRpb25dIFtQcmVzaGFyZWQgS2V5XSIgJiB2Yk5ld0xpbmUgJiB2Yk5ld0xpbmUgJiBfCiAgICAgICAgICAgICAgICAgICAgICAgICAgIkVYQU1QTEU6IFZwblNldHVwLmV4ZSAiIk5ldyBWUE4iIiB2cG4ubXljb21wYW55LmNvbSBTb21lUGFzc3dvcmQiICYgdmJOZXdMaW5lKQogICAgRW5kIFN1YgoKRW5kIE1vZHVsZQ==

MQoyCjEwCjQyCjExCg==

1
2
10
42
11