117 |
errorCode = Dial(conName, phoneBook, username, password) |
errorCode = Dial(conName, phoneBook, username, password) |
118 |
|
|
119 |
If (errorCode <> 0) Then |
If (errorCode <> 0) Then |
120 |
MsgBox "Error-Code: " & errorCode & vbCrLf & "http://www.admins-tipps.net/glossar/ras_errorcode.htm" |
If errorCode = 691 Then |
121 |
|
MsgBox "Fehler 691: Der Zugriff wurde verweigert, weil Benutzername und/oder Kennwort ungültig ist/sind." |
122 |
|
Else |
123 |
|
MsgBox "Fehler-Code: " & errorCode & vbCrLf & "http://www.admins-tipps.net/glossar/ras_errorcode.htm" |
124 |
|
End If |
125 |
End If |
End If |
126 |
|
|
127 |
RasConnect = (errorCode = 0) |
RasConnect = (errorCode = 0) |