Vbscript Typename to get type of object

Set Otable=Browser("Sample Page All Page").Page("Sample Page All Page").WebTable("EmpiId")
Set olink=otable.ChildItem(2,7,"link",0)
msgbox typename(olink) 'textlink'

set objdlgbutton=Browser("Sample Page All Page_2").Dialog("Message from webpage").WinButton("OK")
msgbox typename(objdlgbutton) 'stdbutton

set webbtn=Browser("Sample Page All Page_2").Page("Sample Page All Page").WebButton("Submit")
msgbox typename(webbtn) 'htmlbutton

Set oradio=otable.ChildItem(2,7,"link",0)
msgbox typename(oradio) 'textlink'

set oweblist=Browser("Sample Page All Page_2").Page("Sample Page All Page").WebList("Country")
msgbox typename(oweblist) 'htmllist'


set objradio=Browser("Sample Page All Page_2").Page("Sample Page All Page").WebRadioGroup("gender")
msgbox typename(objradio) 'htmradiogroup'


set owebedit=Browser("Sample Page All Page_2").Page("Sample Page All Page").WebEdit("browser")
msgbox typename(owebedit) 'htmledit'