Active Script, SQLAgent Job, Execute DTS, Permission Denied

I'm using SQL 7.0/SP1 on NT/SP4. I created and saved a DTS Package that I want to execute every 15 minutes to check for the existence of some comma delimited text files, and import them with the DTS Package if they exist.

I'm using a SQLAgent Active Script (vbscript) job that uses the FileSystemObject to check for the files. The Active Script ran fine during construction from a remote NTWS machine. Once I scheduled the job on the server the job fails with:

"Error Code: 0 Error Source= Microsoft VBScript runtime error Error Description: Permission denied Error on Line 9. The step failed."

The Active Script (main function where containing line 9) is below:

Option Explicit
Function Main()
Print "Sub Main::Entry Point"
Dim oFileSystem, oFolder, oFile, bDTSSuccess
Set oFileSystem = CreateObject("Scripting.FileSystemObject")
(line 9 is next)
Set oFolder = oFileSystem.GetFolder("serverTransferFromHMP") <--- line 9
For Each oFile In oFolder.Files
Print "Sub Main::Call ExecuteDTS"
bDTSSuccess = ExecuteDTS(oFile.Name)
If Not bDTSSuccess Then Exit For
Rem Move file to Archive directory
oFile.Move "serverTransferFromHMPArchive" & oFile.Name
Next
Set oFile = Nothing
Set oFolder = Nothing
Set oFileSystem = Nothing
End Function

I've researched the other postings on this site and some newsgroups regarding SQLAgent and have checked SQLAdmin (the SQLAgent account) and SQLAgentCmdExec rights, advanced rights, share rights, directory rigths, file rights, roles, sysadmin rights, local administrator group, domain user account, etc. I've logged in at the server as SQLAdmin and can open and move the import files. When I log in at the server as SQLAdmin the same failure occurs. SQLAgent properties are set to use NT authentication.

When I shutdown the SQLAgent service and start it up using the command line (logged in as Administrator) sqlagent -c -v, two things happen. First, I get the following message twice:

"[000] Password verification of the 'SQLAgentCmdExec' proxy account failed (reason: a required privledge is not held by the client)"

Then, the SQLAgent actually runs the job, performs the FileSystemObject operations, but the DTS Package doesn't import the data. The job completes successfully. Note, I've tested the import files and manually they import fine and do not raise any constraint issues.

The function ExecuteDTS is as follows:Private Function ExecuteDTS(sFileName)
Dim oDTSPackage, sPackName, oConn, i
On Error Resume Next
ExecuteDTS = False
If Len(sFileName) < 3 Then Exit Function
sPackName = ""
If UCase(Left(sFileName, 3)) = "PCL" Then sPackName = "DTS_Posted_Claim_From_HMP"
If UCase(Left(sFileName, 3)) = "PCN" Then sPackName = "DTS_Posted_Claim_Line_From_HMP"
If sPackName = "" Then Exit Function
Set oDTSPackage = CreateObject("DTS.Package")
If Err.Number Then
Err.Raise Err.Number, Err.Source, Err.Description
Exit Function
End If
oDTSPackage.LoadFromSQLServer ".", , ,256 , , , , sPackName
Rem Set Source Connection
For Each oConn In oDTSPackage.Connections
If oConn.Name = "Comma Delimited Text File" Then
oConn.DataSource = "serverTransferFromHMP" & sFileName
End If
Next
Rem Set other package properties
With oDTSPackage
.LogFileName = "serverTransferFromHMPLog" & Left(sFileName, 3) & ".log"
.WriteCompletionStatusToNTEventLog = True
End With
Rem Execute package
oDTSPackage.Execute
ExecuteDTS = True
For i = 1 To oDTSPackage.Steps.Count
If oDTSPackage.Steps(i).ExecutionResult = DTSStepExecResult_Failure Then
ExecuteDTS = False
End If
Next
Set oConn = Nothing
Set oDTSPackage = Nothing
End Function

When I run the Active Script remotely it works fine (of course), and I'm use a login account that belongs to the Administrators group (as does SQLAdmin, and SQLAgentCmdExec). I have also checked that the DTS RLL files and the scripting DLL are on the server and they are. Any help would be appreciated.

Thanks,

Brian O'Neil
bmoneil@aol.com