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
Os dados abaixo são somente a partir do binário 7.00131227P:
aInfoComp[9]: Nome da Linguagem
aInfoComp[10]: SMBIOS UUID
aInfoComp[11]: Array com todas as interfaces de redes da máquina
aInfoComp[11][1][1]: Nome da 1a interface
aInfoComp[11][1][2]: Mac Address da 1a interface
aInfoComp[11][2][1]: Nome da 2a interface
aInfoComp[11][2][2]: Mac Address da 2a interface
aInfoComp[11][3][1]: ...
aInfoComp[11][3][2]: ...
aInfoComp[11][N][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()
TOTVS Application Server
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas