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/"