Following code works for me on winxp, but only a half. I can get access to the "document" dhtml object, but I can not access to the "window". Common way $win->{Document}->{parentWindow} not works, it is always undef for me. (may be because of some msie security restrictions?)
use strict;
use Win32::OLE;
my $sh = Win32::OLE->new('Shell.Application');
print "Count is $sh->{Windows}->{Count}\n";
for (my $i = 0; $i < $sh->{Windows}->{Count}; $i++) {
my $win = $sh->{Windows}->Item($i);
print "Window's #$i document url is '$win->{Document}->{url}'\n";
}
I think, this is sooner ms then perl issue.