Listing 3: Finding the Replication Database, 
Publication, and Subscription Objects

'Find publishing server (publisher) object.
Set oPublisher = New SQLDMO.SQLServer 
oPublisher.Connect sServer, "account", "password"
'Find replication database, publication, and subscription objects.
Set oDB = oPublisher.Replication.ReplicationDatabases(sDB)
Set oPublication = oDB.TransPublications(sPublication)
Set oSubscription = oPublication.TransSubscriptions(sSubscription)