Vista - 0x80041013 Provider Load Failure on restore point script

I'm trying to create a restore point in 32 bit Vista Home Premium using a
VBScript. I can create a Restore Point the ordinary way, but using a script
generates 0x80041013 Provider Load Failure.

Can anyone tell me the dependencies of wscript? afaik I have the necessary services running. wbem folder is in the path environment variable.

Alternatively is there a programmatic way to create a restore point that doesn't rely on wscript? I'm just looking for something to create a restore point without having to go through the GUI.

I know this is a Vista forum but I am in the process of resolving as similar issue with XP Pro SP2.

If I find anything I will try to remember to post it here.

Good luck to us both.

Here is my script

option explicit
Dim WSHShell, SRP, CSRP, description, result
Set WSHShell = CreateObject("WScript.Shell")
description="Service Restore Point"
set SRP = getobject("winmgmts:\\.\root\default:Systemrestore")
CSRP = SRP.createrestorepoint (description, 0, 100)
result= MsgBox("Restore Point Created Successfully!")