How to detect current OS version and OS Language (ex. if Windows XP Japanese OS)

[cruzader]

Hello,



Is there a way to detect what OS version and OS language is currently installed

in the local PC?



Regards,

Ruel J. Saunar

[YMinaev]

Hi Ruel,



To get Windows version information, you can use the Sys.OSInfo object.

As for the current locale, try using the HKEY_CURRENT_USER\Control Panel\International\LocaleName registry key. You can obtain its value by using the RegRead method of the WScript.Shell object.

[cruzader]

Hello Jared,



Thanks for the information.

The primary task of the script I planned of creating was to determine

if the language of the current PC's OS is English (United States).

Below is the function I created for checking if the language is US.



Function IsLangUS()

    sComputer = "."

    Set oWMI = GetObject("winmgmts:" _

        & "{impersonationLevel=impersonate}!\\" _

        & sComputer _

        & "\root\cimv2")

 

    Set colOperatingSystems = oWMI.ExecQuery _

        ("Select * from Win32_OperatingSystem")

 

    For Each oOS in colOperatingSystems

        iOSLang = oOS.OSLanguage

    Next

 

    If (iOSLang = 1033) Then

        IsLangUS = True

    Else

        IsLangUS = False

    End If

End Function





Is the function above correct?  Anyway, I'll also try your suggestion.

Thanks.



Regards,

Ruel J. Saunar

[YMinaev]

Hi Ruel,



Your function seems to be correct, and you can continue using it. Checking the registry as I suggested is just one of possible solutions.