VB - Creating DUN Connections

[Aaron Young]

Here's some code I put together in response to a thread int he General VB Questions forum, I thought people might find it useful.

The attached code demonstrates how to use the RAS API to create Dial-Up Network connections,
it also allows you to get a list (delimited string) of Modems currently installed.

Example Usage:

Option Explicit
 
Private Sub Command1_Click()
  Dim oDUN As New cDUN
  
  With oDUN
    .Description = "Connection Created with VB."
    
    ' Same as default setting for class.
    .DeviceName = _
      IIf(Len(.GetModemListString()) = 0, _
        "No Modem Installed", _
        Split(.GetModemListString(), ";")(0))
        
    .DeviceType = rasMODEM
    .FramingProtocol = rasPPP
    .Protocols = rasTCPIP
    .LocalPhone = "555-5555"
    
    .Options = _
      rasSwCompression Or rasIpHeaderCompression Or _
      rasRemoteDefaultGateway Or rasSpecificNameServers
      
    .PrimaryDNS = "192.168.0.1"
    .SecondaryDNS = "192.168.0.2"
    
    If Not .Create() Then
      MsgBox "Failed to Create Dial-Up Connection:" & vbCrLf & .LastError
    Else
      MsgBox "Connection Created."
    End If
  End With
  
  Set oDUN = Nothing
End Sub