Converting VB Script Code to VB.NET 2005

[Guest]

Thank you in advance for any and all assistance. I'm building an application
and would like to be able to call WMI informatin in the code, but all I'm
finding is VBscript code like this:

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from
Win32_SoftwareElement",,48)
For Each objItem in colItems
Wscript.Echo "Attributes: " & objItem.Attributes
Wscript.Echo "BuildNumber: " & objItem.BuildNumber
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "CodeSet: " & objItem.CodeSet
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "IdentificationCode: " & objItem.IdentificationCode
Wscript.Echo "InstallDate: " & objItem.InstallDate
Wscript.Echo "InstallState: " & objItem.InstallState
Wscript.Echo "LanguageEdition: " & objItem.LanguageEdition
Wscript.Echo "Manufacturer: " & objItem.Manufacturer
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "OtherTargetOS: " & objItem.OtherTargetOS
Wscript.Echo "Path: " & objItem.Path
Wscript.Echo "SerialNumber: " & objItem.SerialNumber
Wscript.Echo "SoftwareElementID: " & objItem.SoftwareElementID
Wscript.Echo "SoftwareElementState: " & objItem.SoftwareElementState
Wscript.Echo "Status: " & objItem.Status
Wscript.Echo "TargetOperatingSystem: " & objItem.TargetOperatingSystem
Wscript.Echo "Version: " & objItem.Version
Next

I was wondering if someone could tell me how to convert this type of code
for a listview box or treeviewbox?

Respectfully,


Michael Bragg, President
eSolTec, Inc.
a 501(c)(3) organization
http://www.esoltec.org

 

[vbnetdev]

Imports System
Imports System.Management
Imports System.Windows.Forms

Namespace WMISample

Public Class MyWMIQuery

Public Overloads Shared Function Main() As Integer

Try
Dim searcher As New ManagementObjectSearcher( _
"root\CIMV2", _
"SELECT * FROM Win32_SoftwareElement")

For Each queryObj As ManagementObject in searcher.Get()

ComboBox1.Items.Add("BuildNumber: {0}",
queryObj("BuildNumber"))
'other properties to add go here
Next
Catch err As ManagementException
MessageBox.Show("An error occurred while querying for WMI
data: " & err.Message)
End Try
End Function
End Class
End Namespace

 

[BarrySnow]

Also, check the following resource. It goes into detail in how to
access WMI from managed code.

http://www.developerfusion.co.uk/show/5450/1/