Perl で Internet Explorer を 制御

gistfile1.pl

use strict;
use warnings;
use Win32::OLE;

my $ie = Win32::OLE->new('InternetExplorer.Application');

$ie->{Visible}      = 1;
$ie->{ToolBar}      = 1;
$ie->{MenuBar}      = 1;
$ie->{AddressBar}   = 1;
$ie->{StatusBar}    = 1;

#ログオン画面
$ie->Navigate('http://192.168.1.1/zzzz.asp');
while($ie->Busy() || $ie->ReadyState() != 4)
{
    sleep(1);
}

#ユーザＩＤ
$ie->Document->getElementById("txtUserID")->{Value} = "xxxxx";
#パスワード
$ie->Document->getElementById("txtPassWD")->{Value} = "yyyyy";
#ログオン
$ie->Document->forms(0)->submit();