GetHostMachineInfo

function GetHostMachineInfo(

  var puiCIMOSType: UINT;

  var puiCIMOSProductSuite: UINT;

  pszCIMOSVersion: LPWSTR;

  pszCIMOSBuildNumber: LPWSTR;

  pszCIMServicePackMajorVersion: LPWSTR;

  pszCIMServicePackMinorVersion: LPWSTR;

  var puiCIMProcessorArchitecture: UINT

):DWORD;