创建还原点的权限问题,大家帮我看看,谢谢了 ( 积分: 100 )

我在英文的WindowsXP下用管理员权限做了一个创建还原点的程序,系统还原功能已经打开了的,代码如下:

function CreateRestorePoint:boolean;
var
sr: OLEVAriant;
begin
ScriptControl1.Language := 'VBScript';
sr := ScriptControl1.Eval('getobject("winmgmts://./root/default:Systemrestore&quot');
if sr.CreateRestorePoint('Advanced WindowsCare Restore Point', 0, 100) = 0 then
Result:=True else Result:=False;
end;

结果报告错误 "Access Denied". 没有权限,请问是什么原因啊? 中文XP SP2下是正确的.