列出局域网內所有SQL Server

H:
#include <Comobj.hpp>

//加一个ListBox和Button控件;
CPP:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Variant SQLServer;
    Variant ServerList;
    int nServers;
    SQLServer = CreateOleObject("SQLDMO.Application");
    ServerList= SQLServer.OleFunction("ListAvailableSQLServers");
    nServers=ServerList.OlePropertyGet("Count");
    ListBox1->Items->Clear();
    for(int i=1; i<=nServers; i++)
    {
        ListBox1->Items->Add(ServerList.OleFunction("Item", i));
    }
    SQLServer=NULL;
    ServerList=NULL;
}