Converting VB Script Code to VB.NET 2005

[eSolTec, Inc. 501(c)(3)]

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("winm gmts:\\" & strComputer & "\root\cimv 2")
Set colItems = objWMIService.E xecQuery("Selec t * from
Win32_SoftwareE lement",,48)
For Each objItem in colItems
Wscript.Echo "Attributes : " & objItem.Attribu tes
Wscript.Echo "BuildNumbe r: " & objItem.BuildNu mber
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "CodeSet: " & objItem.CodeSet
Wscript.Echo "Descriptio n: " & objItem.Descrip tion
Wscript.Echo "Identification Code: " & objItem.Identif icationCode
Wscript.Echo "InstallDat e: " & objItem.Install Date
Wscript.Echo "InstallSta te: " & objItem.Install State
Wscript.Echo "LanguageEditio n: " & objItem.Languag eEdition
Wscript.Echo "Manufactur er: " & objItem.Manufac turer
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "OtherTarge tOS: " & objItem.OtherTa rgetOS
Wscript.Echo "Path: " & objItem.Path
Wscript.Echo "SerialNumb er: " & objItem.SerialN umber
Wscript.Echo "SoftwareElemen tID: " & objItem.Softwar eElementID
Wscript.Echo "SoftwareElemen tState: " & objItem.Softwar eElementState
Wscript.Echo "Status: " & objItem.Status
Wscript.Echo "TargetOperatin gSystem: " & objItem.TargetO peratingSystem
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]

Re: Converting VB Script Code to VB.NET 2005

Imports System
Imports System.Manageme nt
Imports System.Windows. Forms

Namespace WMISample

Public Class MyWMIQuery

Public Overloads Shared Function Main() As Integer

Try
Dim searcher As New ManagementObjec tSearcher( _
"root\CIMV2 ", _
"SELECT * FROM Win32_SoftwareE lement")

For Each queryObj As ManagementObjec t in searcher.Get()

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

--
Get a powerful web, database, application, and email hosting with KJM
Solutions

http://www.kjmsolutions.com

"eSolTec, Inc. 501(c)(3)" <eSolTecInc501c 3@discussions.m icrosoft.com> wrote
in message news:62F4FCB2-2EBC-40AE-8E48-CCE08BFC3BDC@mi crosoft.com...[color=blue]
> 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("winm gmts:\\" & strComputer & "\root\cimv 2")
> Set colItems = objWMIService.E xecQuery("Selec t * from
> Win32_SoftwareE lement",,48)
> For Each objItem in colItems
> Wscript.Echo "Attributes : " & objItem.Attribu tes
> Wscript.Echo "BuildNumbe r: " & objItem.BuildNu mber
> Wscript.Echo "Caption: " & objItem.Caption
> Wscript.Echo "CodeSet: " & objItem.CodeSet
> Wscript.Echo "Descriptio n: " & objItem.Descrip tion
> Wscript.Echo "Identification Code: " & objItem.Identif icationCode
> Wscript.Echo "InstallDat e: " & objItem.Install Date
> Wscript.Echo "InstallSta te: " & objItem.Install State
> Wscript.Echo "LanguageEditio n: " & objItem.Languag eEdition
> Wscript.Echo "Manufactur er: " & objItem.Manufac turer
> Wscript.Echo "Name: " & objItem.Name
> Wscript.Echo "OtherTarge tOS: " & objItem.OtherTa rgetOS
> Wscript.Echo "Path: " & objItem.Path
> Wscript.Echo "SerialNumb er: " & objItem.SerialN umber
> Wscript.Echo "SoftwareElemen tID: " & objItem.Softwar eElementID
> Wscript.Echo "SoftwareElemen tState: " & objItem.Softwar eElementState
> Wscript.Echo "Status: " & objItem.Status
> Wscript.Echo "TargetOperatin gSystem: " & objItem.TargetO peratingSystem
> 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
>[/color]

[BarrySnow@Charter.net]

Re: Converting VB Script Code to VB.NET 2005

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/