58 |
|
|
59 |
Option Explicit |
Option Explicit |
60 |
|
|
|
Private Sub Command_RunScript_Click() |
|
|
Dim script_name As String, args As String |
|
|
|
|
|
script_name = "ip-up.bat" |
|
|
args = Chr(34) & DetermineClientIP() & Chr(34) |
|
|
|
|
|
Shell App.Path & "\" & script_name & " " & args, vbNormalFocus |
|
|
|
|
|
End Sub |
|
|
|
|
61 |
Private Sub Form_Load() |
Private Sub Form_Load() |
62 |
Dim rasItem As RasEntryData |
Dim rasItem As RasEntryData |
63 |
For Each rasItem In RasEntries |
For Each rasItem In RasEntries |
85 |
|
|
86 |
Dim ClientIP As String |
Dim ClientIP As String |
87 |
If (success = True) Then |
If (success = True) Then |
88 |
ClientIP = DetermineClientIP() |
ClientIP = DetermineClientIP(rasItem.entryname) |
89 |
MsgBox "Eingewählt: " & ClientIP, , "Status" |
MsgBox "Eingewählt: " & ClientIP, , "Status" |
90 |
Else |
Else |
91 |
MsgBox "Fehler bei der Einwahl!", , "Status" |
MsgBox "Fehler bei der Einwahl!", , "Status" |