Hi,
in SCCM habe ich diverse Queries erstellt, deren Resultat mittels ASP webbasiert zur Verfügung gestellt werden sollen.
Fragt sich jetzt natürlich jeder, warum nicht Reports verwenden - ich bin kein sonderlich großer Freund davon...
Wie auch immer, folgende Idee funktioniert schon fast wie ich es mir vorstelle.
Zunächst lese ich die SQL Syntax einer bestimmten SCCM Query:
Const strUser = "..."
Const Passwd = "..."
Const SMSServer = "SCCM_Server"
Const SMSSiteCode = "xyz"
Const Domain = "domain"
set lLocator = CreateObject("WbemScripting.SWbemLocator")
set gService = lLocator.ConnectServer("bb1s0010","Root\SMS\Site_" & SMSSiteCode,strUser,Passwd,"MS_409","NTLMDomain:" & Domain)
query = "select * from SMS_Query where name = 'iTunes'"
Set objWMIService = gService.ExecQuery(query)
For Each qry In objWMIService
Query = qry.Expression
Next
Das Resultat, welches in der Variablen "Query" gespeichert ist:
select SMS_G_System_SYSTEM.Name, SMS_R_System.LastLogonUserDomain, SMS_R_System.LastLogonUserName, SMS_G_System_ADD_REMOVE_PROGRAMS.DisplayName, SMS_G_System_ADD_REMOVE_PROGRAMS.Version from SMS_R_System inner join SMS_G_System_ADD_REMOVE_PROGRAMS on SMS_G_System_ADD_REMOVE_PROGRAMS.ResourceID = SMS_R_System.ResourceId inner join SMS_G_System_SYSTEM on SMS_G_System_SYSTEM.ResourceID = SMS_R_System.ResourceId where SMS_G_System_ADD_REMOVE_PROGRAMS.DisplayName like "%iTunes%"
Diese Query nun wiederum ausgeführt:
Set objWMIService = gService.ExecQuery(Query)
For Each expr In objWMIService
s1 = expr.SMS_G_System_SYSTEM.Name
s2 = expr.SMS_R_System.LastLogonUserName
response.write s1 & " - " & s2 & "<br>"
Next
Alles prima bis hier hin.
Jedoch können die Spaltenüberschriften der Queries variieren.
Somit bin ich gezwungen genau zu wissen, wie diese benannt sind (hier fett dargestellt):
expr.SMS_G_System_SYSTEM.Name
Gibt es keine Möglichkeit, diese Spalten erkennen zu lassen ?
Zum Einen ist dies so nicht möglich:
expr.Fields("SMS_G_System_SYSTEM.Name")
Ebenso die Feldnamen ermitteln ist so nicht möglich:
Set objWMIService = gService.ExecQuery(query)
for each objWMIService.fields
next
Hat jemand eine Idee ?
