Select Code to Download

Select or download this

Win32::OLE->Option(Warn => 3);
is equivalent to
Win32::OLE->Option(Warn => \&Carp::croak);
...
# ... your normal OLE code here ...
CheckError:
# ... your error handling code here ...

Select or download this

F:\_wo\pl_test>perl 696125.pl
Win32::OLE(0.1701) error 0x80041002
    after character 0 in
"winmgmts:{impersonationlevel=impersonate,(Backup,Restore)}\\localhost
+\root\wmi:BcdStore" at 696125.pl line 14
        eval {...} called at 696125.pl line 14
Can't call method "OpenStore" on an undefined value at 696125.pl line 
+16.