Check http://addicted-to-it.blogspot.com/2006/02/wmi-using-wmi-to-detect-machines.html

loLocator 	= CREATEOBJECT('WBEMScripting.SWBEMLocator')
loWMI		= loLocator.ConnectServer() 
loWMI.Security_.ImpersonationLevel = 3  		&& Impersonate

loCS = loWMI.ExecQuery("Select * from Win32_ComputerSystem",,32)

FOR EACH loObj IN loCS
	? loObj.Model
ENDFOR

>Can anyone please tell me how I can get my VFP application to detect if it is running on a virtual server or if it is running in Windows XP mode on Windows 7
>
>TIA