vbs获取中英文操作系统的代码...

vbs获取中英文操作系统的代码...

--原文源于网络

当web程序或者application程序在编程时调用了windows对话框时，此对话框对象就会根据操作系统语言版本的不同而不同，即在中文操作系统下和英文操作系统下调用的对象是不一样的，起码title就不一样了，一个中文一个英文，此时QTP就无法识别了；当同一测试脚本中有多个地方存在这种差异以及为了测试脚本能够在中英文操作系统版本下通用，我们可以将操作系统语言定义为一个变量，使用下面方法可以识别

Function language() 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 'Language = "EN" Language = "English" elseif Language = "2052" then 'Language = "CN" Language = "Chinese" End If     Next End Function

MsgBox "Your Operation System Language is : " + language 'WScript.Echo language()