#Include "TOTVS.ch"
User Function zExe284()
Local aArea := FWGetArea()
Local aInfo := {}
Local cMensagem := ""
//Busca as informações da máquina
aInfo := GetRmtInfo()
//Monta a mensagem e exibe
cMensagem += "Nome Computador: "+ aInfo[01] + CRLF
cMensagem += "S.O.: "+ aInfo[02] + CRLF
cMensagem += "Inf. Adicional: "+ aInfo[03] + CRLF
cMensagem += "Mem. Fisica: "+ aInfo[04] + CRLF
cMensagem += "Nr.Processadores: "+ aInfo[05] + CRLF
cMensagem += "MHz Processador: "+ aInfo[06] + CRLF
cMensagem += "Descr. Process.: "+ aInfo[07] + CRLF
cMensagem += "Linguagem: "+ aInfo[08] + CRLF
cMensagem += "Navegador: "+ aInfo[09] + CRLF
cMensagem += "Android ou iOS: "+ aInfo[10] + CRLF
cMensagem += "Arquitetura: "+ aInfo[11] + CRLF
cMensagem += "Estát. ou Dinam: "+ aInfo[12] + CRLF
cMensagem += "Pasta do execut: "+ aInfo[13]
ShowLog(cMensagem)
FWRestArea(aArea)
Return