Contact Info

Crumbtrail

ActiveXperts.com » Administration » VBScript Collection » Operating System » COM and DCOM

COM and DCOM Scripting

List Component Categories
List 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