ShellWindowsコレクションにIEが含まれないのですがなおすには？

ヤマさん＠文系 2006-01-02 03:04:11 No: 129339

３台あるPCの１台で発生したのですが、
ShellWindowsコレクションからIEのURLアドレスなどを参照する
プログラム部分が430エラーを返すようになりました。

Dim w as new Shdocvwctl.shellwindows'1

For each o in w
debug.print o.locationurl
Next

みたいなプログラムです

1をレイトバインドに書き換えて
set w=creatobject("SHell.Application").windows()
にしてみたらエラーはきえたのですが
コレクションの中に起動中のIEが含まれていないようです。

microsoftの技術文書になかったのですが、
このエラー自体原因は何かわかりますか？

VB6（SP6) XP,SP2 IE6SP1

X_File 2006-01-02 08:47:43 No: 129340

Dim w As Object, o As Object
Set w = CreateObject("SHell.Application").windows()
For Each o In w
List1.AddItem o.LocationURL
Next
Set o = Nothing
Set w = Nothing

ん？上記みたいな感じでとれませんか？
On Error Resume Next
とか、使ってませんか？

まるち 2006-01-02 12:20:26 No: 129341

http://madia.world.coocan.jp/cgi-bin/VBBBS/wwwlng.cgi?print+200601/06010001.txt

元日早々マルチポスト。