Opens the MMC console and then loads the specified snapin.

'Here, snapinname is the name of the snapin to add
'(i.e. “Event Viewer”, “Local Users and Groups”).
Set objMMC = CreateObject("MMC20.Application")
Set objDOC = objMMC.Document
objDOC.SnapIns.Add "snapinname"
objMMC.show
objMMC.UserControl = 1

RELATED POSTS:

1. Expanding the C Drive of a Virtual Windows System
2. Removing the Windows Home Server Desktop Logon Warning
3. Paste as Plain Text for Windows
4. Connecting to a SQL Server
5. Resolve issues reading/mounting MDS or MDF images