Hi,
The following code works fine for me. A couple of things to keep in
mind. First wmi is not installed by default on windows 95, 98, and nt 4.0.
Second win32_operatingsystem only works with windows xp, 2000, 2003, and nt
4.
Link wmi redist package
http://www.microsoft.com/downloads/d...displaylang=en
Code
' Add a Reference to System.Management
Dim moReturn As Management.ManagementObjectCollection
Dim moSearch As Management.ManagementObjectSearcher
Dim mo As Management.ManagementObject
moSearch = New Management.ManagementObjectSearcher("Select * from
Win32_OperatingSystem")
moReturn = moSearch.Get
For Each mo In moReturn
Dim strOut As String
strOut = String.Format("Name {0} - Serial Number {1}", mo("Name"),
mo("SerialNumber"))
Trace.WriteLine(strOut)
Next
Ken
-------------------------------
"mattiassich" <ma*********@discussions.microsoft.com> wrote in message
news:AD**********************************@microsof t.com...
The following code causes unhandled exception on the line:
New ManagementObjectSearcher(query)
Dim mos As System.Management.ManagementObjectSearcher
Dim moc As System.Management.ManagementObjectCollection
Dim mo As System.Management.ManagementObject
Dim query As String = "SELECT * FROM Win32_OperatingSystem"
mos = New System.Management.ManagementObjectSearcher(query)
moc = mos.Get()
For Each mo In moc
....
The whole error message:
An unhandled exception of type 'System.Runtime.InteropServices.COMException'
occurred in system.management.dll
Additional information: Catastrophic failure
What is wrong?