75 lines
1.3 KiB
Plaintext
75 lines
1.3 KiB
Plaintext
|
' starts the RRAS snapin's Routing and Remote Access Server Setup Wizard
|
||
|
|
|
||
|
|
option explicit
|
||
|
|
|
||
|
|
|
||
|
|
Dim mmc
|
||
|
|
Set mmc = CreateObject("MMC20.Application")
|
||
|
|
|
||
|
|
' msgbox(1)
|
||
|
|
|
||
|
|
' uncomment this to cause the MMC console to appear
|
||
|
|
' Dim frame
|
||
|
|
' Set frame = mmc.Frame
|
||
|
|
' frame.restore
|
||
|
|
|
||
|
|
' since the RRAS snapin does not automatically add the local computer
|
||
|
|
' to the scope pane, which is lame, we have to load their saved console
|
||
|
|
' file to do so.
|
||
|
|
|
||
|
|
mmc.load("rrasmgmt.msc")
|
||
|
|
|
||
|
|
' Dim snapins
|
||
|
|
' Set snapins = doc.snapins
|
||
|
|
|
||
|
|
'Dim snapin
|
||
|
|
'const RAS_SNAPIN_CLSID = "{1AA7F839-C7F5-11D0-A376-00C04FC9DA04}"
|
||
|
|
|
||
|
|
' if RAS is not installed, this will fail.
|
||
|
|
|
||
|
|
'set snapin = snapins.Add(RAS_SNAPIN_CLSID)
|
||
|
|
|
||
|
|
' msgbox("snapin added")
|
||
|
|
|
||
|
|
Dim doc
|
||
|
|
Set doc = mmc.Document
|
||
|
|
|
||
|
|
Dim views
|
||
|
|
Set views = doc.views
|
||
|
|
|
||
|
|
Dim view
|
||
|
|
Set view = views(1)
|
||
|
|
|
||
|
|
Dim namespace
|
||
|
|
Set namespace = doc.ScopeNamespace
|
||
|
|
|
||
|
|
Dim rootnode
|
||
|
|
Set rootnode = namespace.GetRoot
|
||
|
|
|
||
|
|
View.ActiveScopeNode = namespace.GetChild(rootnode)
|
||
|
|
View.ActiveScopeNode = namespace.GetChild(View.ActiveScopeNode)
|
||
|
|
|
||
|
|
View.ActiveScopeNode = namespace.GetNext(View.ActiveScopeNode)
|
||
|
|
|
||
|
|
' how do I get the snapin to add the local server to the scope node?
|
||
|
|
|
||
|
|
' msgbox("about to exec menu")
|
||
|
|
|
||
|
|
Dim menu
|
||
|
|
Set menu = view.ScopeNodeContextMenu
|
||
|
|
|
||
|
|
Dim menuItem
|
||
|
|
Set menuItem = menu.item(2)
|
||
|
|
|
||
|
|
menuItem.Execute
|
||
|
|
|
||
|
|
doc.Close(FALSE)
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|