Windows version for VISTA

[Paul25441]

Hello all,

I'm running now Windows Vista

In VFP9 I'm using ASC2BEINT2.prg from Richard G Bean to find the version Windows, is there an update for Windows Vista?

regards

Paul

 

[bborissov]

Check:

http://fox.wikis.com/wc.dll?Wiki~GetWindowsVersion~VFP

Borislav Borissov
VFP9 SP1, SQL Server 2000/2005.
MVP VFP

 

[Mike Lewis]

Paul,

Rick's code was written for VFP 6.0. I feel sure that if he had updated it, he would have posted the update somewhere.

However, why not just use the OS() function? That should work with Vista just like any other operating system. I don't have Vista installed, so cannot tell you the value it will return. But if you have Vista, why not just try it and see.

Mike


__________________________________
Mike Lewis (Edinburgh, Scotland)

My Visual FoxPro site: www.ml-consult.co.uk

 

[Paul25441]

Mike,

The code is updated and returns 'Windows Vista'
os() returns Windows 6.0

regards,
Paul

 

[Mike Lewis]

Paul,

So, haven't you answered your own question?

Mike


__________________________________
Mike Lewis (Edinburgh, Scotland)

My Visual FoxPro site: www.ml-consult.co.uk

 

[rgbean]

If you know you are only running in XP / Vista, you can get additional information with winmgmts. (Some of this info is shown below.)

strComputer = "."
objWMIService = GetObject("winmgmts:"  ;
 + "{impersonationLevel=impersonate}!\\" + strComputer + "\root\cimv2")

colOSes = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objOS in colOSes
  ? "Operating System"
  ? "  Caption: " + objOS.Caption &&Name
  ? "  Version: " + objOS.Version &&Version + build
  ? "  ServicePackMajorVersion: " + TRANSFORM(objOS.ServicePackMajorVersion) + "." ;
    + TRANSFORM(objOS.ServicePackMinorVersion)
endfor

Rick

 

[Paul25441]

Thank you Rick
It's working fine
regards
Paul