Windows OLE in Perl, System Restore

[jupe]

Hello wise monks, I am seeking guidance on a problem. I am attempting to create a System Restore point on a Windows 7 machine, and I cannot tell if the code I am using is as faulty as my intellect or if it is the machine that is the problem. Code posted below

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);
print "$test";

Update: no actual updates, still just returning undef

I have a sneaking suspicion that even if the snippet above is perfect I still have environmental issues, however before I go and build another machine to test are there any obvious errors? The connection to WMI succeeds, but the return from CreateRestorePoint is undef. The documentation I am working from is located here: http://support.microsoft.com/kb/295299

Thank you!

[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";

[Anonymous Monk]

If you're not going to check for errors yourself, let Win32::OLE do the error checking, see getting automatic error checking with Win32::OLE and Moose, use  Win32::OLE->Option(Warn => \&Carp::croak);