获取局域网内的SQL SERVER 服务器名,打过SP4的机器就得不到本机得名字,可以得到其他机器得名字
jabcf 2004-07-19 09:11:35 我们的机子上都装有SQL SERVER,我的权限是admin,最高权限
没打SP4的结果就正确,怎么回事呀
uses comobj;
procedure TForm1.FormShow(Sender: TObject);
var
SQLServer:Variant;
ServerList:Variant;
i:integer;
begin
SQLServer := CreateOleObject('SQLDMO.Application');
ServerList:= SQLServer.ListAvailableSQLServers;
if serverlist.count<1 then application.Terminate
else
begin
combobox1.Items.Clear;
for i:=1 to serverlist.count do
combobox1.Items.Add(serverlist.item(i)) ;
end;
SQLServer:=NULL;
serverList:=NULL;
end;