COM and DCOM Scripting
List Component CategoriesList Classic COM Class Settings
List Classic COM Classes
List DCOM Applications
List DCOM Application Settings
List ProgIDs
You can use any of the VBScript programs below in ActiveXperts Network Monitor. Click here for an explanation about how to include scripts in ActiveXperts Network Monitor.
List Component Categories
Retrieves information about the COM class component categories (COM classes that share common functionalities) found on a computer.
On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_ComponentCategory") For Each objItem in colItems Wscript.Echo "Category ID: " & objItem.CategoryId Wscript.Echo "Name: " & objItem.Name Wscript.Echo Next
List Classic COM Class Settings
Returns configuration information for the “classic” COM classes installed on a computer.
On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery _ ("Select * from Win32_ClassicCOMClassSetting") For Each objItem in colItems Wscript.Echo "Application ID: " & objItem.AppID Wscript.Echo "Component ID: " & objItem.ComponentId Wscript.Echo "Control: " & objItem.Control Wscript.Echo "Default Icon: " & objItem.DefaultIcon Wscript.Echo "Description: " & objItem.Description Wscript.Echo "In-process Server 32: " & objItem.InprocServer32 Wscript.Echo "Insertable: " & objItem.Insertable Wscript.Echo "Java Class: " & objItem.JavaClass Wscript.Echo "ProgId: " & objItem.ProgId Wscript.Echo "Version Independent ProgId: " & _ objItem.VersionIndependentProgId Wscript.Echo Next
List Classic COM Classes
Retrieves information about all the “classic” COM classes installed on a computer.
On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_ClassicCOMClass") For Each objItem in colItems Wscript.Echo "Component ID: " & objItem.ComponentId Wscript.Echo "Description: " & objItem.Description Wscript.Echo "Name: " & objItem.Name Wscript.Echo Next
List DCOM Applications
Returns information about all the DCOM (distributed COM) applications installed on a computer.
On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_DCOMApplication") For Each objItem in colItems Wscript.Echo "Application ID: " & objItem.AppID Wscript.Echo "Name: " & objItem.Name Wscript.Echo Next
List DCOM Application Settings
Returns information about the configuration of each DCOM (distributed COM) application installed on a computer.
On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery _ ("Select * from Win32_DCOMApplicationSetting") For Each objItem in colItems Wscript.Echo "Application ID: " & objItem.AppID Wscript.Echo "Description: " & objItem.Description Wscript.Echo "Enable At Storage Activation: " & _ objItem.EnableAtStorageActivation Wscript.Echo "Local Service: " & objItem.LocalService Wscript.Echo "Service Parameters: " & objItem.ServiceParameters Wscript.Echo "Use Surrogate: " & objItem.UseSurrogate Wscript.Echo Next
List ProgIDs
Returns a list of ProgIDs (Programmatic Identifiers) found on a computer.
On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery _ ("Select * from Win32_ProgIDSpecification") For Each objItem in colItems Wscript.Echo "Caption: " & objItem.Caption Wscript.Echo "Check ID: " & objItem.CheckID Wscript.Echo "Name: " & objItem.Name Wscript.Echo "Parent: " & objItem.Parent Wscript.Echo "ProgID: " & objItem.ProgID Next