Sub DisplayClientComponents 

	On Error Resume Next

	Dim oCPAppletMgr ' Control Applet manager object
	Dim oClientComponent ' Individual client component
	Dim oClientComponents ' A collection of client components

	' Get the Control Panel applet manager object.
	Set oCPAppletMgr=CreateObject("CPApplet.CPAppletMgr")
	If oCPAppletMgr Is Nothing Then
		Wscript.echo "Couldn't create control panel application manager"
		Exit Sub
	End If

	' Get a collection of components.
	Set oClientComponents=oCPAppletMgr.GetClientComponents
	If oClientComponents Is Nothing Then
		wscript.echo "Couldn't get the client components"
		Set oCPAppletMgr=Nothing
		Exit Sub
	End If

	wscript.echo "There are " & oClientComponents.Count & " components"
	wscript.echo

	' Display each client component.
	For Each oClientComponent In oClientComponents
		WScript.Echo oClientComponent.DisplayName 
		WScript.Echo "  Version: " & oClientComponent.Version
		WScript.StdOut.Write "  State: " 
		Select Case oClientComponent.State
			case 0  
				Wscript.Echo "Installed"
			case 1 : 
				WScript.Echo "Enabled"
			case 2 :
				WScript.Echo "Disabled"
		End Select

		Script.Echo 
	Next

	Set oClientComponents=Nothing
	Set oCPAppletMgr=Nothing

End Sub

public void DisplayClientComponents()
{
	try
	{
		CPAppletMgr cpAppletMgr = new CPAppletMgr();

		// Get the client components.
		ClientComponents clientComponents = cpAppletMgr.GetClientComponents();

		// Display client component information.
		foreach (ClientComponent component  in clientComponents)
		{
			Console.WriteLine(component.DisplayName);
			Console.WriteLine("  Version: " + component.Version);
			Console.Write("  State: ");

			switch (component.State)
			{
				case EComponentState.COMPONENT_STATE_INSTALLED:
					Console.WriteLine("Installed");
					break;
				case EComponentState.COMPONENT_STATE_ENABLED:
					Console.WriteLine("Enabled");
					break;
				case EComponentState.COMPONENT_STATE_DISABLED:
					Console.WriteLine("Disabled");
					break;
		}
		
			Console.WriteLine();
	}
}
	catch (COMException e)
	{
		Console.WriteLine("Error displaying components: " + e.Message);
		throw;
}
}