WMI Runtime ISSUES

[Mark Hollander]

Hi,

The following code works on my machine but when I try to run it on any
other machine I get the error message at the end of this post. Can
anyone please help me, I am slowly losing my Mind ;)
----------------------------------------------------------
Code Snippet
----------------------------------------------------------

Dim mocNetAdapter As Management.ManagementObjectCollection
Dim mocNetAdapterCfg As Management.ManagementObjectCollection
Dim sCaptionNic As String, sCaptionCfg As String
Dim iNic As Integer, iNics As Integer
Dim iCfg As Integer, iCfgs As Integer
Dim aNetAdp() As Management.ManagementObject
Dim aNetCfg() As Management.ManagementObject
mocNetAdapter = New Management.ManagementObjectSearcher(New
Management.SelectQuery("Win32_NetworkAdapter")).Ge t
mocNetAdapterCfg = New
Management.ManagementObjectSearcher(New
Management.SelectQuery("Win32_NetworkAdapterConfig uration")).Get
iNics = mocNetAdapter.Count - 1
iCfgs = mocNetAdapterCfg.Count - 1
ReDim aNetworkAdapter(iNics)
ReDim aNetAdp(iNics)
ReDim aNetCfg(iCfgs)
mocNetAdapter.CopyTo(aNetAdp, 0) ---> Fails Here
mocNetAdapterCfg.CopyTo(aNetCfg, 0)

----------------------------------------------------------
Error Message
----------------------------------------------------------
System.Management.ManagementException: COM object that has been
separated from its underlying RCW can not be used. --->
System.Runtime.InteropServices.InvalidComObjectExc eption: COM object
that has been separated from its underlying RCW can not be used.
at
System.Management.IEnumWbemClassObject.Clone_(IEnu mWbemClassObject&
ppEnum)
at System.Management.ManagementObjectCollection.GetEn umerator()
--- End of inner exception stack trace ---
at
System.Management.ManagementException.ThrowWithExt endedInfo(Exception e)
at System.Management.ManagementObjectCollection.GetEn umerator()
at System.Management.ManagementObjectCollection.CopyT o(Array array,
Int32 index)
at
System.Management.ManagementObjectCollection.CopyT o(ManagementBaseObject
[] objectCollection, Int32 index)
at Assimilator.SDK.clsNICProperties.PopulateNetworkAd apterArray() in
V:\VBNET\Assimilator Ver 4.2\Assimilator.SDK\clsNICProperties.vb:line
674
Thank You
Mark Hollander

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!