Dim objDMO As SQLServer
Dim objReplication As Replication2
Dim objReplicationDatabase As ReplicationDatabase2
Dim objMergePublication As MergePublication2
Dim objTransactionalPublication As TransPublication2
Dim fso As FileSystemObject
Dim ts As TextStream
Dim sDirectoryPath As String
Set objDMO = New SQLDMO.SQLServer
objDMO.LoginSecure = True
objDMO.Connect "CrazyFrog"
Set objReplication = objDMO.Replication
Set fso = New FileSystemObject
sDirectoryPath = "c:\"
For Each objReplicationDatabase In objReplication.ReplicationDatabases
sFilename = sDirectoryPath & objReplicationDatabase.Name & CStr(Year(Now())) & CStr(Month(Now())) &
CStr(Day(Now())) & ".txt"
If objReplicationDatabase.MergePublications.Count + objReplicationDatabase.TransPublications.Count > 0 Then
Set ts = fso.OpenTextFile(sFilename, ForWriting, True)
ts.WriteLine "/*****************************************/"
ts.WriteLine "Database : " & objReplicationDatabase.Name
ts.WriteLine "/*****************************************/"
For Each objMergePublication In objReplicationDatabase.MergePublications
ts.Write objMergePublication.Script(SQLDMORepScript_PublicationCreation)
Next
For Each objTransactionalPublication In objReplicationDatabase.TransPublications
ts.Write objTransactionalPublication.Script(SQLDMORepScript_PublicationCreation)
Next
ts.Close
End If
Next
