欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

vbscript 小札记

更新时间: 2014-01-05 01:52:18 责任编辑: Author_N1

 

VBScript 小笔记
Set updateSession = CreateObject( "Microsoft.Update.Session" )
Set updateSearcher=updateSession.CreateupdateSearcher()
WScript.Echo "正在扫描系统漏洞..." & vbCRLF
Set searchResult=updateSearcher.Search("IsInstalled=0 and Type='Software' and IsHidden=0")
WScript.Echo "系统漏洞列表:"
J=0
str_info=""
For I=0 To searchResult.Updates.Count-1
Set update=searchResult.Updates.Item(I)
	If update.MsrcSeverity<>"" Then
	J=J+1
		If InStr(update.Title,"KB2671387")>0 or InStr(update.Title,"KB2621440")>0 or InStr(update.Title,"KB2667402")>0 then
		WScript.Echo update.Title & "| 发布日期 " & update.LastDeploymentChangeTime & vbCRL
		End If
	End If
Next
WScript.Echo "系统漏洞扫描结束"
WScript.Quit


因为需要写了个VBS脚本来查看一下指定的几个补丁是否打了.初次测试环境是在windows server 2003,并且执行OK

问题1. 在win7中总是提示语法错误

            解决:文件的编码引起的,在win7里面.vbs文件的编码成了UTF-8,改成ANSI即可。

                       网上有说注意不要有中文的空格之类的,也要注意

问题2. 在winXP中执行,弹出异常框:错误代码80070422  无法启动服务器,原始可能是已被禁用或与其它关联的设备...

            解决:cmd>services.msc  

                        win7里面是启动windows Update 服务

                        winXP里面是启动Automatic Updates服务

            

上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 01:52:18
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/2293/
本文WWW.DOC100.NET DOC100.NET版权所有。