Função: GetSrvInfo
Retorna um array com as definições do computador (Application Server) que o Smart Client está conectado.
GetSrvInfo ( ) --> aRet
aRet
- (vetor)
- 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".
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
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
#Include "TOTVS.CH"User Function GetSrvInfo() aInfoComp := GetSrvInfo() 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(cInfoComp) Return
Exemplo da função GetSrvInfo()
Microsiga Protheus 8.11 , TOTVS Application Server 10 , ByYou Application Server
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas