Не отрабатывает Eval()

Global $lic = ObjCreate("NN.DD")
MsgBox(0, 'test',$lic.FullName)
$sTmp = "$lic.FullName"
MsgBox(0, 'test',Eval($sTmp))

$sTmp = "lic.FullName"

Global $lic = ObjCreate("NN.DD")
MsgBox(0, 'test',$lic.FullName)
$sTmp = $lic.FullName
$sTmp2 = 'sTmp'
MsgBox(0, 'test',Eval($sTmp2))

#include <Array.au3>

$oObj = ObjCreate("Scripting.FileSystemObject")

$aObj_Members = _ObjGetMemebers($oObj, 1)

If IsArray($aObj_Members) Then
	_ArrayDisplay($aObj_Members)

	;16 should be .GetTempName
	ConsoleWrite(Execute("$oObj." & $aObj_Members[16]) & @CRLF)
EndIf

Func _ObjGetMemebers($oObj, $iRetType=0)
	If Not IsObj($oObj) Then Return SetError(1, 0, 0)
	
	Local $oTLA = ObjCreate("TLI.TLIApplication")
	
	Local $objInterface = $oTLA.InterfaceInfoFromObject($oObj)
	Local $oMembers = $objInterface.Members
	Local $sRet_Members = ""
	
	For $iMember In $oMembers
		$sRet_Members &= $iMember.Name & @CRLF
	Next
	
	$sRet_Members = StringStripWS($sRet_Members, 3)
	
	If $iRetType = 1 Then Return StringSplit($sRet_Members, @CRLF, 1)
	Return $sRet_Members
EndFunc

; цикл по полям из ини-файла
For $i = 1 To $sValue[0][0]
; цикл по названиям полей
For $iCount1 = 0 To 27
	If $sValue[$i][0] = $aFields [$iCount1][0] Then 
		ControlSetText($sSec[1],'',$sValue[$i][1],$aLicFields [$iCount1])
	EndIf
Next
Next

; цикл по полям из ини-файла
For $i = 1 To $sValue[0][0]
 $sTmp = "$lic." & $sValue[$i][0]
 ControlSetText($sSec[1],'',$sValue[$i][1],Execute($sTmp))
Next