Histórico da Página

User function exemplo()
  local aSrvInfo := GetSrvInfo()
  local cDetails := ""
  local i := 0
  cDetails := "Nome Computador: " + aSrvInfo[01] + chr(13) + chr(10) // Nome do servidor
  cDetails += "Sistema Operacional: " + aSrvInfo[02] + chr(13) + chr(10) // Sistema Operacional
  cDetails += "Informações Adicionais do SO: " + aSrvInfo[03] + chr(13) + chr(10) // Informações adicionais do sistema operacional
  cDetails += "Memória: " + aSrvInfo[04] + chr(13) + chr(10) // Memória
  cDetails += "Número de Processadores: " + aSrvInfo[05] + chr(13) + chr(10) // Número de processadores
  cDetails += "Velocidade do Processador: " + aSrvInfo[06] + chr(13) + chr(10) // Velocidade do processador
  cDetails += "Identificação do Processador: " + aSrvInfo[07] + chr(13) + chr(10) // Identificação do processador
  cDetails += "Linguagem: " + aSrvInfo[08] + chr(13) + chr(10) // Locale do sistema operacional
  cDetails += "Nome da LanguagemLinguagem: " + aSrvInfo[09] + chr(13) + chr(10) // Nome do locale do sistema operacional
  cDetails += "UUID: " + aSrvInfo[10] + chr(13) + chr(10) // SMBIOS UUID/Host ID
  for i := 1 to len(aSrvInfo[11])
    cDetails += "Interface: " + " " + aSrvInfo[11][i][1] + chr(13) + chr(10) // Nome da interface
    cDetails += "Mac Address: " + " " + aSrvInfo[11][i][2] + chr(13) + chr(10) // Mac Address da interface
  next i
  // Novo campo válido a partir da versão 20.3.1.3 do AppServer
  cDetails += "Arquitetura do Processador: " + aSrvInfo[12] + chr(13) + chr(10) // Arquitetura do processador
  // Novo campo válido a partir da versão 24.3.0.0 do AppServer
  cDetails += "Detalhes SO: " + aSrvInfo[13] + chr(13) + chr(10) // Detalhes do SO
  msginfo(cDetails)
Return