获取浏览器的一写属性的方法：

Dim obj,tempValue
 '获得窗体对象
set obj = Browser("CreationTime:=1").Page("index:=").Object.parentWindow
 '获取浏览器的当前语言。
tempValue = obj.clientInformation.browserLanguage
print(tempValue)
 '获取浏览器的名称。
tempValue = obj.clientInformation.appName
print(tempValue)
 '获取浏览器运行的平台和版本。
tempValue = obj.clientInformation.appVersion
print(tempValue)
 '获取用户的操作系统名称。
tempValue = obj.clientInformation.platform
print(tempValue)
 '获取操作系统适用的默认语言。
tempValue = obj.clientInformation.systemLanguage
print(tempValue)
 '获取浏览器的代码名称。
tempValue = obj.clientInformation.appCodeName
print(tempValue)
 '获取指示 CPU 等级的字符串。
tempValue = obj.clientInformation.cpuClass
print(tempValue)
 '获取表明系统是否处于全局脱机模式的值。
tempValue = obj.clientInformation.onLine
print(tempValue)
 '获取等同于 HTTP 用户代理请求头的字符串。
tempValue = obj.clientInformation.userAgent
print(tempValue)