Erreur exécution script vbs

Bonjour,

Je suis sous Vista.
J'ai un script en VBS qui devrait me permettre de créer un point de restauration. Je voudrais le placer dans le planificateur de tâches pour en créer régulièrement, puisque windows ne me le fait pas (ou plus) régulièrement.

If WScript.Arguments.Count = 0 Then
 Set objShell = CreateObject("Shell.Application")
 objShell.ShellExecute "wscript.exe", Chr(34) & WScript.ScriptFullName & Chr(34) & "Run", , "runas", 1
Else
 GetObject(" winmgmts:\.rootdefault:Systemrestore ").CreateRestorePoint
 InputBox(" Point de restauration manuel par script "), 0, 100
 Msgbox(" Point de restauration créé! ")
End If

Normalement, ce script devrait fonctionner correctement, dixit le forum VB/VBA https://forums.commentcamarche.net/forum/affich-34592755-erreur-de-compilation
Lorsque j’exécute ce script, j’ai le message : Il n'y a pas de moteur de script pour l'extension de fichier ".vbsRun"
Je suis déjà aller voir ce lien https://answers.microsoft.com/fr-fr/windows/forum/windows_7-windows_programs/impossible-de-trouver-le-moteur-de-script-vbscript/a3f24a66-6246-4341-ad62-b5d0a81ba4bf qui propose de vérifier certaines clés de la base de registre mais tout est ok pour celles-ci.

Auriez-vous une solution à ma proposer ?