windows-server-2003/admin/activec/test/script/addremovesnapins.vbs

'
L_Welcome_MsgBox_Message_Text    = "This script demonstrates how to add/remove snapins from scriptable objects."
L_Welcome_MsgBox_Title_Text      = "Windows Scripting Host Sample"
Call Welcome()

' ********************************************************************************

Dim mmc
Dim doc
Dim snapins
Dim frame
Dim views
Dim view
Dim scopenamespace
Dim rootnode
Dim Nodes
Dim scopenode
Dim SnapNode1

Dim Sample
Dim Cert
Dim Services
Dim MultiSel
Dim Eventlog
Dim Index

'get the various objects we'll need
Set mmc         = wscript.CreateObject("MMC20.Application")
Set frame       = mmc.Frame
Set doc         = mmc.Document
Set namespace   = doc.ScopeNamespace
Set rootnode    = namespace.GetRoot
Set views       = doc.views
Set view        = views(1)
Set snapins     = doc.snapins

Set Sample = snapins.Add("{18731372-1D79-11D0-A29B-00C04FD909DD}") ' Sample snapin
Set Cert = snapins.Add("{53D6AB1D-2488-11D1-A28C-00C04FB94F17}") ' Certificates s
Set Index = snapins.Add("{95AD72F0-44CE-11D0-AE29-00AA004B9986}")  ' index snapin
Set Eventlog = snapins.Add("{975797FC-4E2A-11D0-B702-00C04FD8DBF7}")  ' eventlog
Set Services = snapins.Add("{58221c66-ea27-11cf-adcf-00aa00a80033}")  ' the services

snapins.Remove Cert
snapins.Remove Eventlog


Set scopenamespace = doc.scopenamespace

Set view = doc.ActiveView
Set Node = view.ActiveScopeNode

snapins.Remove Sample

snapins.Remove Services

Set mmc = Nothing

' ********************************************************************************
' *
' * Welcome
' *
Sub Welcome()
    Dim intDoIt

    intDoIt =  MsgBox(L_Welcome_MsgBox_Message_Text, _
                      vbOKCancel + vbInformation,    _
                      L_Welcome_MsgBox_Title_Text )
    If intDoIt = vbCancel Then
        WScript.Quit
    End If
End Sub