XProfan

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