Private Sub Command1_Click()
    Dim i As Integer
    Dim oNames As SQLDMO.NameList
    Dim oSQLApp As SQLDMO.Application
    Set oSQLApp = New SQLDMO.Application
   
    
    Set oNames = oSQLApp.ListAvailableSQLServers()
    List1.Clear
    For i = 1 To oNames.Count
        List1.AddItem oNames.Item(i)
    Next i
End Sub
					

#define UNICODE
#define _UNICODE

#include <windows.h>
#include <tchar.h>
#include <stdio.h>
#include <initguid.h>

#include "C:\PROGRAM FILES\MICROSOFT SQL SERVER\80\TOOLS\DEVTOOLS\INCLUDE\sqldmoid.h"
#include "C:\PROGRAM FILES\MICROSOFT SQL SERVER\80\TOOLS\DEVTOOLS\INCLUDE\sqldmo.h"

int main()
{
	LPSQLDMOAPPLICATION pDMOApp = NULL;
	LPSQLDMONAMELIST pNameList = NULL;

	int	iExitStatus = 1;	// assume failure.

	try
	{
		// Initialize COM.
		// 
		if FAILED(CoInitialize (NULL))
		{
			return (iExitStatus);
		}


		// Create SQLDMOApplication.
		if FAILED(CoCreateInstance(CLSID_SQLDMOApplication, NULL, CLSCTX_INPROC_SERVER, IID_IWSQLDMOApplication, (LPVOID*)&pDMOApp))
		{
			return (iExitStatus);
		}
	
		// Get the list of servers.
		if SUCCEEDED(pDMOApp->ListAvailableSQLServers(&pNameList))
		{
			long lCount=0;
			BSTR strName=NULL;
			//retrieve the count 
			pNameList->GetCount(&lCount);
			_tprintf(_T("There are %d SQL Servers active on the network.\n"),lCount );

			for(long i=0; i < lCount; i++)
			{
				//get the server name
				pNameList->GetItemByOrd(i, &strName);
				_tprintf(_T("%s\n"),strName );
			}
			iExitStatus = 0;
		}

		if (pDMOApp)
		{
			pNameList = NULL;
			pDMOApp->Release();
			pDMOApp = NULL;
		}
	}
	catch(...)
	{
		_tprintf(TEXT("error dmolistservers unhandled exception (%d)\n"), GetLastError() );
	}

	return iExitStatus;
}