--- joko/ToolBox/Windows/VpnDial/src/RasConnection.bas	2005/10/07 20:25:24	1.2
+++ joko/ToolBox/Windows/VpnDial/src/RasConnection.bas	2005/10/07 20:59:27	1.3
@@ -75,7 +75,7 @@
 End Function
 
 
-Private Function getIpInfo() As RASPPPIP
+Private Function getIpInfo(conName As String) As RASPPPIP
    Dim lConnection As Long
    Dim lProjection As Long
    Dim tIpInfo As RASPPPIP
@@ -88,7 +88,7 @@
    lSize = tIpInfo.dwSize
    
    'retrieve connection
-   lConnection = lRetrieveConnectionHandler()
+   lConnection = RasRetrieveConnectionHandler(conName)
    If lConnection = 0 Then
        Exit Function
    End If
@@ -104,13 +104,13 @@
 End Function
 
 
-Public Function DetermineServerIP() As String
+Public Function DetermineServerIP(conName As String) As String
    
    Dim tIpInfo As RASPPPIP
    
    DetermineServerIP = vbNullString
    
-   tIpInfo = getIpInfo()
+   tIpInfo = getIpInfo(conName)
    
    'MsgBox "abc"
    
@@ -121,13 +121,13 @@
    
 End Function
 
-Public Function DetermineClientIP() As String
+Public Function DetermineClientIP(conName As String) As String
    
    Dim tIpInfo As RASPPPIP
    
    DetermineClientIP = vbNullString
    
-   tIpInfo = getIpInfo()
+   tIpInfo = getIpInfo(conName)
    
    'check return code
    'If lRetCode = 0 Then