Average 28000 requests/month
'**********************************************************************
' Visual Basic ActiveX Script
'************************************************************************
Function Main()
Dim objDMO
Dim objReplication
Dim fso
Dim tf
Set objDMO = CreateObject("SQLDMO.SQLServer")
Set fso = CreateObject("Scripting.FileSystemObject")
objDMO.LoginSecure = True
objDMO.Connect "crazyfrog"
Set objReplication = objDMO.Replication
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("c:\testfile.txt", True)
tf.Write objReplication.Script(1048576)
tf.Close
Main = DTSTaskExecResult_Success
End Function
April 2005
