Parent Directory | Revision Log
+ now with "--setup" feature
1 | Attribute VB_Name = "Module_Main" |
2 | Option Explicit |
3 | |
4 | ' see: How To Obtain the IP Address Assigned to a RAS Client |
5 | ' http://support.microsoft.com/default.aspx?scid=kb;en-us;160622 |
6 | |
7 | ' see: RasGetProjectionInfo |
8 | ' http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wcecomm5/html/wce50lrfRasGetProjectionInfo.asp |
9 | |
10 | ' http://home.iprimus.com.au/billmcc/PlatformVB/dun/rasenumentries.htm |
11 | ' http://home.iprimus.com.au/billmcc/PlatformVB/dun/raserrorhandler.htm |
12 | ' http://www.mentalis.org/apilist/RasEnumEntries.shtml |
13 | |
14 | ' http://www.activevb.de/tipps/tipkat/kat1.html |
15 | ' http://www.activevb.de/rubriken/apikatalog/deklarationen/rasenumentries.html |
16 | ' http://www.dotnet247.com/247reference/msgs/18/93960.aspx |
17 | |
18 | Public RasEntries As New Collection |
19 | |
20 | Sub Main() |
21 | |
22 | Dim cmdline As New CommandLine |
23 | Dim conName As String |
24 | Dim rasItem As RasEntryData |
25 | Dim success As Boolean |
26 | |
27 | Dim script_name As String, script_args As String |
28 | Dim setup_user As String, setup_pass As String |
29 | |
30 | ReadRasEntries |
31 | cmdline.parse |
32 | |
33 | 'If cmdline.hasSwitch("gui") Then |
34 | ' Form_Main.Show |
35 | 'Else |
36 | |
37 | ' dial command |
38 | If cmdline.hasSwitch("dial") Then |
39 | |
40 | conName = cmdline.getArgument("dial") |
41 | On Error Resume Next |
42 | Set rasItem = RasEntries(conName) |
43 | If Err.Number = 0 Then |
44 | success = RasConnect(rasItem.entryname, rasItem.PhonebookPath) |
45 | Else |
46 | MsgBox "Unkown RAS-Connection """ & conName & """." |
47 | End If |
48 | On Error GoTo 0 |
49 | |
50 | ' hangup command |
51 | ElseIf cmdline.hasSwitch("hangup") Then |
52 | conName = cmdline.getArgument("hangup") |
53 | success = RasDisconnect(conName) |
54 | 'MsgBox success |
55 | |
56 | 'End If |
57 | |
58 | ' run script |
59 | ElseIf cmdline.hasSwitch("script") And success = True Then |
60 | script_name = cmdline.getArgument("script") |
61 | If script_name <> "" Then |
62 | script_args = Chr(34) & DetermineClientIP() & Chr(34) & " " & Chr(34) & DetermineServerIP & Chr(34) |
63 | Shell App.Path & "\" & script_name & " " & script_args, vbHide |
64 | End If |
65 | 'End If |
66 | |
67 | ' setup |
68 | ElseIf cmdline.hasSwitch("setup") Then |
69 | conName = cmdline.getArgument("setup") |
70 | If conName <> "" Then |
71 | |
72 | Set rasItem = RasEntries(conName) |
73 | |
74 | If cmdline.hasSwitch("gui") Then |
75 | With Form_Credentials |
76 | .ras_connectionName = rasItem.entryname |
77 | .ras_phoneBook = rasItem.PhonebookPath |
78 | .Show |
79 | End With |
80 | |
81 | ElseIf cmdline.hasSwitch("user") And cmdline.hasSwitch("pass") Then |
82 | setup_user = cmdline.getArgument("user") |
83 | setup_pass = cmdline.getArgument("pass") |
84 | SetupRasEntry rasItem.entryname, rasItem.PhonebookPath, setup_user, setup_pass |
85 | End If |
86 | |
87 | End If |
88 | End If |
89 | |
90 | 'End If |
91 | |
92 | End Sub |
93 | |
94 | Private Sub ReadRasEntries() |
95 | |
96 | Dim myEntries() As VBRasEntryName |
97 | Dim lngCount As Long |
98 | Dim rasItem As RasEntryData |
99 | |
100 | lngCount = VBRasGetAllEntries(myEntries) |
101 | |
102 | 'MsgBox lngCount |
103 | Dim i As Integer |
104 | Dim curEntry As VBRasEntryName |
105 | For i = 0 To lngCount - 1 |
106 | curEntry = myEntries(i) |
107 | |
108 | Set rasItem = New RasEntryData |
109 | rasItem.entryname = curEntry.entryname |
110 | rasItem.PhonebookPath = curEntry.PhonebookPath |
111 | rasItem.Win2000_SystemPhonebook = curEntry.Win2000_SystemPhonebook |
112 | |
113 | RasEntries.add rasItem, rasItem.entryname |
114 | Next i |
115 | |
116 | End Sub |
MailToCvsAdmin">MailToCvsAdmin | ViewVC Help |
Powered by ViewVC 1.1.26 |