Segue abaixo um exemplo simples de como pegar qualquer informação do SO, MAC de Rede, Serial de HD ou coisa desse tipo, basta usar o comando do DOS "WMIC", especificando a ROLE com subcomando GET seguido da informação desejada.
Ex:
WMIC OS GET CAPTION
ou
WMIC OS GET CAPTION, VERSION > OS.TXT
WMIC OS GET /ALL (ver todas as informações)
e assim por diante.
Função exemplo:
Código: Selecionar todos
FUNCTION cl_GetOSInfo()
Local mRetorno, mValor
Run Wmic os get caption, CSDVersion, Version > os.txt
mValor := cl_LimpaFrase (MemoRead("os.txt"))
mValor := Alltrim(StrTran(mValor, 'Caption', ''))
mValor := Alltrim(StrTran(mValor, 'CSDVersion', ''))
mValor := Alltrim(StrTran(mValor, 'Version', ''))
mValor := Alltrim(StrTran(mValor, ' ', ' | '))
FErase("os.txt")
mRetorno:=mValor
return mRetorno