XProfan

 $I WMI.inc
cls
Var l& = wmi_call("SELECT * FROM Win32_ComputerSystem","Name,Domain")
imprimer "Computer-nom:  "+Trim$($ Substr(GetString$(l&,3),2,»))
imprimer "Windows-Domäne: "+Trim$($ Substr(GetString$(l&,4),2,»))
DestroyWindow(l&)
waitinput
FreeWMI()
end