如何获取本地网络中的所有（sqlserver）服务器名称，并测试其连通性！

加上头#include <utilcls.h>和#include <ComObj.hpp>

ComboBox1->Items->Clear();
Variant SQLServer;
  Variant ServerList;
  int i,nServers;
  String sRetValue;
  SQLServer =CreateOleObject("SQLDMO.Application");
  ServerList=SQLServer.OleFunction("ListAvailableSQLServers");
  nServers=ServerList.OlePropertyGet("Count");
  for (int i=1; i<nServers;i++ )
 {
  if(AnsiString(ServerList.OleFunction("Item", i))!="(local)")
  ComboBox1->Items->Add(ServerList.OleFunction("Item", i) );
  }
  ComboBox1->ItemIndex=0;
  SQLServer=NULL;
  ServerList=NULL;