Function Main()

    dim sServername sServername = ""
    dim DestinationFolder DestinationFolder = ""
    dim bIntegratedSecurity bIntegratedSecurity= TRUE
    dim sLogin sLogin = ""
    dim sPassword sPassword = ""

    dim DocFilename
    Dim FileSys
    set FileSys = CreateObject("Scripting.FileSystemObject")
        MakeSureDirectoryTreeExists(DestinationFolder)
    Dim Docfile
    Dim oApplication   ' As DTS.Application
    Dim oPackageSQLServer  ' As DTS.PackageSQLServer
    Dim oPackageInfos   ' As DTS.PackageInfos
    Dim oPackageInfo     ' As DTS.PackageInfo
    Dim oPackage           ' As DTS.Package

    Set oApplication = CreateObject("DTS.Application")
        if bIntegratedSecurity then
    Set oPackageSQLServer = oApplication.GetPackageSQLServer(sServername,""
        ,"" , DTSSQLStgFlag_UseTrustedConnection)
    else
    Set oPackageSQLServer = oApplication.GetPackageSQLServer(sServername,
        sLogin, sPassword, 0)
    end if

    Set oPackageInfos = oPackageSQLServer.EnumPackageInfos("", True, "")

    Set oPackageInfo = oPackageInfos.Next


    Do Until oPackageInfos.EOF
    Set oPackage = CreateObject("DTS.Package2")

    if bIntegratedSecurity then
        oPackage.LoadFromSQLServer sServername, ,
        ,DTSSQLStgFlag_UseTrustedConnection , , , , oPackageInfo.Name
    else

        oPackage.LoadFromSQLServer sServername, sLogin,
        sPassword,DTSSQLStgFlag_Default , , , , oPackageInfo.Name
    end if
        DocFilename = DestinationFolder & oPackageInfo.Name & ".txt"
        'msgbox(DocFilename)
    If  FileSys.FileExists(DocFileName) Then FileSys.DeleteFile(DocFileName)
        FileSys.CreateTextFile (DocFileName)

    set Docfile = FileSys.OpenTextFile (DocFileName,2)
    dim oTasks, oProperties
    Set oTasks = oPackage.Tasks
    For each oTask in oTasks
        DocFile.write (vbCrLf)
        DocFile.write (vbCrLf)
        DocFile.write ("-----TaskDescription:"  & oTask.Description)
    Set oProperties = oTask.Properties
    For Each oProperty In oProperties
        DocFile.write (vbCrLf)
        DocFile.write ("PropertyName: " &  oProperty.Name & " Value="  &
        oProperty.Value)
    Next
    Next
        DocFile.close
    Set DocFile = Nothing
    Set oTasks = Nothing
    Set oProperties = Nothing

    'oPackage.LogToSQLServer = True
    'oPackage.LogServerName = sServername
    'oPackage.LogServerUserName = sLogin
    'oPackage.LogServerPassword = sPassword
    'oPackage.LogServerFlags = 0
    'oPackage.SaveToSQLServer sServername, sLogin, sPassword,
    DTSSQLStgFlag_Default

    Set oPackage = Nothing
    Set oPackageInfo = oPackageInfos.Next
    Loop

    'Clean up and free resources
    Set oApplication = Nothing
    Set oPackageSQLServer = Nothing
    Set oPackageInfos = Nothing
    Set oPackageInfo = Nothing
    Set oPackage = Nothing
    Set FileSys = Nothing

    Main = DTSTaskExecResult_Success
    End Function

    Function GetDate(dateVal, delimiter)

    'To comply with Option Explict
    Dim dateMonth, dateDay

    dateVal = CDate(dateVal)


    delimiter = CStr(delimiter)

    dateMonth = Month(dateVal)
    dateDay   = Day(dateVal)

    GetDate = CStr(Year(dateVal)) & delimiter

    If dateMonth < 10 Then
       GetDate = GetDate & "0"
    End If

    GetDate = GetDate & CStr(dateMonth) & delimiter

    If dateDay < 10 Then
       GetDate = GetDate & "0"
    End If

    GetDate = GetDate & CStr(dateDay)

    End Function


    Function MakeSureDirectoryTreeExists(dirName)

    Dim oFS, aFolders, newFolder, i
    Set oFS = CreateObject("Scripting.FileSystemObject")


    If Not oFS.FolderExists(dirName) Then

    aFolders = split(dirName, "")

    newFolder = oFS.BuildPath(aFolders(0), "")

    For i = 1 To UBound(aFolders)
    newFolder = oFS.BuildPath(newFolder, aFolders(i))

    If Not oFS.FolderExists(newFolder) Then
    oFS.CreateFolder newFolder
    End If
    Next
    End If

    Set oFS = Nothing

    End Function