--- joko/ToolBox/Windows/VpnDial/src/RasEntry.bas	2005/09/28 20:36:46	1.1
+++ joko/ToolBox/Windows/VpnDial/src/RasEntry.bas	2005/10/06 20:15:34	1.2
@@ -36,19 +36,24 @@
 End Type
 
 
-Private Declare Function RasDial Lib "RasApi32.DLL" Alias "RasDialA" _
+Private Declare Function RasDial Lib "rasapi32.dll" Alias "RasDialA" _
     (ByVal lprasdialextensions As Long, ByVal lpcstr As String, _
     ByRef lprasdialparamsa As RASDIALPARAMS, ByVal dword As Long, _
     lpvoid As Any, ByRef lphrasconn As Long) As Long
 
-Private Declare Function RasEnumEntries Lib "RasApi32.DLL" Alias "RasEnumEntriesA" _
+Private Declare Function RasEnumEntries Lib "rasapi32.dll" Alias "RasEnumEntriesA" _
     (ByVal reserved As String, ByVal lpszPhonebook As String, lprasentryname As Any, _
     lpcb As Long, lpcEntries As Long) As Long
     
-Private Declare Function RasGetEntryDialParams Lib "RasApi32.DLL" Alias "RasGetEntryDialParamsA" _
+Private Declare Function RasGetEntryDialParams Lib "rasapi32.dll" Alias "RasGetEntryDialParamsA" _
     (ByVal lpcstr As String, ByRef lprasdialparamsa As RASDIALPARAMS, ByRef lpbool As Long) As Long
 
-
+Private Declare Function RasSetEntryDialParams _
+      Lib "rasapi32.dll" Alias "RasSetEntryDialParamsA" _
+        (ByVal lpszPhonebook As String, _
+        lpRasDialParams As RASDIALPARAMS, _
+        ByVal blnRemovePassword As Long) As Long
+        
 Private Function Dial(ByVal Connection As String, ByVal phoneBook As String, ByVal username As String, ByVal password As String) As Integer
     
     Dim rp As RASDIALPARAMS, h As Long, resp As Long
@@ -119,3 +124,19 @@
 
 End Function
 
+' VpnDial.exe --setup {connection} --user {username} --pass {password}
+Public Function SetupRasEntry(conName As String, phoneBook As String, username As String, password As String)
+    
+    Dim rdp As RASDIALPARAMS
+    Dim result As Long
+    
+    rdp.dwSize = Len(rdp) + 6
+    ChangeBytes conName, rdp.szEntryName
+    
+    ChangeBytes username, rdp.szUserName
+    ChangeBytes password, rdp.szPassword
+    
+    ' Set User name and password for the connection
+    RasSetEntryDialParams phoneBook, rdp, 0
+    
+End Function