Option Strict On and InvokeMember and WMI

[Howard Kaikow]

I am trying to retrive some WMI properties using Option Strict On.
This requires the use of InvokeMember.

I know that there are alternative ways to get the values, but I want to
learn how to use WMI with InvokeMember and Option Strict On.

I'm getting an "Unknown Name" error in the following statement in the code
below.

objProp = typeObjProps.In vokeMember("Ite m", _
BindingFlags.De fault Or BindingFlags.Ge tProperty, Nothing, _
objProps, New Object() {propIndices(i) })

I expect that I am using the wrong object type somewhere or I need different
Binding flags.

Suggestions?

The code runs in the click event for a Button and uses a ListBox1 for
output.

Option Strict On
Imports WbemScripting
Imports System.Reflecti on
Public Class Form1
Inherits System.Windows. Forms.Form
Enum props
ComponentId
LocalServer32
ProgId
VersionIndepend entProgId
End Enum
Private Sub btnRunMe_Click( ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles btnRunMe.Click
Const high As Integer = props.VersionIn dependentProgId
Const strComputer As String = "." ' "." for local computer
Dim i As Integer
Dim objProp As Object
Dim objProps As Object
Dim propIndices(hig h) As String
Dim propValue(high) As String
Dim typeObjProp As Type
Dim typeObjProps As Type
Dim wmiObjectSet As SWbemObjectSet
Dim wmiServices As SWbemServices
propIndices(pro ps.ComponentId) = "ComponentI d"
propIndices(pro ps.LocalServer3 2) = "LocalServe r32"
propIndices(pro ps.ProgId) = "ProgId"
propIndices(pro ps.VersionIndep endentProgId) = "VersionIndepen dentProgId"
wmiServices = DirectCast(GetO bject("winmgmts :" _
& "{impersonation Level=impersona te}!\\" & strComputer _
& "\root\cimv 2"), SWbemServices)
wmiObjectSet = wmiServices.Exe cQuery _
("Select * from Win32_ClassicCO MClassSetting WHERE " _
& "VersionIndepen dentProgId='Moz illa.Browser'" _
& "Or VersionIndepend entProgId='Inte rnetExplorer.Ap plication'" _
& "Or VersionIndepend entProgId='Exce l.Application'" _
& "Or VersionIndepend entProgId='Word .Application'")
' Note: The following runs slowly. Give it a minute or so.
''''''''''''''' ''''''''''''''' ''''''''''''''' ''''''''''''''' ''''''''''''''' '
''''''''''
' Following is not correct
For Each objProps In wmiObjectSet
typeObjProps = objProps.GetTyp e()
For i = 0 To propIndices.Len gth - 1
Try
objProp = typeObjProps.In vokeMember("Ite m", _
BindingFlags.De fault Or BindingFlags.Ge tProperty, Nothing, _
objProps, New Object() {propIndices(i) })
If objProp Is Nothing Then
propValue(i) = ""
Else
typeObjProp = objProp.GetType ()
propValue(i) = typeObjProp.Inv okeMember("Valu e", _
BindingFlags.De fault Or BindingFlags.Ge tProperty, Nothing, _
objProp, New Object() {}).ToString()
End If
Catch ex As Exception
propValue(i) = ""
'MessageBox.Sho w(ex.Message, propIndices(i))
End Try
Next i
With ListBox1
With .Items
.Add("ProgId = " & propValue(props .ProgId))
.. Add("VersionInd ependentProgId = " &
propValue(props .VersionIndepen dentProgId))
.Add("Component Id = " & propValue(props .ComponentId))
.Add("LocalServ er32 = " & propValue(props .LocalServer32) )
End With
.Update()
End With
Next objProps

objProp = Nothing
objProps = Nothing
typeObjProp = Nothing
typeObjProps = Nothing
wmiObjectSet = Nothing
wmiServices = Nothing
GC.Collect()
GC.WaitForPendi ngFinalizers()
GC.Collect()
GC.WaitForPendi ngFinalizers()
End Sub
End Class

[Larry Lard]

Howard Kaikow wrote:

I am trying to retrive some WMI properties using Option Strict On.
This requires the use of InvokeMember.

I know that there are alternative ways to get the values, but I want to learn how to use WMI with InvokeMember and Option Strict On.

I'm getting an "Unknown Name" error in the following statement in the code below.

objProp = typeObjProps.In vokeMember("Ite m", _
BindingFlags.De fault Or BindingFlags.Ge tProperty, Nothing, _
objProps, New Object() {propIndices(i) })

I expect that I am using the wrong object type somewhere or I need different Binding flags.

Suggestions?
I would love to be able to say I had solved all your problems but I ran
into problems of my own.

First off: The problem in your code is that you have missed out a level
of the object hierarchy: what you call objProps is not a PropertySet,
but just a SWbemObject, so you would need to obtain it's Properties_
property (which IS a PropertySet) and then interrogate that.

However, I tried that, and I just COULD NOT get InvokeMember("I tem"...)
to work on a PropertySet object. InvokeMember("C ount"...) worked, so
the object itself was fine - it's just that somewhere in the
combination of Interop, Reflection, the optional parameter (maybe), and
the indexed property, something goes wrong.

HOWEVER

While I applaud your efforts to understand and get to grips with
InvokeMember, I must take issue with this:
I am trying to retrive some WMI properties using Option Strict On.
This requires the use of InvokeMember.

I know that there are alternative ways to get the values, but I want to learn how to use WMI with InvokeMember and Option Strict On.

It looks to me like it's entirely possible to use WMI with Strict On.
This code snippet does what yours wants to do, with no InvokeMember and
all strongly typed:

Private Sub btnRunMe_Click( ByVal sender As System.Object, ByVal e
As System.EventArg s) Handles btnRunMe.Click
Const high As Integer = props.VersionIn dependentProgId
Const strComputer As String = "." ' "." for local computer
Dim i As Integer

'These are the objects we will use as we dig down the object
hierarchy
Dim wmiServices As SWbemServices
Dim wmiObjectSet As SWbemObjectSet
Dim owmiObject As Object 'a SWbemObject in the above
collection
Dim wmiObject As SWbemObject 'the above, strongly typed
Dim owmiPropertySet As Object 'the SWbemPropertySe t that is
the Properties_ property of the above
Dim wmiPropertySet As SWbemPropertySe t 'the above, strongly
typed
Dim wmiProperty As SWbemProperty 'a SWbemProperty in the
above collection

'the properties we obtain
Dim hshProperties As Hashtable

wmiServices = DirectCast(GetO bject("winmgmts :" _
& "{impersonation Level=impersona te}!\\" & strComputer _
& "\root\cimv 2"), SWbemServices)

wmiObjectSet = wmiServices.Exe cQuery _
("Select * from Win32_ClassicCO MClassSetting WHERE " _
& "VersionIndepen dentProgId='Moz illa.Browser'" _
& "Or
VersionIndepend entProgId='Inte rnetExplorer.Ap plication'" _
& "Or VersionIndepend entProgId='Exce l.Application'" _
& "Or VersionIndepend entProgId='Word .Application'")

'wmiObjectSet is a SWbemObjectSet
For Each owmiObject In wmiObjectSet
hshProperties = New Hashtable

If TypeOf owmiObject Is SWbemObject Then
wmiObject = CType(owmiObjec t, SWbemObject)

'get the properties collection of this SWbemObject
owmiPropertySet = wmiObject.Prope rties_
If TypeOf owmiPropertySet Is SWbemPropertySe t Then
wmiPropertySet = CType(owmiPrope rtySet,
SWbemPropertySe t)

For Each wmiProperty In wmiPropertySet
hshProperties.A dd(wmiProperty. Name,
wmiProperty.Val ue)
Next

'now we have the properties we desire, show in list
box
With ListBox1
With .Items
Dim DesiredProperty As String
For Each DesiredProperty In
System.Enum.Get Names(GetType(p rops))
.Add(DesiredPro perty & " = " &
hshProperties(D esiredProperty) .ToString)
Next
.Add("--")
End With
.Update()
End With
End If
End If
Next

End Sub

--
Larry Lard
Replies to group please

[Howard Kaikow]

Thanx.

I'll take a look at your code.

[Howard Kaikow]

With your code, I now have 3 different ways to use Option Strict On with
WMI, without using InvokeMember.

1. Your method with hashtables.
2. StringReader on the wmiObject.GetOb jectText_
3. GetProperties on each object in the result of the ExecQuery.

It seems that there has to be a way to use InvokeMember, otherwise there'a a
bug in .NET.

[Howard Kaikow]

The following seems to be better alternative.

Private Sub btnRunMe_Click( ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles btnRunMe.Click
Const high As Integer = props.VersionIn dependentProgId
Const strComputer As String = "." ' "." for local computer
Dim i As Integer
Dim propIndices(hig h) As String
Dim propValue(high) As String
Dim wmiObject As SWbemObject
Dim wmiObjectSet As SWbemObjectSet
Dim wmiServices As SWbemServices
propIndices(pro ps.ComponentId) = "ComponentI d"
propIndices(pro ps.LocalServer3 2) = "LocalServe r32"
propIndices(pro ps.ProgId) = "ProgId"
propIndices(pro ps.VersionIndep endentProgId) = "VersionIndepen dentProgId"
wmiServices = DirectCast(GetO bject("winmgmts :" _
& "{impersonation Level=impersona te}!\\" & strComputer _
& "\root\cimv 2"), SWbemServices)
wmiObjectSet = wmiServices.Exe cQuery _
("Select * from Win32_ClassicCO MClassSetting WHERE " _
& "VersionIndepen dentProgId='Moz illa.Browser'" _
& "Or VersionIndepend entProgId='Inte rnetExplorer.Ap plication'" _
& "Or VersionIndepend entProgId='Exce l.Application'" _
& "Or VersionIndepend entProgId='Word .Application'")
For Each wmiObject In wmiObjectSet
With wmiObject
With .Properties_
For i = 0 To high
propValue(i) = .Item(propIndic es(i)).Value.To String()
Next i
End With
With ListBox1
With .Items
..Add("ProgId = " & propValue(props .ProgId))
..Add("VersionI ndependentProgI d = " &
propValue(props .VersionIndepen dentProgId))
..Add("Componen tId = " & propValue(props .ComponentId))
..Add("LocalSer ver32 = " & propValue(props .LocalServer32) )
End With
..Update()
End With
End With
Next wmiObject
wmiObjectSet = Nothing
wmiObject = Nothing
wmiServices = Nothing
End Sub

--
http://www.standards.com/; See Howard Kaikow's web site.

"Howard Kaikow" <ka****@standar ds.com> wrote in message
news:Od******** *****@tk2msftng p13.phx.gbl...

With your code, I now have 3 different ways to use Option Strict On with
WMI, without using InvokeMember.

1. Your method with hashtables.
2. StringReader on the wmiObject.GetOb jectText_
3. GetProperties on each object in the result of the ExecQuery.

It seems that there has to be a way to use InvokeMember, otherwise there'a a bug in .NET.