'**********************************************************************
' Visual Basic ActiveX Script
'************************************************************************
Function Main()
dtsname="ImportBISTwd"
usrname="sa"
servername="MA03XXBXX"
pwd="sapwd"
DTSSQLStgFlag_Default2=0
dim objDTSPackage
dim objDTSStep
dim strResult
dim blnSucceeded
const DTSSQLStgFlag_Default = 0
const DTSStepExecResult_Failure = 1
set objDTSPackage = CreateObject("DTS.Package")
objDTSPackage.LoadFromSQLServer servername, usrname, pwd, DTSSQLStgFlag_Default2, "", "", "", dtsname
objDTSPackage.Execute
Main = DTSTaskExecResult_Success
End Function
訂閱:
張貼留言 (Atom)
沒有留言:
張貼留言