打開文件夾視圖，啟動此應用程序，單擊INIT，它檢測所有實例。只需向下鑽取以遞歸查看對象的特性即可。
您現在可以更新屬性並在運行實例中調用方法！
文件名：dom_explorer.hta
要求：IE 5.5（未在IE5.1上測試）
作者：讓·盧克·安托萬（Jean-Luc Antoine）
提交：2001年10月31日
更新：2001年11月11日
類別：HTA
請記住：文件擴展名必須為 *.hta
代碼如下：
<html>
<頭>
<title> dom Explorer </title>
<hta：應用程序
applicationName =“ dom_explorer”
border =“厚” borderstyle =“正常”
字幕=“是” ContextMenu =“是”
id =“ ohta”警報（ohta.applicationName）;
innerborder =“ yes” maximizebutton =“ yes” minimizebutton =“ yes”
navigable =“ no” scroll =“是” scrollflat =“ no”
選擇=“是” showintaskbar =“ yes” singleInstance =“ no”
sysmenu =“是”版本=“ 0.5” windowState =“ normal”>
<腳本語言= vbscript>
選項顯式
昏暗的shapp
設置shapp = createObject（“ shell.application”）
功能SP2（名稱，OBJ，RW，OBJPATH）'屬性
昏暗的鏈
鏈=“ <tr> <td>”
如果是isobject（obj），則
如果OBJ一無所有
如果hidenull。然後檢查了
sp2 =“”
退出功能
如果結束
鏈條=鏈條和名稱
elseif vartype（obj）= 0
鏈條=鏈條和名稱
別的
chaine =鏈
objpath＆”。 ＆name＆“，”“”＆objpath＆“”。 ＆ 姓名 ＆_
“”“''title ='”＆objpath＆“”。 ＆name＆“''>”＆name＆“ </a>”
如果結束
別的
鏈條=鏈條和名稱
如果結束
chaine = Chaine＆“ </td> <td>”＆typeName（obj）＆“ </td> <td>”＆rw＆“ </td> <td> <td>”
選擇CASE VARTYPE（OBJ）
案例0'emptim
鏈條=鏈條＆“ <font color =紅色>非初始化</font>”
案例1'null'如果Isnull（obj），則
如果hidenull。然後檢查了
sp2 =“”
退出功能
如果結束
鏈條=鏈條＆“ <font color =紅色>無值</font>”
案例9'Object
鏈條=鏈條＆“ <font color =紅色>無法顯示</font>”
其他情況
如果rw =“讀/寫”，則
chaine =鏈條＆“ <span ID =”“”“＆name＆”“”“ contentedialitable = true> <b>”＆_
替換（obj，“ <”，“ <”）
objpath＆”。 ＆名稱＆“ =”
選擇CASE VARTYPE（OBJ）
'case 2'vbinteger -cint（）
'case 3'vblong -clng（）