erreur de compilation Fermé

Question

Bonjour, 

J'ai trouvé un script en VBS qui devrait me créer un point de restauration. Je voudrais le placer dans le planificateur de tâches pour créer régulièrement des points de restauration.

==== 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
====

Mais là, si je l'exécute j'ai le message d'erreur :
Ligne=1, Caract=11, Erreur=Fin d'instruction attendue, Code=800A0401, Source=Erreur de compilartion Microsoft VBScript.

Et comme je n'y connais rien en vbs, merci de m'aider !

jordane45 · Answer

Bonjour,

Pourrais tu reposter ton code en utilisant  la coloration syntaxique (les balises de code (
Explications disponibles ici : https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code  )
car là ... je ne sais pas si tes "==== " font parti du code ou si tu as juste voulu faire une séparation pour nous le montrer ........

t671 · Answer

Merci de me répondre. J'avais effectivement regarder pour poster un code en vbs, mais j'avais pas trouvé.
J'y met donc des balises js en espérant que ça suffise
==== 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 
====

t671 · Answer

Merci jordane45 pour ton aide !

Tout d'abord, quand j'ouvre le "planificateur de tâche", j'ai les messages : l'image de la tâche est endommagée ou a été manipulée.mcupdate 
et 
l'image de la tâche est endommagée ou a été manipulée.Reminders - Thierry

Si je test la tâche ci dessus, soit
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
J'ai le message d'erreur :
Ligne = 3
Caract.=72
Erreur=Erreur de syntaxe
Code=800A03EA
Source=Errer de compilation Microsoft VBScript

t671 · Answer

Pour ce qui est des erreurs au lancement du planificateur de tâches, en utilisant l'utilitaire pour réparer les tâches planifiées, je n'ai plus de message !
Peut-être que grâce à ça, la restauration se refera automatiquement ???!!!

Pour ce qui est de l'erreur dans mon code, je ne comprends pas ce que je dois faire ............. !?
Par acquis de conscience, je enregistré tes 4 lignes ci-dessus au format vbs puis exécuté à l'aide du planificateur de tâches.
J'ai l'erreur :
Ligne = 1
Caract. = 20
Erreur = Fin d'instruction attendue
Code = 800A0401
Source = Erreur de compilation Microsoft VBS

t671 · Answer

Merci jordane45.
J'ai exécuter le script en vbs à partir du planificateur de tâches, et j'ai le message : 
Il n'y a pas de moteur de script pour l'extension de fichier ".vbsRun"

t671 · Answer

Mais l'extension est bien ".vbs" !!!!???
Il n'y aurait pas un paramètre pour activer le moteur vbs dans le registre ??

t671 · Answer

En double-cliquant sur l’icône du script, j'ai le même message d'erreur ..........

Erreur de compilation

7 réponses

Discussions similaires