This article examines how to take advantage of VB Script
and MS-DOS batch files to restore multiple DTS packages stored in the form of
structured storage files from one folder to a SQL Server box. When many DTS
packages reside as structured storage files, it can be tiresome to restore
those DTS packages one by one using Enterprise Manager. [Fig 1.1] As described
in my previous article, Automating
"Save DTS package," there may be cases where you have multiple DTS packages
stored in a folder.
simulate the whole process of restoring multiple DTS packages stored as a structured
Server client installed on the machine
- All the
DTS packages have only one version stored in the structured storage file
- The Windows
Login used to run the VB Script should have administrative access to the
SQL Server box where you are going restore the packages, because we are
going to use Trusted Connection.
assume that we have all the DTS packages stored in a structured storage format
in the folder D:\DTS\20040828 [Fig 1.2]
Create folder C:\restoreDTS. [Fig 1.3]
C:\RestoreDTS\RestoreDTS.vbs. Copy and paste the code below into RestoreDTS.vbs
and save the file.
'Objective: Load DTS package and save it to SQL Server
'Date: Sep 17, 2004
const TrustedConnection = 256
Set oPackage1 = CreateObject("DTS.Package2")
oPackage1.SaveToSQLServer SQlServer, , , TrustedConnection
Set oPackage1 = Nothing
C:\RestoreDTS\Restore.bat. Copy and paste the code below into the file and save
REM Objective: Load DTS package and save it to SQL Server
REM Type: Batch File to get all DTS package name
REM Created by: MAK
REM Contact: firstname.lastname@example.org
REM Date: Sep 17, 2004
REM Parameters %1 = SQl Server box name %2 = directory name
REM Export DIR listing to C:\MyImport\Dirlist.txt
Echo "Load Started"
dir %2 /b > C:\RestoreDTS\Dirlist.txt
REM Restore all the DTS package listed in C:\RestoreDTS\Dirlist.txt
for /f "tokens=1" %%i in (C:\RestoreDTS\Dirlist.txt) do Cscript /nologo RestoreDTS.vbs %1 %2%%i
REM echo %2%%i
Echo "Load Completed"