26 votes

VBScript Caractère non valide erreur de compilation 800A0408

Je reçois une erreur de compilation lorsque j'essaie d'exécuter le code vbs suivant à partir d'une invite de commande dans Windows 7.

Option Explicit
Dim objNetwork, strRemotePath1, strRemotePath2, strRemotePath3
Dim strDriveLetter1, strDriveLetter2, strDriveLetter3, strUserName

Set objNetwork = CreateObject("WScript.Network")
strUserName = objNetwork.UserName 

strDriveLetter1 = "H:"
strDriveLetter2 = "P:"
strDriveLetter3 = "S:"
strRemotePath1 = "\\test\public\users\" & strUserName & "\"
strRemotePath2 = "\\test\public\groups\"
strRemotePath3 = "\\test\scans\"

'Section which maps two drives, M: and P: and S:
objNetwork.MapNetworkDrive strDriveLetter1, strRemotePath1
objNetwork.MapNetworkDrive strDriveLetter2, strRemotePath2
objNetwork.MapNetworkDrive strDriveLetter3, strRemotePath3

'Extra code just to add a message box
WScript.Echo "Cartographier les lecteurs " & strDriveLetter1 & " & " & strDriveLetter2 & " & " & strDriveLetter3

Wscript.Quit

Il indique que le problème se situe à la ligne 1, caractère 1. Des idées ?

70voto

Rubens Farias Points 33357

Un problème possible est la façon dont votre fichier a été encodé; essayez de le sauvegarder en tant qu'ANSI et de le exécuter à nouveau.

23voto

Ammar Ahmed Points 543

Pour ceux qui rencontrent le même problème à l'avenir, pour le résoudre :

  1. Ouvrez le fichier .vbs dans le bloc-notes
  2. Allez dans le menu "Fichier" et faites "Enregistrer sous"
  3. Juste en dessous de la zone de saisie du nom de fichier, vous verrez un menu déroulant pour l'encodage. Choisissez ANSI.

0voto

Pedro Hoton Points 11

Vérifiez que vous n'utilisez pas de caractères spéciaux comme á é í ó ú ñ dans le nom d'une variable

Prograide.com

Prograide est une communauté de développeurs qui cherche à élargir la connaissance de la programmation au-delà de l'anglais.
Pour cela nous avons les plus grands doutes résolus en français et vous pouvez aussi poser vos propres questions ou résoudre celles des autres.

Powered by:

X