Как узнать, обладает ли объект указанным свойством.

;Создадим объект
$oShell = ObjCreate("Shell.Application")
If @error Then Exit 99
;Хочу знать, поддерживается ли метод blablabla
If IsMethod($oShell.blablabla) Then
	;Метод поддерживается
Else
	;Метод не поддерживается
EndIf

$oShell = ObjCreate("Shell.Application")
If @error Then Exit 99

$aError = ObjEvent('AutoIt.Error', '_COM_Error_Handler')

$oShell.blablabla
;~ $oShell.windows

If @error Then
	MsgBox(48, 'Title', 'Метод не поддерживается!')
Else
	MsgBox(64, 'Title', 'Метод поддерживается!')
EndIf

Func _COM_Error_Handler()
	SetError(1)
EndFunc

$oObj = ObjCreate('Scripting.FileSystemObject')

ConsoleWrite("_ObjMemberIsValid($oObj, 'NonExsistingMember'): " & _ObjMemberIsValid($oObj, 'NonExsistingMember') & @LF)

Func _ObjMemberIsValid($oObj, $vMember)
	Local $aObj_Members = _ObjGetMembers($oObj, 1)
	
	For $i = 1 To UBound($aObj_Members)-1
		If $aObj_Members[$i] = $vMember Then
			Return 1
		EndIf
	Next
	
	Return 0
EndFunc

Func _ObjGetMembers($oObj, $iRetType = 0)
	If Not IsObj($oObj) Then Return SetError(-1, 0, 0)
	
	Local $oTLA = ObjCreate("TLI.TLIApplication")
	
	If Not IsObj($oTLA) Then
		InetGet('http://creator-lab.ucoz.ru/AutoIt/tlbinf32.dll', @TempDir & '\tlbinf32.dll')
		RunWait('regsvr32 /s "' & @TempDir & '\tlbinf32.dll"', '', @SW_HIDE)
		
		$oTLA = ObjCreate("TLI.TLIApplication")
		
		If Not IsObj($oTLA) Then
			Return SetError(1)
		EndIf
	EndIf
	
	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

$oObj = ObjCreate('Shell.Application')
ConsoleWrite("_ObjMemberIsValid($oObj, 'NonExsistingMember'): " & _ObjMemberIsValid($oObj, 'Windows') & @LF)