File: launch_ie.pl

package info (click to toggle)
aft 2%3A5.097-1
  • links: PTS
  • area: main
  • in suites: squeeze
  • size: 548 kB
  • ctags: 89
  • sloc: perl: 1,253; sh: 439; makefile: 105
file content (8 lines) | stat: -rwxr-xr-x 267 bytes parent folder | download | duplicates (9)
1
2
3
4
5
6
7
8
use Win32;
use Win32::OLE;
use strict;
$Win32::OLE::Warn = 0;
my $IEbrowser = Win32::OLE->GetActiveObject('InternetExplorer.Application') 
    || Win32::OLE->new('InternetExplorer.Application'); 
$IEbrowser->{visible} = 1;
$IEbrowser->navigate("file:///".$ARGV[0]);