[SQL Server] DTSPackageLog problemen

[UnderFlow]

Ik wil in een ActiveX script onderdeel van een DTS package regels schrijven naar het logbestand. Dat zou in principe moeten met DTSPackageLog en dan WriteStringToLog.

Dit heb ik in onderstaande code geimplementeerd, ware het niet dat ik een foutmelding krijg zodra ik de stap uit probeer te voeren.

Visual Basic:

'**********************************************************************
'  Visual Basic ActiveX Script
' Haalt het path en de filenaam op en controleert aanwezigheid file
'************************************************************************


Function Main()
    dim oFSO
    dim strFieldval
    dim strFilename
    
    strFilename = " ADR2_"
    strFieldval = DTSGlobalVariables("glb_ADR2_").Value 
    
   MsgBox  strFieldval
   '  instantiate the Scripting Object
     set oFSO = CreateObject("Scripting.FileSystemObject")

    '   Open the file
       if oFSO.FileExists(strFieldval) then
        DTSPackageLog.WriteStringToLog strFilename & " Check succeeded "
         Main = DTSTaskExecResult_Success
       else 
        DTSPackageLog.WriteStringToLog strFilename & " Check failed "
         Main = DTSTaskExecResult_Failure
      End If
     
End Function

Code is verder niet super boeiend. Er wordt gechecked of het bestand met de bestandsnaam wat in de globale variabele wordt opgeslagen ook daadwerkelijk aanwezig is en op basis daarvan moet in het log de corresponderende regel worden geschreven.

De foutmelding ontstaat gelijk op de eerste regel waar DTSPackageLog wordt aangesproken.
Error Code: 0
Runtimefout Microsoft VBScript
Object vereist 'DTSPackageLog'

Nu is het zo dat DTSPackageLog gewoon zo gebruikt kan worden zonder er een object van te maken. Verder heb ik ook duidelijk een logbestand aangegeven dus dat is het ook niet. De info op MSDN over dit onderwerp is helaas uiterst summier, dus dat schoot ook niet op.

Heeft iemand een idee wat ik fout doe of wat er fout zou kunnen gaan/wat ik over het hoofd zie?

[Equator]

Je zal eerst een object aan moeten maken die je dan gebruikt:

Visual Basic:

Set oTest = CreateObject("DTSPackageLog")

oid..

[UnderFlow]

Je hoeft met DTSPackageLog geen object aan te maken en als ik dat doe krijg ik ook weer gelijk een foutmelding terug.

[Annie]

Bij mijn weten is dit object alleen beschikbaar in een activex task (en een customtask, voor als je dynamisch tasks toevoegt).
Dus de vraag is: gebruik je het object in een activex task of vanuit - bijvoorbeeld - een script in een datapump? Dat laatste zal dus niet werken.

[UnderFlow]

Gewoon in een activex task.

Maar ik heb het probleem al gevonden, na uitvoerig blijven zoeken. Deze procedure werkt alleen zonder problemen als je de complete package uitvoert. Als je de afzonderlijke activex task uitvoert werkt het niet en krijg je de melding. Het DTSPackagelog wordt pas gemaakt tijdens de complete run van de package.

Wel vervelend, maar ach...