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

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.

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

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.