🚀 go-pugleaf

Użytkownik "Michal AKA Miki" <jakistammichal@z.onetu.pl> napisał w 
wiadomości news:gvcoif$rke$1@inews.gazeta.pl...
> 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")
>

Spróbuj tak:

strWlasnosc = "Manufacturer"
Wscript.Echo "Manufacturer: " & objItem.Properties_(strWlasnosc)

Tajan