判断Windows系统补丁

最新推荐文章于 2025-09-13 14:46:57 发布

原创最新推荐文章于 2025-09-13 14:46:57 发布 · 1.3k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#windows #security #防火墙 #service #xp #脚本

vcbcbdelphi的window编程同时被 2 个专栏收录

551 篇文章

订阅专栏

windows系统管理和安全

168 篇文章

订阅专栏

这篇博客介绍了如何通过脚本检查Windows XP系统的安全更新，特别是针对KB899587的补丁，并展示了如何关闭Windows XP Service Pack 2的防火墙。脚本内容包括创建更新会话、搜索软件更新、遍历更新项以检查安装状态，以及启用或禁用防火墙的步骤。

来自微软脚本专家：

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