Listing 2: Creating the Listed Names of 
Subscriptions for a Selected Server's Publications

'Create and connect to the selected SQL Server named sServer
oServer.LoginTimeout = 30
oServer.Connect sServer, "account", "password"
'for each replication database
For Each oDB In oServer.Replication.ReplicationDatabases
   'for each publication in the database
   For Each oPublication In oDB.TransPublications
      'List each subscription subscribing to this publication in the
      'format of server-replication database-publication-subscription.
      For Each oSubscription In oPublication.TransSubscriptions
         List2.AddItem sServer + "-" + oDB.Name + "-" + _
         oPublication.Name + "-" + oSubscription.Name
      Next oSubscription
   Next oPublication
Next oDB
oServer.DisConnect
Set oServer = Nothing