C# と VB.NET の質問掲示板

WSHのVBScriptでDOM解析をしているのですが、WindowsXPのIE8環境では動作した部分が
Windows7のIE9の環境では、If obj.hasChildNodes Then のところで下記のエラーが発生します。

エラー　型が一致しません。[string:"function hasChildNo"]

WindowsOSの違いで何か影響しているのでしょうか？

ミニマムコードを作成してみました。
Dim objIE
Dim obj

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "http://endic.naver.jp/srch/all/N/" & "VEGETABLE" & "?sm=etp_enh"

Do Until objIE.Busy = False
   WScript.sleep(250)
Loop

For Each obj In objIE.Document.getElementById("zoom_content").ChildNodes
   If obj.hasChildNodes Then
	MsgBox obj.parentNode.nodeName
   End If
Next

Set objIE = Nothing

よろしくお願いします。

■No61401 (逆運の覇者 さん) に返信
> ブラウザのビジー状態を判定するための，より良い方法
> （WSHでIEを自動操作する際，COMのアプリケーションイベントを利用する）
> http://d.hatena.ne.jp/language_and_engineering/20100410/p1

回答ありがとうございます。
For文の前にHTML情報を表示させてみると正常に取得できているので、その部分は問題ないかと思っております。

質問を投稿してから別アプローチで調べてみたところ、WScript.CreateObject("htmlfile")を使えることが分かりました。
これを使うと　hasChildNodes のエラーなく値を取得できたので目的は達成しました。

ただ、この現象自体はWindowsOSの不具合っぽい気がしますね。


Dim objIE
Dim obj
Dim objDOM

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "http://endic.naver.jp/srch/all/N/" & "VEGETABLE" & "?sm=etp_enh"
 
Do Until objIE.Busy = False
   WScript.sleep(250)
Loop

Set objDOM = WScript.CreateObject("htmlfile")
objDOM.write(objIE.Document.body.innerHTML)
Set objIE = Nothing

For Each obj In objDOM.getElementById("zoom_content").ChildNodes
   If obj.hasChildNodes Then
       MsgBox obj.parentNode.nodeName
   End If
Next