CODE D’ERREUR DE DÉPANNAGE 800A004C – CHEMIN INTROUVABLE
Pour une fois, l’erreur 800A004C n’est pas de la faute du VBScript. Vérifiez le nom du fichier et/ou du dossier référencé dans le script.
INTRODUCTION À L’ERREUR 800A004C
L’erreur 800A004C se produit lorsque vous exécutez un VBScript. Ma suggestion est que vous essayez de lire ou d’écrire dans une référence de fichier qui n’existe pas. Une supposition sauvage serait qu’il y a une faute de frappe dans votre déclaration de chemin. Erreur 800A004C – Chemin introuvable. VBScript Microsoft.
LES SYMPTÔMES DE L’ERREUR 800A004C
Lorsque vous obtenez une boîte de dialogue contextuelle WSH, enfilez votre chapeau de détective et prêtez une attention particulière au numéro de ligne. L’erreur 800A004C est une erreur d’exécution, donc le problème est susceptible de se situer en dehors de votre script, il pourrait y avoir un problème avec un emplacement de fichier.
LA CAUSE DE L’ERREUR 800A004C
Dans l’exemple ci-dessus, la ligne 12 est à l’origine de l’erreur. Le caractère 1 n’est pas toujours très utile, car l’erreur peut se trouver n’importe où sur la ligne, et c’est le caractère 1 qui est accusé par WSH (Windows Script Host).
La cause de l’erreur 800A004C est probablement que le dossier dans lequel vous souhaitez créer le fichier n’existe pas. Le VBScript est capable de créer le fichier, mais il n’y a pas de répertoire correspondant.
LES SOLUTIONS
Modifiez le script pour qu’il fasse référence à un dossier réel. Créez un dossier correspondant au chemin de votre script.
Par ailleurs, Source: signale une erreur d’exécution, pas une erreur de compilation, ce qui signifie que vous ne recherchez pas un problème de syntaxe pure, mais une erreur de logique. En cas d’erreurs d’exécution, vous pouvez utiliser cette solution temporaire. Ajoutez cette déclaration juste avant la ligne qui génère l’erreur : On Error Resume Next.
EXEMPLE D’ERREUR 800A004C
Dans cet exemple, le dossier ezine39 n’existe pas.
ServicesManual.vbs – Writes services to a file.
‘ Author Guy Thomas https://computerperformance.co.uk/
‘ Version 3.7 – June 27th 2010
‘ ————————————————————-‘
Option Explicit
Dim objfso, objWMIService, objItem, colItems
Dim strPath, strFile, strComputerstrPath = « E:\ezine\scripts\ezine39\ServicesManual.txt »
strComputer = « . »
Set objfso = CreateObject(« Scripting.FileSystemObject »)
Set strFile = objfso.CreateTextFile(strPath, True)
Set objWMIService = GetObject(« winmgmts:\\ » & strComputer & « \root\cimv2 »)
Set colItems = objWMIService.ExecQuery(« Select * from Win32_Service »,,48)
For Each objItem in colItemsIf objItem.StartMode = « Manual » Then
strFile.WriteLine(« DisplayName: » & objItem.DisplayName)
strFile.WriteLine(« Name: » & objItem.Name)
strFile.WriteLine(« PathName: » & objItem.PathName)
strFile.WriteLine(« ServiceType: » & objItem.ServiceType)
strFile.WriteLine(« Started: » & objItem.Started)
strFile.WriteLine(« StartMode: » & objItem.StartMode)
strFile.WriteLine(« State: » & objItem.State)
strFile.WriteLine(« Status: » & objItem.Status)strFile.WriteLine(« »)
End ifNext
strFile.CloseWscript.Quit
‘ End of Script
