Delphi6 如何获取 SQL SERVER的用户名？

Question

Delphi6 如何获取 SQL SERVER的用户名？

Answer 1

Delphi6  如何获取  SQL  SERVER的用户名？还有如何获取局域内所有的SQL SERVER 的服务器列表？

Answer 2

Delphi6    如何获取    SQL    SERVER的用户名？还有如何获取局域内所有的SQL  SERVER  的服务器列表？

Answer 3

uses Comobj;
    procedure TForm1.Button1Click(Sender: TObject);
    var
    SQLServer:Variant;
    ServerList:Variant;
    i,nServers:integer;
    sRetValue:String;
    begin
      SQLServer := CreateOleObject('SQLDMO.Application');
      ServerList:= SQLServer.ListAvailableSQLServers;
      nServers:=ServerList.Count;
      for i := 1 to nservers do
      ListBox1.Items.Add(ServerList.Item(i));
      SQLServer:=NULL;
      serverList:=NULL;
    end;

Answer 4

uses Comobj;
    procedure TForm1.Button1Click(Sender: TObject);
    var
    SQLServer:Variant;
    ServerList:Variant;
    i,nServers:integer;
    sRetValue:String;
    begin
      SQLServer := CreateOleObject('SQLDMO.Application');
      ServerList:= SQLServer.ListAvailableSQLServers;
      nServers:=ServerList.Count;
      for i := 1 to nservers do
      ListBox1.Items.Add(ServerList.Item(i));
      SQLServer:=NULL;
      serverList:=NULL;
    end;
上面代码是获取在同一个局域网内的，如果一服务器不在同一个局域网而是在另外一个局域网，是用VPN连接的时候，如何获取这在另一局域网中的SQL服务器服务器名？