• Logged into MS Query Analyser as SYSDBA execute the following:
  
  

  CREATE TABLE SYNC_REPORT (
  	SITECODE varchar (4) NULL ,
  	FILESIZE float NULL ,
  	FILEDATE datetime NULL )

  
  
• Copy the enclosed sendMail.dll into the \system32 directory. Register the DLL using regsvr32 sendmail.dll. NB: If you already have a sendmail.dll you can copy the DLL to any location and register it from there.
  
  
• Copy the supplied WeeklySyncReport.vbs file to a known location
  
  
• Optional - setup Scheduler to run the script on a weekly/daily basis.
  

Set fOutfiles = FSO.GetFolder("\\mike1200\c$\SLXData.NET\slxnet\Outfiles")

Source = Your SQL Server machine name
Catalog = Database Name

dbConn.Open "Provider=sqloledb;Data Source=MIKE1200;Initial Catalog=SLXNET;User Id=sysdba;Password=masterkey"

' Set the message properties
msg.RecipientEmail = "mike.spragg@myemailaddress.com" '<- Use a distribution list
msg.SenderName = "SalesLogix Sync Report"
msg.SenderEmail = "mike.spragg@myemailaddress.com"
msg.Subject = "Weekly SalesLogix Sync Report"

' add the report to the message body
msg.MessageHTML = strReport

' Send the message
msg.Send "10.0.0.4" '<- enter the name/IP address of your SMTP server here

NB: Check Line 39 & 52 - remove CONVERT if not being used in UK.


Multiple SyncServers/FTP Sites

If you are running multiple sync servers and/or FTP sites you will need to alter lines 43 - 53 to include any additional directories you wish to scan:

'----------------------------------------------------------------------------------------
' ------- 2nd/3rd etc Outfiles e.g. for FTP Sync and multiple outfile directories -------
'----------------------------------------------------------------------------------------

' Go through the Outfiles folder on sync server 2
' Set fOutfiles = FSO.GetFolder("\\mike1200\c$\SLXData.NET\slxnet\Outfiles2")
	
' Go through the Outfiles Dir for additional syncservers or FTP sync files and populate the SYNC_REPORT Table

' for each f In FOutfiles.Files
'	dbConn.Execute "INSERT INTO SYNC_REPORT VALUES ('" &  left(f.Type,4) & "', " & toMB(f.size) & _ 
'	               ", convert(datetime, '" & f.DateLastModified & "',103))"
' Next

Run the Report

Simply double-click the WeeklySyncReport.vbs script - this will execute and then send the report via email to the recipient(s) named above.


Viewing the output

A successful email output will look like this:




Downloading the code

Download the files and complete script needed to generate the synchronization report below:

 Click here to download the files