繁體中文当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > 用vbs判断系统补丁的脚本
- VBScript
- VBS教程：运算符-Xor 运算符
- VBS教程：运算符-减运算符 (-)
- VBS教程：运算符-Or 运算符
- VBS教程：运算符-运算符概述
- VBS教程：运算符-运算符优先级
- VBS教程：运算符-Not 运算符
- VBS教程：运算符-乘运算符 (*)
- VBS教程：运算符-Mod 运算符
- VBS教程：运算符-逻辑运算符
- VBS教程：运算符-Is 运算符
- VBS教程：运算符-\ 运算符
- VBS教程：运算符-Imp 运算符
- VBS教程：运算符-幂运算符 (^)
- VBS教程：运算符-Eqv 运算符
- VBS教程：运算符-除运算符 (/)
- VBS教程：运算符-连接运算符 (&)
- VBS教程：运算符-比较运算符
- VBS教程：运算符-赋值运算符 (=)
- VBS教程：运算符-And 运算符
- VBS教程：运算符-运算符(+)
VBScript 中的 用vbs判断系统补丁的脚本
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-11 浏览: 133 ::
收藏到网摘: n/a
Set objSession = CreateObject("Microsoft.Update.Session")
Set objSearcher = objSession.CreateUpdateSearcher
Set objResults = objSearcher.Search("Type='Software'")
Set colUpdates = objResults.Updates
For i = 0 to colUpdates.Count - 1
' If colUpdates.Item(i).Title = _
' "Security Update for Windows XP (KB899587)" Then
'If colUpdates.Item(i).IsInstalled <> 0 Then
'Wscript.Echo "This update is installed."
' Wscript.Quit
'Else
'Wscript.Echo "This update is not installed."
' Wscript.Quit
'End If
' End If
wscript.echo colUpdates.Item(i).Title
Next
'Wscript.Echo "This update is not installed."
如何关闭 Windows XP Service Pack 2 防火墙？
Set objFirewall = CreateObject("HNetCfg.FwMgr")Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
objPolicy.FirewallEnabled = FALSESet objFirewall = CreateObject("HNetCfg.FwMgr")Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
objPolicy.FirewallEnabled = FALSE
评论 (0) All
