Create System Restore Point by VB Script

This can be achieved via a small vbs script:

rp=InputBox("Enter Description for this manual Restore Point")
GetObject("winmgmts:\\.\root\default:Systemrestore").CreateRestorePoint rp, 0, 100
MsgBox("Created Manual Restore Point:"  & chr(13) & chr(13) &rp )