Namentliche Auflistung WMI aus WMI Klassen

27/08/2009 - 22:25 von Ulli Henrichs | Report spam
Hallo, ich habe folgenden Source um eine WMi Klasse aufzurufen. Wie bekomme
ich aber eine Namentliche Auflistung?

Also z.B.

Dim options As ConnectionOptions
options = New ConnectionOptions()
options.Username = strDomain & "\" & strUser
options.Password = strPassword
Dim mscope As ManagementScope
mscope = New ManagementScope( _
"\\" & xcomputername & "oot\" + NameSpaceString, options)
mscope.Connect()

Dim query As ObjectQuery
query = New ObjectQuery( _
"Select * from " & xClass)
Dim searcher As ManagementObjectSearcher
searcher = _
New ManagementObjectSearcher(mscope, query)

Dim queryCollection As ManagementObjectCollection
queryCollection = searcher.Get()


Dim m As ManagementObject
For Each m In queryCollection
Next
...

In For Each m .. Bereich würde ich nun gerne eine namentliche Auflistung
aller Columns in der Klasse haben, also z.B. wenn ich hier xClass =
"Win32_LogicalDisk" abgefragt hàtte, dann alle Spaltennamen wie:

Drive_Type
Size

etc.

geht das ?

Gruß

Ulli
 

Lesen sie die antworten

#1 Ulli Henrichs
27/08/2009 - 22:49 | Warnen spam
"Ulli Henrichs" wrote:

Hallo, ich habe folgenden Source um eine WMi Klasse aufzurufen. Wie bekomme
ich aber eine Namentliche Auflistung?

Also z.B.

Dim options As ConnectionOptions
options = New ConnectionOptions()
options.Username = strDomain & "\" & strUser
options.Password = strPassword
Dim mscope As ManagementScope
mscope = New ManagementScope( _
"\\" & xcomputername & "oot\" + NameSpaceString, options)
mscope.Connect()

Dim query As ObjectQuery
query = New ObjectQuery( _
"Select * from " & xClass)
Dim searcher As ManagementObjectSearcher
searcher = _
New ManagementObjectSearcher(mscope, query)

Dim queryCollection As ManagementObjectCollection
queryCollection = searcher.Get()


Dim m As ManagementObject
For Each m In queryCollection
Next
...

In For Each m .. Bereich würde ich nun gerne eine namentliche Auflistung
aller Columns in der Klasse haben, also z.B. wenn ich hier xClass =
"Win32_LogicalDisk" abgefragt hàtte, dann alle Spaltennamen wie:

Drive_Type
Size

etc.

geht das ?

Gruß

Ulli




Habs gerade gefunden:

For Each m In queryCollection
For Each pd In m.Properties
Try
If Not (pd.Value Is Nothing) Then
mStr = mStr & pd.Name & vbTab & ": " &
pd.Value.ToString & vbCrLf
End If
Catch ex As Exception
mStr = mStr & "Error " & vbCrLf
End Try
Next

Ulli

Ähnliche fragen