Average 28000 requests/month











  Dim objDMO As SQLServer
Dim objReplication As Replication2
Dim fso As FileSystemObject
Dim ts As TextStream
Dim sFilename As String
Set objDMO = New SQLDMO.SQLServer
Set fso = New FileSystemObject

sDirectoryPath = "c:\"
objDMO.LoginSecure = True
objDMO.Connect "crazyfrog"
Set objReplication = objDMO.Replication
sFilename = sDirectoryPath & objDMO.Name & CStr(Year(Now())) & CStr(Month(Now())) & CStr(Day(Now())) & ".txt"
Set ts = fso.OpenTextFile(sFilename, ForWriting, True)
ts.Write objReplication.Script(SQLDMORepScript_InstallDistributor Or SQLDMORepScript_InstallPublisher)
ts.Close
  
 

April 2005