'
' Reading the friendly names of providers in VB
'
dim c as IADsContainer
dim n as IADs
set c = GetObject("ADS://") ' Get the Namespaces container
for each n in c ' loop through all namespace objects
debug.print n.Get("friendlyName") ' report the friendly name
next n