ActiveX Scripting was not able to initialize

[JVZ]

Hello All,

I working on sample code, however when I try to run the DTS I get the following error:

Step Error Source: Microsoft Data Transformation Services (DTS) Package
Step Error Description:ActiveX Scripting was not able to initialize the script execution engine.
Step Error code: 800403F9
Step Error Help File:sqldts80.hlp
Step Error Help Context ID:4500

Step Execution Started: 7/17/2003 4:44:20 PM
Step Execution Completed: 7/17/2003 4:44:21 PM
Total Step Execution Time: 0.211 seconds
Progress count in Step: 0
**************************

***** Here is the code I'm running *******
Function Main()

Dim objFSO, objFolder, objFile, colFiles

Set objFSO = CreateObject("Scripting.FileSystemObject&quot
Set objFolder = objFSO.GetFolder(DTSGlobalVariables("gvFilePathRoot&quot.Value)
Set colFiles = objFolder.Files

If colFiles.Count > 0 Then
For Each objFile in colFiles
If UCase(Right(objFile, 4)) = ".TXT" Then
MsgBox objFile.Name
End If
Next
Else
MsgBox "There are no files in this directory"
End If

Set objFSO = nothing
Set objFolder = nothing
Set colFiles = nothing

Main = DTSTaskExecResult_Success
End Function

Could someone please let me know what I'm doing wrong.