Converting VB Script Code to VB.NET 2005

1 May 2006 2:43 PM

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

1 May 2006 3:12 PM

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

--
Get a powerful web, database, application, and email hosting with KJM
Solutions
http://www.kjmsolutions.com

Show quoteHide quote

"eSolTec, Inc. 501(c)(3)" <eSolTecInc50***@discussions.microsoft.com> wrote
in message news:62F4FCB2-2EBC-40AE-8E48-CCE08BFC3BDC@microsoft.com...
> 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
>

1 May 2006 3:58 PM

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/