Add Method (DiscussionServers Collection Object) Example

This example adds a new discussion server with the friendly name "Corporate Information Server" and the URL http://samples.microsoft.com.

Dim dscServers As DiscussionServers
Set dscServers = DiscussionServers
dscServers.Add "Corporate Information Server", _
    "http://samples.microsoft.com/"