🚀 go-pugleaf

Witam grupe

mam pytanko, czy istnieje mozliwosc, zeby w tej funcji odwolac sie do 
wlasnosci obiektu, ktora jest podana jako zmienna?

Innymi slowy, w takim kodzie:

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_ComputerSystem",,48)
For Each objItem in colItems
    Wscript.Echo "Manufacturer: " & objItem.Manufacturer
    Wscript.Echo "Model: " & objItem.Model
    Wscript.Echo "Name: " & objItem.Name
Next

zamiast np czegos takiego:
    Wscript.Echo "Manufacturer: " & objItem.Manufacturer

mogloby byc odwolanie  do zmiennej... cos jak w klasach:
    Wscript.Echo "Manufacturer: " & objItem.Item("Manufacturer")


Problem w tym, ze jesli mam zmienna
strWlasnosc = "Manufacturer"

to nie umiem jej wywolac w objItem...
czyli nie dziala cos takiego:
strWlasnosc = "Manufacturer"
    Wscript.Echo "Manufacturer: " & objItem.Item(strWlasnosc)


Jest jakis sposob, zeby to zrobic? Jakos ponumerowac? W sytuacji, kiedy 
liczba wlasciwosci zalezy od wywolywanego obiektu?

Pozdrawiam
Michal