I have already searched the forums and couldn't find the answer.
I have to get our "app enterprise server location" from dcom config. I used the following code for finding the name of the server but it does not enter into the loop.
Set cat = CreateObject("COMAdmin.COMAdminCatalog.1")
Set collApps = cat.GetCollection("Applications")
numApps = collApps.Count
For i = numApps - 1 To 0 Step -1
If collApps.Item(i).Value("Name") = "HealthVISION Enterprise Server" Then
'write code to get location
It does not find "HealthVISION Enterprise Server" though it is listed in dcom config. One more thing is numApps resturns only "10" though there are more application displayed under dcom config objects.