Histórico da Página

...

Portuguese

Pagetitle

	GetSrvInfo
	GetSrvInfo

Colapse ALL

Expand ALL

Função: GetSrvInfo

Retorna um array com as definições do computador (Application Server) que o Smart Client está conectado.

Sintaxe

GetSrvInfo ( ) --> aRet

Retorno

aRet

Retorna um array com as definições do computador (Application Server) que o Smart Client está conectado. Para informações da estrutura do array, consulte a área "Observações".

Observações

Na distribuição RedHat, é necessário setar o nome do host com o comando "/bin/hostname <<nomedohost>>", e informar no /etc/hosts o ip e hostname da máquina para que o GetServerIP funcione.

Estrutura do array de retorno:

aInfoComp[1]: Nome do Computador
aInfoComp[2]: Sistema Operacional
aInfoComp[3]: Informação adicional - [Windows o ServicePack] [Linux o "/proc/version"]
aInfoComp[4]: Memória Física
aInfoComp[5]: Nr. de Processadores
aInfoComp[6]: MHZ Processador
aInfoComp[7]: Descrição Processador
aInfoComp[8]: Linguagem

Os dados abaixo são somente a partir do Protheus 11 com release superior a binário 7.00121227P00131227P:

aInfoComp[9]: Nome da Linguagem

aInfoComp[10]: SMBIOS UUID

aInfoComp[11]: Array com todas as interfaces de redes da máquina

aInfoComp[11][1]: Nome da 1a interface

aInfoComp[11][2]: Mac Address da 1a interface

aInfoComp[11][3]: Nome da 2a interface

aInfoComp[11][4]: Mac Address da 2a interface

aInfoComp[11][5]: ...

aInfoComp[11][6]: ...

aInfoComp[11][N*2-1]: Nome da 'N' interface

aInfoComp[11][N*2]: Mac Address da 'N' interface

Exemplos

#Include "TOTVS.CH"
User Function GetSrvInfo()                 aInfoComp 
 aInfoComp := GetSrvInfo()   cInfoComp
 cInfoComp:= 'Nome do Computador: ' + aInfoComp[1]+chr(13)+chr(10)+;              
 'Sistema Operacional: ' + aInfoComp[2]+chr(13)+chr(10)+;              
 'Informação adicional: ' + aInfoComp[3]+chr(13)+chr(10)+;              
 'Memória: ' + aInfoComp[4]+chr(13)+chr(10)+;              
 'Nr. de Processadores: ' + aInfoComp[5]+chr(13)+chr(10)+;              
 'MHZ Processador: ' + aInfoComp[6]+chr(13)+chr(10)+;              
 'Descrição Processador: ' + aInfoComp[7]+chr(13)+chr(10)+;              
 'Linguagem: ' + aInfoComp[8]  MsgInfo
 MsgInfo(cInfoComp)  Return
 Return

Preview

Exemplo da função GetSrvInfo()

Abrangência

Microsiga Protheus 8.11 , TOTVS Application Server 10 , ByYou Application Server

Árvore de páginas

Versões comparadas

Versão antiga 5

Nova versão 6

Chave

Função: GetSrvInfo