Peer-to-Peer Identities - article by Paul Ibison

'**********************************************************************
' 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