TOTVSTEC

Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

« Anterior Versão 9 Próxima »

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
    (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".
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.
No PPC64 será retornado o Host ID da máquina e não SMBIOS UUID.

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/Host ID
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
Exemplos
#include "protheus.ch"

User Function GetSrvInfo()
   local aInfoComp := GetSrvInfo()
   local lenEth := 0
   local lenEthInfo := 0
   local i := 0
   local stI := ""
   local j := 0
   local stJ := ""

   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]+chr(13)+chr(10)+;
      'Nome Linguagem: ' + aInfoComp[9]+chr(13)+chr(10)+;
      'UUID: ' + aInfoComp[10]+chr(13)+chr(10)

    lenEth := Len(aInfoComp[11])
    cInfoComp := cInfoComp + 'Total ETHs: ' + AllTrim(Str(lenEth)) +chr(13)+chr(10)
    for i:=1 to lenEth
       stI := AllTrim(Str(i))
       lenEthInfo := Len(aInfoComp[11][i])
       cInfoComp := cInfoComp + 'Total info ETH'+stI+': ' + AllTrim(Str(lenEthInfo))+chr(13)+chr(10)
       for j:=1 to lenEthInfo
          if j == 1
             stJ := "Nome"
          elseif j == 2
             stJ := "MacAddr"
          else
             stJ := AllTrim(Str(j))
          endif
          cInfoComp := cInfoComp + ("ETH"+stI+"["+stJ+"]: " + aInfoComp[11][i][j])+chr(13)+chr(10)
       Next
    Next
 
    MsgInfo(cInfoComp)
  Return .T.

 

Preview
Exemplo da função GetSrvInfo()
Windows:
Linux:
PPC64:

 
Abrangência
TOTVS Application Server

 

  • Sem rótulos