给大家一个WMI写的小工具,用于MS08067补丁更新

本文介绍了一个用于自动化安装MS08-067安全补丁的VBScript脚本,该脚本能够智能识别并处理多种Windows操作系统版本,包括Windows XP Professional、Home Edition和Windows Server 2003等。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

该程序主要针对的操作系统有

Microsoft Windows XP Professional

Microsoft Windows XP Home Edition

Microsoft Windows 2000 Professional

Microsoft Windows 2000 Server

Microsoft Windows 2000 Advanced Server

Microsoft(R) Windows(R) Server 2003

 

程序下载地址

 

程序自己编写,并已经经过测试,请放心使用,呵呵

 

 

'本程序由某某电科院信息研究所编制,如有改动和引用表明引用出处。
'希望给你带来工作上的便利。    作者:bubble4629
On Error Resume Next
dim a                         '此处为判断计算机操作系统变量
dim path1
path1="c:/ms08067/windowsxp.exe /q /z"
dim path2
path2="c:/ms08067/windows2000.exe /q /z"
dim path3
path3="c:/ms08067/windows2003.exe /q /z"
set wshshell=CreateObject("wscript.shell")
set fso=wscript.createobject("scripting.filesystemobject")
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!//" & strComputer & "/root/cimv2")
Set colOperatingSystems = objWMIService.ExecQuery _
    ("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
a=objOperatingSystem.Caption
'Wscript.echo a

select case a
case "Microsoft Windows XP Professional"
    msgbox("XP系统点击确定开始安全MS08-067补丁")
    set oexec=wshshell.exec(path1)
    wscript.sleep 50000   
    fso.deletefile "c:/ms08067.vbs"
    fso.deletefolder("c:/ms08067")
    fso.close
    set WshShell=nothing
    Wscript.quit
case "Microsoft Windows 2000 Professional"
    msgbox("2000系统点击确定开始安全MS08-067补丁")
    set oexec=wshshell.exec(path2)
    wscript.sleep 50000
    fso.deletefile "c:/ms08067.vbs"
    fso.deletefolder("c:/ms08067")
    fso.close
    set WshShell=nothing
    Wscript.quit
case "Microsoft Windows XP Home Edition"
    msgbox("xp系统点击确定开始安全MS08-067补丁")
    set oexec=wshshell.exec(path1)
    wscript.sleep 50000
    fso.deletefile "c:/ms08067.vbs"
    fso.deletefolder("c:/ms08067")
    fso.close
    set WshShell=nothing
    Wscript.quit
case "Microsoft Windows 2000 Advanced Server"
    msgbox("2000系统点击确定开始安全MS08-067补丁")
    set oexec=wshshell.exec(path2)
    wscript.sleep 50000
    fso.deletefile "c:/ms08067.vbs"
    fso.deletefolder("c:/ms08067")
    fso.close
    set WshShell=nothing
    Wscript.quit
case "Microsoft Windows 2000 Server"
    msgbox("2000系统点击确定开始安全MS08-067补丁")
    set oexec=wshshell.exec(path2)
    wscript.sleep 5000
    fso.deletefile "c:/ms08067.vbs"
    fso.deletefolder("c:/ms08067")
    fso.close
    set WshShell=nothing
    Wscript.quit
case "Microsoft(R) Windows(R) Server 2003"
    msgbox("2003系统点击确定开始安全MS08-067补丁")
    set oexec=wshshell.exec(path3)
    wscript.sleep 5000
    fso.deletefile "c:/ms08067.vbs"
    fso.deletefolder("c:/ms08067")
    fso.close
    set WshShell=nothing
    Wscript.quit
case else
    msgbox("不能识别,程序终止")
    wscript.quit
end select

Next

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值