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

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

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

my $test=$res->CreateRestorePoint("New Restore Point", 0, 100);
print "$test";