Converting VB Script Code to VB.NET 2005



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
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

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


Michael Bragg, President
eSolTec, Inc.
a 501(c)(3) organization


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

Namespace WMISample

Public Class MyWMIQuery

Public Overloads Shared Function Main() As Integer

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

For Each queryObj As ManagementObject in searcher.Get()

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

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads