15 lines
298 B
Plaintext
15 lines
298 B
Plaintext
|
' Script shows how to use the script engines hosted by MMC.
|
||
|
|
|
||
|
|
Dim doc
|
||
|
|
Dim snapins
|
||
|
|
Dim frame
|
||
|
|
|
||
|
|
Set frame = MMCApplication.Frame
|
||
|
|
Set doc = MMCApplication.Document
|
||
|
|
Set snapins = doc.snapins
|
||
|
|
|
||
|
|
snapins.Add "{58221c66-ea27-11cf-adcf-00aa00a80033}" ' the services snap-in
|
||
|
|
|
||
|
|
' Script ends
|
||
|
|
|