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

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