Code:
function IsVMWare()
  $IsVMWare=iif(instr(GetObject("winmgmts:\\.\root\cimv2").ExecQuery("Select Manufacturer from " + 
  "Win32_ComputerSystem").item("Win32_Computersystem='" + @wksta + "'").Manufacturer,"VMWARE"),1,0)
Endfunction