XProfan

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