Function GetOSLanguage()
strComputer = "."
Set objWMIService = GetObject("winmgmts://" &strComputer &"/root/CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem")
For Each objItem In colItems
Language = objItem.OSLanguage
If Language = "1033" Then
GetOSLanguage= "EN"
GetOSLanguage= "English"
elseif Language = "2052" then
GetOSLanguage= "CN"
GetOSLanguage= "Chinese"
End If
Next
End Function
MsgBox "Your Operation System Language is : " + GetOSLanguage 'WScript.Echo language()