Fehler 800403FE bei SQL Server Agent

05/05/2009 - 14:13 von Gavin Porter | Report spam
Hallo Gemeinde,

ich habe ein DTS Paket mit einem ActiveX-Skript. Wenn ich es manuell
starte, làuft alles glatt, starte ich über Zeitplan mit der Server Agent
heißt es Fehler 800403FE Datei konnte nicht gefunden werden:

Option Explicit
Function Main()
Dim oFSO
Dim oFile
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFile = oFSO.GetFile("\\server1\public\WZL010.txt")

'If Now() - oFile.DateLast;odified < 1 then
If oFSO.FileExists("\\server1\public\WZL010.txt") Then
Main = DTSTaskExecResult_Success
DTSGlobalVariables("Dateidatum").Value =
CDate(oFile.DateLastModified)
Else
Main = DTSTaskExecResult_Failure
End If

Set oFile = Nothing
Set oFSO = Nothing

End Function

Ich habe schon mal in der Registry unter dem
DefaultAccessPermission-Wert gesucht, aber es ist keiner vorhanden.

Für jede Hilfe dankbar

Gavin
 

Lesen sie die antworten

#1 Christoph Muthmann
05/05/2009 - 14:38 | Warnen spam
Gavin Porter wrote:
Hallo Gemeinde,

ich habe ein DTS Paket mit einem ActiveX-Skript. Wenn ich es manuell
starte, làuft alles glatt, starte ich über Zeitplan mit der Server
Agent heißt es Fehler 800403FE Datei konnte nicht gefunden werden:

Option Explicit
Function Main()
Dim oFSO
Dim oFile
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFile = oFSO.GetFile("\\server1\public\WZL010.txt")

'If Now() - oFile.DateLast;odified < 1 then
If oFSO.FileExists("\\server1\public\WZL010.txt") Then
Main = DTSTaskExecResult_Success
DTSGlobalVariables("Dateidatum").Value > CDate(oFile.DateLastModified)
Else
Main = DTSTaskExecResult_Failure
End If

Set oFile = Nothing
Set oFSO = Nothing

End Function

Ich habe schon mal in der Registry unter dem
DefaultAccessPermission-Wert gesucht, aber es ist keiner vorhanden.




Hallo Gavin,
hat der Agent Vollzugriff auf \\server1\public\ ?

Einen schönen Tag noch,
Christoph
Microsoft SQL Server MVP
http://www.insidesql.org

Ähnliche fragen