For once error 800A004C is not the VBScript's fault. Check the name of the file and or folder referenced in
Introduction to Error 800A004C
Error 800A004C occurs when you execute a VBScript. My suggestion is that
you are trying to read, or write, to a file reference that does not
exist. A wild guess, there is a typo in your Path statement.
The Symptoms You Get 800A004C
When you get a WSH pop-up message box. Put on your detective hat and pay
close attention to the line number. Error 800A004C is a runtime error,
so the problem is likely to outside your script, there could be something the
matter with a file location.
The Cause of Error 800A004C
In the example above, Line 12: is the source of the error. Char 1: is
not always very useful as the error could be anywhere on the line and char 1
will be blamed by WSH. (Windows Script Host)
The cause of error 800A004C is likely to be that the folder that you wish
to create the file does not exist. The VBScript is capable of creating
the file, but there is no such directory.
Amend the script to reference a real folder. Create a folder to
match the path in your script.
Incidentally, Source: reports a runtime error not a compilation error, this means you are looking not for a pure syntax problem, but a fault logic error. In the case of runtime errors, you can use this
temporary work around. Add this statement just before the line which errors: On Error Resume Next.
Example of Error 800A004C
In this example folder ezine39 does not exist. (It should have been
' ServicesManual.vbs - Writes services to a file.
' Author Guy Thomas http://computerperformance.co.uk/
' Version 3.7 - June 27th 2010
Dim objfso, objWMIService, objItem, colItems
Dim strPath, strFile, strComputer
strPath = "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 colItems
Windows Management Instrumentation (WMI) is one of the hidden
treasures of Microsoft operating systems. Fortunately, SolarWinds
have created the
WMI Monitor so that you can examine these gems of
performance information for free. Take the guess work out of which
WMI counters to use for applications like Microsoft Active Directory,
SQL or Exchange Server.