提取网络浏览器的摘要信息

这个VB脚本能够提取摘要信息，如：活动打印机、密码长度、内容指导、IEAK安装、语言、产品标识和网络浏览器的版本。

　　然而，在你运行这个脚本之前，一定要确保你的工作站中有最新的脚本运行引擎。你可以在微软脚本运行主页来下载最新的脚本运行引擎。

On Error Resume Next
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20

arrComputers = Array("COMPUTERNAMES")
For Each strComputer In arrComputers
WScript.Echo
WScript.Echo
"=========================================="
WScript.Echo "Computer: " & strComputer
WScript.Echo
"=========================================="

Set objWMIService = GetObject("winmgmts: \ \" & strComputer & "\root\CIMV2\Applications\MicrosoftIE")
Set colItems = objWMIService.ExecQuery("SELECT * FROM MicrosoftIE_Summary", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)

For Each objItem In colItems
WScript.Echo "ActivePrinter: " & objItem.ActivePrinter
WScript.Echo "Build: " & objItem.Build
WScript.Echo "Caption: " & objItem.Caption
WScript.Echo "CipherStrength: " & objItem.CipherStrength
WScript.Echo "ContentAdvisor: " & objItem.ContentAdvisor
WScript.Echo "Description: " & objItem.Description
WScript.Echo "IEAKInstall: " & objItem.IEAKInstall
WScript.Echo "Language: " & objItem.Language
WScript.Echo "Name: " & objItem.Name
WScript.Echo "Path: " & objItem.Path
WScript.Echo "ProductID: " & objItem.ProductID
WScript.Echo "SettingID: " & objItem.SettingID
WScript.Echo "Version: " & objItem.Version
WScript.Echo
Next
Next