'Objective: Load DTS package and save it to SQL Server
'Created by:MAK
'Date: Sep 17, 2004

SQlServer=WScript.Arguments(0)
Filename=WScript.Arguments(1)

const TrustedConnection = 256
dim version1

Set oPackage1 = CreateObject("DTS.Package2")
	
oPackage1.LoadFromStorageFile Filename,"","","",""


oPackage1.SaveToSQLServer SQlServer, , , TrustedConnection 

Set oPackage1 = Nothing