How do i use a variable as parameter name for object

[rajeshontheweb]

here is my situation

i have an object (actually wmi object)

Func TestFunction($Parameter)
    Dim $wbemFlagReturnImmediately = 0x10
    Dim $wbemFlagForwardOnly = 0x20
    Dim $colItems = ""
    Dim $strComputer = "localhost"
    Dim $retVal = 0

    $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
    $colItems = $objWMIService.ExecQuery("SELECT * FROM win32_computersystemproduct", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

    If IsObj($colItems) Then

        For $objItem In $colItems
            $retVal = "Caption: " & $objItem.UUID ; <<<<<<<<<<<<<<<<<<<<<<<<<<------------------
        Next

    EndIf

    Return $retVal

EndFunc   ;==>TestFunction


ConsoleWrite(@CRLF & TestFunction("UUID") & @CRLF)

Now, In place of calling TestFunction("UUID") if i say "Name" it should execute the line as $objItem.Name

i.e.,

TestFunction("UUID") <--> $retVal = "Caption: " & $objItem.UUID
TestFunction("Name") <--> $retVal = "Caption: " & $objItem.Name

Edited December 20, 2009 by rajeshontheweb

[Authenticity]

ConsoleWrite(TestFunction("UUID") & @CRLF)
ConsoleWrite(TestFunction("Name") & @CRLF)

Func TestFunction($Parameter)
    Dim $wbemFlagReturnImmediately = 0x10
    Dim $wbemFlagForwardOnly = 0x20
    Dim $colItems = ""
    Dim $strComputer = "localhost"
    Dim $retVal = 0

    $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
    $colItems = $objWMIService.ExecQuery("SELECT * FROM win32_computersystemproduct", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

    If IsObj($colItems) Then

        For $objItem In $colItems
            $retVal = "Caption: " & Execute("$objItem." & $Parameter) ; <<<<<<<<<<<<<<<<<<<<<<<<<<------------------
        Next

    EndIf

    Return $retVal

EndFunc   ;==>TestFunction

[taurus905]

ConsoleWrite(TestFunction("UUID") & @CRLF)
ConsoleWrite(TestFunction("Name") & @CRLF)

Func TestFunction($Parameter)
    Dim $wbemFlagReturnImmediately = 0x10
    Dim $wbemFlagForwardOnly = 0x20
    Dim $colItems = ""
    Dim $strComputer = "localhost"
    Dim $retVal = 0

    $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
    $colItems = $objWMIService.ExecQuery("SELECT * FROM win32_computersystemproduct", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

    If IsObj($colItems) Then

        For $objItem In $colItems
            $retVal = "Caption: " & Execute("$objItem." & $Parameter) ; <<<<<<<<<<<<<<<<<<<<<<<<<<------------------
        Next

    EndIf

    Return $retVal

EndFunc   ;==>TestFunction

Hello Authenticity,

That is a nice solution and one I have been using. But I was wondering if there is an alternative to using the "Execute" function, as in the following line:

$retVal = "Caption: " & Execute("$objItem." & $Parameter) ;

Many thanks to anyone who can enlighten me.

taurus905