Error with COM + 1.0 Admin Type Library (COMAdmin) interop on Win2K. 2003 works.

[Grant]

I've cross-posted this in the COM+ group as well -
apologies if that's a no-no. But the problem might be
caused by either... interop or just plain COMAdmin.
=============== =============== ===============

I've got a VB.NET app that is trying to access the
Component Services catalog. The first class method
installs a new component at a specified location. The
second method searches for a specified component and
deletes it.

The reference is to COM + 1.0 Admin Type Library
(COMAdmin)... located in %systemroot%\sy stem32\com\.

The framework version on the 2003 and 2000 servers is
v1.1.4322. The application was developed for that
version (using Visual Studio .NET 2003).

This code works 100% on Windows 2003 server. When trying
to run it on Windows 2000 server, it fails with the
following error:
=START========= =============== =============== =====
See the end of this message for details on invoking

just-in-time (JIT) debugging instead of this dialog box.

************** Exception Text **************

System.InvalidC astException: QueryInterface for interface
COMAdmin.ICOMAd minCatalog2 failed.

at COMAdmin.COMAdm inCatalogClass. GetCollection(S tring
bstrCollName)

at
SecurDOCS_COM_U tility.Componen tServicesManage r.DeleteCompo
nent(String componentName, String& applicationName )

at SecurDOCS_COM_U tility.COMUtili ty.btnReplace_C lick
(Object sender, EventArgs e)

at System.Windows. Forms.Control.O nClick(EventArg s e)

at System.Windows. Forms.Button.On Click(EventArgs e)

at System.Windows. Forms.Button.On MouseUp(MouseEv entArgs
mevent)

at System.Windows. Forms.Control.W mMouseUp(Messag e& m,
MouseButtons button, Int32 clicks)

at System.Windows. Forms.Control.W ndProc(Message& m)

at System.Windows. Forms.ButtonBas e.WndProc(Messa ge& m)

at System.Windows. Forms.Button.Wn dProc(Message& m)

at System.Windows. Forms.ControlNa tiveWindow.OnMe ssage
(Message& m)

at System.Windows. Forms.ControlNa tiveWindow.WndP roc
(Message& m)

at System.Windows. Forms.NativeWin dow.Callback(In tPtr
hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
=END=========== =============== =============== =====
Here's the class code:

=START========= =============== =============== ======
Imports COMAdmin

Public Class ComponentServic esManager
Public Sub InstallComponen t(ByVal componentName As
String, ByVal applicationName As String)
Dim oCatalog As New COMAdminCatalog

oCatalog.Instal lComponent(appl icationName,
componentName, Nothing, Nothing)
End Sub

Public Function DeleteComponent (ByVal componentName As
String, ByRef applicationName As String) As Boolean
applicationName = ""
Dim oCatalog As New COMAdminCatalog

' Get the Applications collection and populate it.
Dim oApplications As COMAdminCatalog Collection
oApplications = CType(oCatalog. GetCollection
("Applications" ), COMAdminCatalog Collection)
oApplications.P opulate()

' Get the correct application
Dim oAppObject As COMAdminCatalog Object

For Each oAppObject In oApplications
' Get and populate the Components collection
Dim oComponents As COMAdminCatalog Collection
oComponents = CType(oApplicat ions.GetCollect ion
("Components ", oAppObject.Key) , COMAdminCatalog Collection)
oComponents.Pop ulate()

' Get the correct component
Dim oCompObject As COMAdminCatalog Object
Dim iComponentIndex As Integer = 0

For Each oCompObject In oComponents
Dim sCompDLLValue As String =
oCompObject.Val ue("DLL").ToStr ing

If sCompDLLValue = componentName Then
applicationName =
oAppObject.Name .ToString
oCatalog.Shutdo wnApplication
(oAppObject.Nam e.ToString)
oComponents.Rem ove(iComponentI ndex)
oComponents.Sav eChanges()
End If
iComponentIndex += 1
Next

oCompObject = Nothing
Next

If Not applicationName = "" Then
Return True
Else
Return False
End If

oCatalog = Nothing
oApplications = Nothing
oAppObject = Nothing

End Function
End Class

=END=========== =============== =============== =====

I need this to work on Windows 2000 server ASAP. Any
ideas what the problem is?

TIA