Re: Windows OLE in Perl, System Restore

[BrowserUk]

the return from CreateRestorePoint is undef.

What do you get if you print $^E? eg.:

use strict;
use Win32::OLE('in');

use constant wbemFlagReturnImmediately => 0x10;
use constant wbemFlagForwardOnly => 0x20;

my $res = Win32::OLE->GetObject("winmgmts:\\\\.\\root\\default:Systemr
+estore") or warn "WMI connection failed.\n";

my $test = $res->CreateRestorePoint("New Restore Point", 0, 100) 
    or die "CRP failed with: $^E";

 print "$test";