Recuperare il nome computer

Buongiorno a tutti,

avrei la necessità di recuperare le specifiche di un pc, per intenderci tasto dx su questo pc Es. HP ProBook
nome dispositivo 00-pippo_pluto
nome completo dispositivo 00-pippo_pluto.nomedominio.it
ecc…
Io sono alla release 2019r3, non sono passato ancora alla 2020 per motivi di compatibilità con oggetti deprecati.

grazie a tutti
Enrico

L’unica cosa che mi viene in mente è utilizzare un plugin di terze parti, in questo post spiega:

Oppure capire se l’OS ha un file con le caratteristiche Hardwware aggiornate, caricarlo e leggerlo. Ma questo bisogna vedere in base al sistema operativo.

Non si può fare allo stesso modo su OSX e su Win.
Su PC è più semplice perché dovresti trovarlo nelle variabili di ambiente.
Non ho xojo sottomano e vado un po’ a senso, ma comunque una roba così:

Var host_name As String

#If TargetWindows Then
host_name = System.EnvironmentVariable(“COMPUTERNAME”)
#EndIf

#If TargetMacOS Then
Var s As Shell
s = New Shell
s.Execute(“scutil --get ComputerName”)
host_name = s.Result
#EndIf

Dim Systemstring1, Systemstring2, Systemstring3 As String

#If TargetWin32 Then
SystemString1 = System.EnvironmentVariable(“COMPUTERNAME”)
SystemString2 = System.EnvironmentVariable(“USERPROFILE”)
SystemString3 = System.EnvironmentVariable( “USERNAME” )
#Else
Systemstring1 = System.EnvironmentVariable(“USER”)
SystemString2 = System.EnvironmentVariable(“HOME”)
Systemstring3 = System.EnvironmentVariable(“LOGNAME”)
#EndIf

Testato solo in ambiente Windows.