Log DTS package to a SQL Server Table

I am trying to log DTS package with steps/tasks info into a SQL Server table. I need the following info:
Package name, step description, step status, step starttime, step finish time, step executiontime.

I am using step properties to get the info, but not getting right info.

Thanks,

Alim

DTS package execution is already logged in msdb database, I think.

Thank you anyway. I got it. Please see the following script. It can log any number of steps/tasks info of a DTS pacakge into a SQL server Table.

Thanks,

Alim Mia

'**********************************************************************
' Visual Basic ActiveX Script
'************************************************************************
Function Main()
dim myConn
dim myRecordset
dim mySQL
dim oPackage
dim i

' assign current dts package
set oPackage = DTSGlobalVariables.Parent

set myConn = CreateObject("ADODB.Connection")
set myRecordset = CreateObject("ADODB.Recordset")

' set the connection properties to point to the MEIS database
myConn.Open = "Provider=SQLOLEDB.1;Data Source=XXXXX; Integrated Security=SSPI"

' open DTS_Log table
mySQL = "select * from dbo.Log"
' mySQL = "dbo.DTS_Log"
myRecordset.Open mySQL, myConn, adOpenKeySet , 2 , adCmdTable

' Loop through all steps/tasks and log the steps info to DTS_Table

' For each otask in opackage.steps
For i = 1 to oPackage.steps.count
If oPackage.Steps(i).ExecutionStatus = 4 Then
MyRecordset.AddNew
MyRecordset.Fields("PackageName") = opackage.name
If oPackage.Steps(i).ExecutionResult = 0 Then
MyRecordset.Fields("Status") = "Success"
Else
MyRecordset.Fields("Status") = "Failed"
End if
MyRecordset.Fields("TaskDescription") = oPackage.Steps(i).Description
MyRecordset.Fields("StartDateTime") = oPackage.Steps(i).starttime
MyRecordset.Fields("EndDateTime") = oPackage.Steps(i).Finishtime
MYRecordSet.Fields("Duration_in_Minutes") = oPackage.Steps(i).ExecutionTime/60
MyRecordset.Update
End if
Next

Set MyRecordset = Nothing
Set myconn = Nothing
' myConn.Close
' MyRecordset.Close

Main = DTSTaskExecResult_Success
End Function