TOTVSTEC

Árvore de páginas

Versões comparadas

Versão antiga 11

changes.mady.by.user Marcos L Cassarini Taranta

Gravado em

comparado com

Nova versão 12

changes.mady.by.user Eduardo Sinkiko Yonamine Costa

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/327912/newLayout.css

...

Pagetitle
GetSrvInfo
GetSrvInfo

...

Sintaxe

...

Bloco de código

Função: GetSrvInfo

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

GetSrvInfo ( ) --> aRet

Retorno
aSrvInfo := getSrvInfo()

Retorno

NomeTipoDescrição
aSrvInfoArray

...

Retorna um array com as definições do

...

Observações
Em build superior a versão 7.00.131227A, a função retornará também informações de AppServer para e sendo executado em dispositivos Android.
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 estarão disponíveis a partir do binário 7.00.131227A:

...

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"

...

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

...

servidor onde o

Inclusão de trecho
Application Server
Application Server
nopaneltrue
foi instanciado.

Estrutura do array:

PosiçãoTipoDescriçãoObservações
1CaractereNome do servidor 
2CaractereSistema Operacional 
3CaractereInformações adicionais do sistema operacional 
4CaractereMemória 
5CaractereNúmero de processadores 
6CaractereVelocidade do processador 
7CaractereIdentificação do processador 
8CaractereLocale do sistema operacional 
9CaractereNome do locale do sistema operacional(aviso) Disponível em build igual ou superior a 7.00.131227a
10CaractereSMBIOS UUID/Host ID(aviso) Disponível em build igual ou superior a 7.00.131227a
11Array

Array com as interfaces de rede do servidor

Estrutura do array de interfaces:

PosiçãoTipoDescrição
1ArrayDetalhes da interface

Estrutura do array de detalhes da interface:

PosiçãoTipoDescrição
1CaractereNome da interface
2CaractereMac Address da interface
(aviso) Disponível em build igual ou superior a 7.00.131227a

Observações

  1. O processo de resolução de nomes depende inclusive do sistema operacional utilizado, e em algumas distribuições do Linux (exemplo Red Hat, SUSE) podem requerer configurações adicionais do sistema operacional
  2. A partir da build 7.00.1312227a, a função retorna informações do 
    Inclusão de trecho
    Application Server
    Application Server
    nopaneltrue
     para e sendo executados em dispositivos Android.

Exemplos

Exemplo 
Toggle Cloak
exclusivetrue

Cloak
visibletrue
true

Veja também

Resolução de nomes para TCP/IP

      '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)

...

    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:
Image Removed
Linux:
Image Removed
PPC64:
Image Removed
 
Abrangência
TOTVS Application Server

...