如何搜索局域网内的所有SQL服务器以及其名称

[极速小王子]

如标题

[GaoLun]

Variant SQLServer;
Variant ServerList;
int i,nServers;
String sRetValue;
try
{
SQLServer = CreateOleObject("SQLDMO.Application");
}
catch(...)
{
ShowMessage("您的本机系统没有安装SQL Server或SQL Server客户端软件");
return;
}

ServerList= SQLServer.OleFunction("ListAvailableSQLServers");
nServers=ServerList.OlePropertyGet("Count");
ComboBox1->Items->Clear();
for(i=1;i<=nServers;i++) //将检测结果放入ComboBox1中
ComboBox1->Items->Add(ServerList.OleFunction("Item",i));
SQLServer=Unassigned;
ServerList=Unassigned;

[极速小王子]

是C语言吗?
Variant SQLServer;
Variant ServerList;

[叶子哟]

自己试呗！
：）

[叶子哟]

bcb5下不行