Ajude o site desativando o bloqueador de anúncio

ASSINE A NEWSLETTER

Cadastrando...
PIX uDesenv pix deposito

GetSrvInfo [AS]

Autor: Eurai Criado: 01/01/2016 Atualizado: 26/04/2025

Descrição

GetSrvInfo [AS] - Retorna um array com as definições do servidor onde o TOTVS | Application Server foi instanciado.

 

Sintaxe

GetSrvInfo()

 

Parâmetros


Par Nome Tipo Descrição Default Obg Ref

 

Retorno

Retorno Tipo Descrição
aRet Array
Retorna um array com informações do Totvs Application Server

 

Exemplo

#INCLUDE "TOTVS.CH"
 
User Function GetSrvInfo()
Local cDetails := ''
Local nI := 0
Local aSrvrInfo := GetSrvInfo()
 
cDetails := aSrvrInfo[01] + CRLF // Nome do servidor
cDetails += aSrvrInfo[02] + CRLF // Sistema Operacional
cDetails += aSrvrInfo[03] + CRLF // Informações adicionais do sistema operacional 
cDetails += aSrvrInfo[04] + CRLF // Memória
cDetails += aSrvrInfo[05] + CRLF // Número de processadores
cDetails += aSrvrInfo[06] + CRLF // Velocidade do processador
cDetails += aSrvrInfo[07] + CRLF // Identificação do processador
cDetails += aSrvrInfo[08] + CRLF // Locale do sistema operacional
cDetails += aSrvrInfo[09] + CRLF // Nome do locale do sistema operacional
cDetails += aSrvrInfo[10] + CRLF // SMBIOS UUID/Host ID
 
For nI := 1 to Len(aSrvrInfo[11])
 cDetails += " " + aSrvrInfo[11,nI,01] + CRLF // Nome da interface
 cDetails += " " + aSrvrInfo[11,nI,02] + CRLF // Mac Address da interface
Next nI
 
MsgInfo( "GetSrvInfo: " + cDetails, 'UniversoADVPL' )
 
Return( Nil )

Resultado
getsrvinfo_-_resultado_01  

 

 

Informações adicionais

 

 

 

 

 

 

Gostou? Compartilhe com seus amigos e deixe um comentário! 😎  

 

 

 

 

 

 

 

Discussão (0)

Sem comentários ainda

Realize o LOGIN no site para poder comentar