Retorna um array com as definições do servidor onde o TOTVS | Application Server foi instanciado.
GetSrvInfo()
Nome | Tipo | Descrição |
|---|---|---|
aSrvInfo | vetor | Retorna um array com informações do Totvs Application Server. Para o formato do array vide observação. |
Estrutura do array de retorno:
Posição | Tipo | Descrição |
|---|---|---|
aSrvInfo[1] | Caractere | Nome do servidor |
aSrvInfo[2] | Caractere | Sistema Operacional |
aSrvInfo[3] | Caractere | Informações adicionais do sistema operacional |
aSrvInfo[4] | Caractere | Memória |
aSrvInfo[5] | Caractere | Número de processadores |
aSrvInfo[6] | Caractere | Velocidade do processador |
aSrvInfo[7] | Caractere | Identificação do processador |
aSrvInfo[8] | Caractere | Locale do sistema operacional |
aSrvInfo[9](*) | Caractere | Nome do locale do sistema operacional |
aSrvInfo[10](**) | Caractere | SMBIOS UUID/Host ID |
aSrvInfo[11](***) | Array | Array com as interfaces de rede do servidor* |
(*) Disponível em build igual ou superior a 7.00.131227A.
(**) Disponível em build igual ou superior a 7.00.131227A. Para o "TOTVSTEC NG" no linux, dê permissão especial de execução no dmidecode (Ex. chmod a+s /usr/sbin/dmidecode) coloque-o no PATH (Ex: export PATH=${PATH}:/usr/sbin).
(***) Disponível em build igual ou superior a 7.00.131227A. Estrutura do Array das interfaces de rede:
Posição | Tipo | Descrição |
|---|---|---|
1 | Array | Detalhes da interface |
Detalhes da Interface:
Posição | Tipo | Descrição |
|---|---|---|
1 | Caractere | Nome da interface |
2 | Caractere | MAC Address da interface |
User function exemplo()
local aSrvrInfo := GetSrvInfo()
local cDetails := ""
local i := 0
cDetails := aSrvrInfo[01] + chr(13) + chr(10) // Nome do servidor
cDetails += aSrvrInfo[02] + chr(13) + chr(10) // Sistema Operacional
cDetails += aSrvrInfo[03] + chr(13) + chr(10) // Informações adicionais do sistema operacional
cDetails += aSrvrInfo[04] + chr(13) + chr(10) // Memória
cDetails += aSrvrInfo[05] + chr(13) + chr(10) // Número de processadores
cDetails += aSrvrInfo[06] + chr(13) + chr(10) // Velocidade do processador
cDetails += aSrvrInfo[07] + chr(13) + chr(10) // Identificação do processador
cDetails += aSrvrInfo[08] + chr(13) + chr(10) // Locale do sistema operacional
cDetails += aSrvrInfo[09] + chr(13) + chr(10) // Nome do locale do sistema operacional
cDetails += aSrvrInfo[10] + chr(13) + chr(10) // SMBIOS UUID/Host ID
for i := 1 to len(aSrvrInfo[11])
cDetails += " " + aSrvrInfo[11][i][1] + chr(13) + chr(10) // Nome da interface
cDetails += " " + aSrvrInfo[11][i][2] + chr(13) + chr(10) // Mac Address da interface
next i
msginfo(cDetails)
Return
