取得DTS的屬性值與全域變數

因為之前設計了一個DTS定期撈取執行失敗的工作排程，然後會寄送mail通知相關負責人，頂多附上歷程紀錄的相關資訊，有時資訊一多，根本看不出來錯在哪裡，雖然封裝屬性裡可以設定錯誤紀錄檔，但是我不知怎麼取得相關資訊，我在資料庫裡找了好久都找不到，經過一段時間尋找，終於讓我發現啦，原來用VB Script可以取得該封裝的相關資訊啊，分享給各位囉


Dim Package

Set Package = CreateObject("DTS.Package2")

'載入該封裝，請自行替換servername,username,password,pasckage name喔
Package.LoadFromSQLServer "servername", "username","password", , , , , "package name"

'秀出屬性LogFileName的值
wscript.echo Package.Properties("LogFileName").Value

'秀出全域變數recFilename的值...假設你有設定recFilename
wscript.echo Package.GlobalVariables("recFilename").Value

'執行
'Package.Execute

Package.UnInitialize

set Package =nothing