[firebase-br] Saber nome do computador

[Evandro Siqueira]

Eder,

Pelo pouco que conheço do IB/FB, acredito que não. Entretanto desenvolvi uma
pequena função em Delphi que me retorna o nome da máquina. Só não sei se há
como adapta-la para uma UDF ou SP. E só mais uma problemática: só funciona
100% em windows 98, pq no XP, NT e w2k a chave do registro que guarda esta
informação tem outros nomes e outras localizações.

Mesmo assim, segue o código e, sinceramente, espero que tenha alguma
utilidade.


function NomeComputador : string;
var
  registro : tregistry;
begin
  registro:=tregistry.create;
  registro.RootKey:=HKEY_LOCAL_MACHINE;
  registro.openkey('System\CurrentControlSet\Services\VXD\VNETSUP',false);
  result:=registro.readstring('ComputerName');
end;

[]'s
Evandro Siqueira
Programador
Recife/PE

----- Original Message ----- 
From: "Eder Ribeiro" <eder.rib em gmail.com>
To: "FireBase" <lista em firebase.com.br>
Sent: Friday, July 22, 2005 5:00 PM
Subject: [firebase-br] Saber nome do computador


Galera,

    É possível, através de alguma instrução sql, saber qual é o nome da
máquina em que está rodando o sistema?

Grato,

Eder Ribeiro
Ribeirão Preto - SP
"Quando o compilador não está feliz, ninguém está"
______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
Para editar sua configuração na lista, use o endereço
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas: http://firebase.com.br/pesquisa