75 |
End Function |
End Function |
76 |
|
|
77 |
|
|
78 |
Private Function getIpInfo() As RASPPPIP |
Private Function getIpInfo(conName As String) As RASPPPIP |
79 |
Dim lConnection As Long |
Dim lConnection As Long |
80 |
Dim lProjection As Long |
Dim lProjection As Long |
81 |
Dim tIpInfo As RASPPPIP |
Dim tIpInfo As RASPPPIP |
88 |
lSize = tIpInfo.dwSize |
lSize = tIpInfo.dwSize |
89 |
|
|
90 |
'retrieve connection |
'retrieve connection |
91 |
lConnection = lRetrieveConnectionHandler() |
lConnection = RasRetrieveConnectionHandler(conName) |
92 |
If lConnection = 0 Then |
If lConnection = 0 Then |
93 |
Exit Function |
Exit Function |
94 |
End If |
End If |
104 |
End Function |
End Function |
105 |
|
|
106 |
|
|
107 |
Public Function DetermineServerIP() As String |
Public Function DetermineServerIP(conName As String) As String |
108 |
|
|
109 |
Dim tIpInfo As RASPPPIP |
Dim tIpInfo As RASPPPIP |
110 |
|
|
111 |
DetermineServerIP = vbNullString |
DetermineServerIP = vbNullString |
112 |
|
|
113 |
tIpInfo = getIpInfo() |
tIpInfo = getIpInfo(conName) |
114 |
|
|
115 |
'MsgBox "abc" |
'MsgBox "abc" |
116 |
|
|
121 |
|
|
122 |
End Function |
End Function |
123 |
|
|
124 |
Public Function DetermineClientIP() As String |
Public Function DetermineClientIP(conName As String) As String |
125 |
|
|
126 |
Dim tIpInfo As RASPPPIP |
Dim tIpInfo As RASPPPIP |
127 |
|
|
128 |
DetermineClientIP = vbNullString |
DetermineClientIP = vbNullString |
129 |
|
|
130 |
tIpInfo = getIpInfo() |
tIpInfo = getIpInfo(conName) |
131 |
|
|
132 |
'check return code |
'check return code |
133 |
'If lRetCode = 0 Then |
'If lRetCode = 0 Then |