フォルダービューを開き、このアプリケーションを起動し、initをクリックすると、すべてのインスタンスが検出されます。オブジェクトのプロパティを再帰的に確認するためにドリルダウンだけです。
これで、プロパティを更新し、実行中のインスタンスでメソッドを呼び出すことができます！
ファイル名：dom_explorer.hta
要件：IE 5.5（IE5.1でテストされていません）
著者：Jean-Luc Antoine
提出：2001年10月31日
更新：2001年11月19日
カテゴリ：HTA
覚えておいてください：ファイル拡張子は *.htaでなければなりません
代码如下：
<html>
<head>
<title> dom explorer </title>
<HTA：アプリケーション
ApplicationName = "dom_explorer"
border = "厚い" bordersyle = "rearn"
キャプション= "yes" contextmenu = "yes"
id = "ohta" alert（ohta.applicationname）;
innerborder = "yes" maximizebutton = "yes" minimizebutton = "yes"
navigable = "no" scroll = "yes" scrollflat = "no"
selection = "yes" showintaskbar = "yes" singleinstance = "no"
sysmenu = "yes" version = "0.5" windowstate = "normal">
<スクリプト言語= vbscript>
オプションは明示的です
薄暗いシャップ
shapp = createObject（ "shell.Application"）
関数SP2（名前、OBJ、RW、OBJPath） 'プロパティ
薄暗いチェーン
Chaine = "<tr> <td>"
isobject（obj）の場合
OBJが何もない場合
hidenull.チェックした場合
SP2 = ""
出口機能
ifを終了します
Chaine = Chaine＆name
elseif vartype（obj）= 0次に
Chaine = Chaine＆name
それ以外
Chaine = Chaine＆ "<a href =" "＃" "onclick = 'vbscript：showprop"＆_
objpath＆ "。" ＆name＆ "、" ""＆objpath＆ "。" ＆ 名前 ＆_
"" 'title =' "＆objpath＆"。 " ＆name＆ "'>"＆name＆ "</a>"
ifを終了します
それ以外
Chaine = Chaine＆name
ifを終了します
Chaine = Chaine＆ "</td> <td>"＆typename（obj）＆ "</td> <td>"＆rw＆ "</td> <td>"
Case Vartype（OBJ）を選択します
ケース0'EMPTY
Chaine = Chaine＆ "<font color = red> uninitialized </font>"
ケース1'null 'if isnull（obj）then
hidenull.チェックした場合
SP2 = ""
出口機能
ifを終了します
Chaine = Chaine＆ "<font color = red>値なし</font>"
ケース9'Object
Chaine = Chaine＆ "<font color = red>表示できない</font>"
ケース他のケース
rw = "read/write" thenの場合
Chaine = Chaine＆ "<Span id =" "＆name＆" "" contentedable = true> <b> "＆_
交換（obj、 "<"、 "<"）＆ "</b> </span> <a href = '＃' onclick = 'vbscript："＆_
objpath＆ "。" ＆name＆ "="
Case Vartype（OBJ）を選択します
'ケース2'vbinteger -cint（）
'ケース3'vblong -clng（）