Option Explicit

'запуск скрипта
sbRunScript

'скрипт запуска DTS
Sub sbRunScript()
Dim oPackage
Dim oStep
Dim oTask
Dim oCustTask

Set oPackage = CreateObject("DTS.Package")
If oPackage Is Nothing Then
WScript.Echo "Connecting error"
WScript.Quit(-1)
End If

'{03B75DD2-61C1-4837-9053-D1AD18B18981} Создание T_MY_REAL_P

oPackage.LoadFromSQLServer "OSERVER", "acca", , 256, , "{03B75DD2-61C1-4837-9053-D1AD18B18981}"
oPackage.Execute
oPackage.UnInitialize
Set oPackage = Nothing

WScript.Echo "Running DTS is complete"
WScript.Quit(0)
End Sub