用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



相关阅读:
php 操作符与控制结构
Js检测判断URL网址输入是否正确
CSS 漂亮搜索框美化代码
手把手教您安装Windows XP
MVC+Jquery开发B/S系统:①列表绑定
模拟OICQ的实现思路和核心程序(三)
CSS简写小集
可关闭与最小化的右下角浮动广告代码
整理:XHTML和CSS常见问题及解决方案
VBS调用WMI实现搜索硬盘mp3文件
第一次用.net2.0 LOGIN登陆控件的困惑和解决方法
CSS Expression 优化
Windows Server 2008 企业级用户需早掌握
SQLServer中汇总功能的使用GROUPING,ROLLUP和CUBE
快速导航

Copyright © 2016 phpStudy |