sql server replication: Somebody has strong scripts to test replication?

I'm not sure what you mean by strong scripts to test. I normally do an
insert, update and delete on the publisher and see how they make it to the
subscriber.

Here is some vbscript I use to generate insert statements for a table.

set objFSO=CreateObject("Scripting.FileSystemObject")
IF Wscript.Arguments.Count = 0 THEN
MsgBox "Server List Missing", vbCritical
END IF

FilePath="c:\generated_insert.txt"
set objFSO=CreateObject("Scripting.FileSystemObject")
if objFSO.FileExists(FilePath) then
set objFileHandle=objFSO.GetFile(FilePath)
else
set objFileHandle=objFSO.CreateTextFile(FilePath,TRUE, FALSE)
end if
set objTS = objFileHandle.OpenAsTextStream(2,0)

IF Wscript.Arguments.Count = 0 THEN
MsgBox "TableName is Missing", vbCritical
END IF
'on error resume next
tableName=Wscript.Arguments(0)

set objCommand=CreateObject("ADODB.Command")
set objConnection=CreateObject("ADODB.Connection")
set objRecordSet=CreateObject("ADODB.RecordSet")
objConnection.Connectionstring="Provider=SQLOLEDB.1;Persist Security
Info=FALSE;User ID=account;password=password;Initial
Catalog=DatabaseName;Data Source=ServerName;"
objConnection.Open
objRecordSet.Open "select * from " & wscript.Arguments(0) ,objConnection,
3,1
InsertString ="Insert into " & wscript.Arguments(0) & "("
count=0
for each Field in objRecordSet.Fields
if Count=objRecordSet.Fields.Count -1 then
InsertString=InsertString+ Field.Name +") values("
else
InsertString=InsertString+ Field.Name +","
end if
count=count+1
next
do while not objRecordSet.EOF
CompleteString=InsertString
for a = 0 to objRecordSet.Fields.Count -1
select case objRecordSet.Fields(a).type
case 0
ValuesString=ValuesString& objRecordSet.Fields(a) & ","
case 16
ValuesString=ValuesString& objRecordSet.Fields(a) & ","
case 2
ValuesString=ValuesString& objRecordSet.Fields(a) & ","
case 3
ValuesString=ValuesString& objRecordSet.Fields(a) & ","
case 20
ValuesString=ValuesString& objRecordSet.Fields(a) & ","
case 17
ValuesString=ValuesString& objRecordSet.Fields(a) & ","
case 18
ValuesString=ValuesString& objRecordSet.Fields(a) & ","
case 19
ValuesString=ValuesString& objRecordSet.Fields(a) & ","
case 21
ValuesString=ValuesString& objRecordSet.Fields(a) & ","
case 4
ValuesString=ValuesString& objRecordSet.Fields(a) & ","
case 5
ValuesString=ValuesString& objRecordSet.Fields(a) & ","
case 6
ValuesString=ValuesString& objRecordSet.Fields(a) & ","
case 14
ValuesString=ValuesString& objRecordSet.Fields(a) & ","
case 131
ValuesString=ValuesString& objRecordSet.Fields(a) & ","
case 11
ValuesString=ValuesString& objRecordSet.Fields(a) & ","
case 10
ValuesString=ValuesString& objRecordSet.Fields(a) & ","
case 132
ValuesString=ValuesString& objRecordSet.Fields(a) & ","
case 12
ValuesString=ValuesString& objRecordSet.Fields(a) & ","
case 9
ValuesString=ValuesString& objRecordSet.Fields(a) & ","
case 13
ValuesString=ValuesString& objRecordSet.Fields(a) & ","
case 72
ValuesString=ValuesString& objRecordSet.Fields(a) & ","
case 7
ValuesString=ValuesString& "'" & objRecordSet.Fields(a) & "',"
case 133
ValuesString=ValuesString& "'" & objRecordSet.Fields(a) & "',"
case 134
ValuesString=ValuesString& "'" & objRecordSet.Fields(a) & "',"
case 135
ValuesString=ValuesString& "'" & objRecordSet.Fields(a) & "',"
case 8
ValuesString=ValuesString& "'" & objRecordSet.Fields(a) & "',"
case 129
ValuesString=ValuesString& "'" & objRecordSet.Fields(a) & "',"
case 200
ValuesString=ValuesString & "'" & objRecordSet.Fields(a) & "',"
case 201
ValuesString=ValuesString& "'" & objRecordSet.Fields(a) & "',"
case 130
ValuesString=ValuesString& "'" & objRecordSet.Fields(a) & "',"
case 202
ValuesString=ValuesString& "'" & objRecordSet.Fields(a) & "',"
case 203
ValuesString=ValuesString& "'" & objRecordSet.Fields(a) & "',"
case 128
ValuesString=ValuesString& "'" & objRecordSet.Fields(a) & "',"
case 204
ValuesString=ValuesString& "'" & objRecordSet.Fields(a) & "',"
case 205
ValuesString=ValuesString& "'" & objRecordSet.Fields(a) & "',"
case 136
ValuesString=ValuesString& "'" & objRecordSet.Fields(a) & "',"
case 64
ValuesString=ValuesString& "'" & objRecordSet.Fields(a) & "',"
case 138
ValuesString=ValuesString& "'" & objRecordSet.Fields(a) & "',"
case 139
ValuesString=ValuesString& "'" & objRecordSet.Fields(a) & "',"
case 131
ValuesString=ValuesString& "'" & objRecordSet.Fields(a) & "',"
end select
if a=objRecordSet.Fields.Count -1 then
ValuesString=left(ValuesString,len(ValuesString)-1)
end if

next
CompleteString=InsertString+ValuesString+")"
wscript.echo CompleteString
objTS.WriteLine CompleteString
ValuesString=""
objRecordSet.MoveNext
loop

objTS.Close


--
Hilary Cotter
Looking for a book on SQL Server replication?
http://www.nwsu.com/0974973602.html


[quoted text, click to view]