52 lines
887 B
Plaintext
52 lines
887 B
Plaintext
|
' starts the Configure DNS Server Wizard using MMC automation interfaces
|
||
|
|
|
||
|
|
|
||
|
|
option explicit
|
||
|
|
|
||
|
|
Dim mmc
|
||
|
|
Set mmc = CreateObject("MMC20.Application")
|
||
|
|
|
||
|
|
' uncomment this to cause the MMC console to appear
|
||
|
|
'Dim frame
|
||
|
|
'Set frame = mmc.Frame
|
||
|
|
'frame.restore
|
||
|
|
|
||
|
|
Dim doc
|
||
|
|
Set doc = mmc.Document
|
||
|
|
|
||
|
|
Dim namespace
|
||
|
|
Set namespace = doc.ScopeNamespace
|
||
|
|
|
||
|
|
Dim snapins
|
||
|
|
Set snapins = doc.snapins
|
||
|
|
|
||
|
|
Dim snapin
|
||
|
|
const DNS_SNAPIN_CLSID = "{2FAEBFA2-3F1A-11D0-8C65-00C04FD8FECB}"
|
||
|
|
|
||
|
|
' if DNS is not installed, this will fail.
|
||
|
|
|
||
|
|
set snapin = snapins.Add(DNS_SNAPIN_CLSID)
|
||
|
|
|
||
|
|
Dim views
|
||
|
|
Set views = doc.views
|
||
|
|
|
||
|
|
Dim view
|
||
|
|
Set view = views(1)
|
||
|
|
|
||
|
|
Dim rootnode
|
||
|
|
Set rootnode = namespace.GetRoot
|
||
|
|
|
||
|
|
View.ActiveScopeNode = namespace.GetChild(rootnode)
|
||
|
|
|
||
|
|
View.ActiveScopeNode = namespace.GetChild(View.ActiveScopeNode)
|
||
|
|
|
||
|
|
Dim menu
|
||
|
|
Set menu = view.ScopeNodeContextMenu
|
||
|
|
|
||
|
|
Dim menuItem
|
||
|
|
Set menuItem = menu.item(2)
|
||
|
|
|
||
|
|
menuItem.Execute
|
||
|
|
|
||
|
|
doc.Close(FALSE)
|