Help for this page

Select Code to Download


  1. or download this
    use Win32::OLE;
    
    ...
    
    my $dos = Win32::OLE->new('Cmd.application') or die "oops\n";
    $dos->{visible} = 1;
    
  2. or download this
    Win32::OLE(0.1601) error 0x800401f3: "Invalid clas string" at C:\scrip
    +ts\dos.pl line 14
            eval {...} called at C:\dos.pl line 14
    oops