Commande Execute ne fonctionne plus

Version imprimable

27/05/2024, 10h47
luciobello

Commande Execute ne fonctionne plus

Bonjour.

Code pour appeler des fonctions communes d'un fichier vbscript :

' Import Framework Functions
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim rvbFILE
Set rvbFile = objFSO.OpenTextFile("FrameworkFunctions.vbs", 1)

Execute rvbFILE.ReadAll()
rvbFile.Close()

****
Ce code fonctionnait depuis des mois. environnement windows 10.
Vendredi, je le lance sur 2 postes différents, j'ai une erreur d'exécution :

Popup Windows Script Host
Error : Expected statement
Code 800A0400
Source Microsoft VBScript compilation error

Je suis dégouté.
Windows n'est plus censé mettre à jour VBScript depuis des années.. et là; une mise à jour ne permet plus de faire tourner une commande Execute :(
Toute ma solution est bloquéée. Je ne connais pas d'autre moyen d'appeler des fonctions dans un autre fichier.

Que faire ?
27/05/2024, 13h35
hackoofr

:salut:
L'erreur que vous rencontrez ("Expected statement", Code 800A0400) indique généralement une syntaxe incorrecte ou un problème lors de l'exécution du fichier VBScript.
Il est possible que le fichier "FrameworkFunctions.vbs" contienne une erreur de syntaxe, ou que le code lui-même ait été altéré d'une manière ou d'une autre.:roll:
Pouvez-vous nous poster le contenu du fichier FrameworkFunctions.vbs
27/05/2024, 14h00
luciobello

Citation:

Envoyé par hackoofr

:salut:
L'erreur que vous rencontrez ("Expected statement", Code 800A0400) indique généralement une syntaxe incorrecte ou un problème lors de l'exécution du fichier VBScript.
Il est possible que le fichier "FrameworkFunctions.vbs" contienne une erreur de syntaxe, ou que le code lui-même ait été altéré d'une manière ou d'une autre.:roll:
Pouvez-vous nous poster le contenu du fichier FrameworkFunctions.vbs

Bonjour.
D'accord. Merci.
Le fichier framework fait +500 lignes. Et je peux clairement pas le divulguer par sécurité.
Donc, je vais déjà le compiler et l'analyser. ça me redonne espoir !
27/05/2024, 19h00
luciobello

Citation:

Envoyé par hackoofr

:salut:
L'erreur que vous rencontrez ("Expected statement", Code 800A0400) indique généralement une syntaxe incorrecte ou un problème lors de l'exécution du fichier VBScript.
Il est possible que le fichier "FrameworkFunctions.vbs" contienne une erreur de syntaxe, ou que le code lui-même ait été altéré d'une manière ou d'une autre.:roll:
Pouvez-vous nous poster le contenu du fichier FrameworkFunctions.vbs

Bon bin voilà ! Y avait des coquilles dans le fichier appelé; des fonctions encore jamais appelées; bon c'est logique, ça soit pas parfait d'entrée.
J'ai tout corrigé. C'était des broutilles. Et PAF ça retourne ! Donc c'était bien des syntax error dans le fichier appelé. Merci. Quel soulagement !
Mais sérieux le message d'erreur trompeur "file not found" rien à voir quoi :lol:
Ce qui m'a trompé c'est que sur le nouveau poste, je suis à poil, sans compilateur, avec notepadd++.
Execute n'est pas reconnu comme fonction VB Alors que sur mon ancien poste tout équipe, bin si.
Du coup, je me suis dit, M.... ils ont du désactiver pour raison de sécurité.. bref je me suis bien mis les boules pour rien :D