判断系统补丁 - 爱国者安全网新闻中心

通行证│用户名: 密码: 验证码: 验证码,看不清楚?请点击刷新验证码

电信 ┊ 网通 ┊ 铁通 ┊ 移动　

在线人

文章搜索：

热门搜索：红客黑鹰红客技术安全动画红客培训

　业内新闻漏洞公告病毒公告电脑知识网络知识菜鸟入门攻防教程黑客攻防安全编程工具使用综合安全个人安全安全相关 Q Q安全原创精华红客人物站内事件

您现在的位置：爱国者安全网 >> 文章类 >> 红客教程 >> 网络攻防 >> 文章正文

判断系统补丁

责任编辑：酷酷の鱼　更新日期：2008-4-16

作者：lcx
来源：vbs小铺

来自微软脚本专家：

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

上一篇文章： vbs搜索文件名或者得到目录列表

下一篇文章：推荐:网管员必知常识常用电脑密码破解秘诀