VBS Error - Automation - error code : 800A01AE

Question

Hello,
I have a VBS script that works very well on several posts, however on a few posts, I receive an error message: "This class does not support Automation" -
Code : 800A01AE
This script performs a file search.
Here is the part in error:
'Finding the names.nsf file on Drive D'
Sub Recherche
dim objFile
chemin = ""
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 Set colFiles = objWMIService.ExecQuery("Select * from CIM_DataFile where drive ='d:' and FileName = 'names'and Extension = 'nsf'")
 For Each objFile in colFiles
     chemin = objFile.Name
 Next
the error is noted on the "For Each objfile in colFiles.
Someone has an idea?
Thank you

Answer 1

Hello,<o:p></o:p>
I am getting below error when trying to run the .vbs file through Wscript.exe
class
does not support Automation" - Code : 800A01AE
Source : Microsoft VBScript runtime error
The script was working fine earlier just before enabling the excel macros.<o:p></o:p>
The script exports the test cases from quality center to excel.<o:p></o:p>
Line no 9 in my code is -- objQCConnection.InitConnectionEx "QCURL"<o:p></o:p>
Can you help ?<o:p></o:p>
Thanks, <o:p></o:p>
Madhavi<o:p></o:p>