set SRP = getobject("winmgmts:\\.\root\default:Systemrestore") 
CSRP = SRP.createrestorepoint ("Mr GRiM's Glossy Blue Icons Restore Point.", 0, 100) 
If CSRP <> 0 then 
    Msgbox "Error " & CSRP & ": Unable to create System Restore point" 
End if