中英文操作系统切换导致的找不到对象的解决方法

如果在编程的时候调用了Windows的网页对话框，那么就会出现标题为“选择用户 -- 网页对话框”的页面，这样的脚本如果在英文版的操作系统中运行，就会报找不到对象的错误。

经查找原因，发现在英文操作系统上弹出的页面标题是“选择用户 -- Web Page Dialog”，导致QTP识别成不同的对象。

那么如果想要在中英文操作系统中，都能使脚本运行通过，怎么办？

这里提供一种解决方法：先录制英文操作系统下的该对象，然后找出系统语言，编写转换的函数，把差异的部分按照系统语言转换过来即可。

在我的测试系统中，由于不同语言造成的差异不只是这一个地方，所以我把语言项做为环境变量了，这样使用起来比较方便。

提供一个找出操作系统语言的函数，供参考。其他的方法都比较简单，就不赘述了。

Function Language()

 strComputer = "."
 Set ōbjWMIService = 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"
 elseif Language = "2052" then
   Language = "CN"
 End If
    Next

End Function