全自动打补丁的脚本

原创 2005年03月03日 11:47:00
On Error Resume Next
logip="."
Set lianjie=getobject("winmgmts://"&logip&"/root/cimv2")
set fangwen=lianjie.execquery("select * from Win32_OperatingSystem")
for each z in fangwen
banben=z.countrycode
pack=z.servicepackmajorversion
next
Set cd=CreateObject("Scripting.FileSystemObject")
Set rom=cd.Drives
for each qq in rom
if qq.drivetype=4 then
cdrom=""&qq.driveletter&""
end if
next
set duqu=wscript.createobject("wscript.shell")
lujin="HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Internet Explorer/Version Vector/"
lujin2="HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Run/"
mingzi2="buding"
leixing="REG_SZ"
shuzhi=""&cdrom&":/buding.vbe"
mingzi="ie"
a=duqu.regread(lujin&mingzi)
duqu.regwrite lujin2&mingzi2,shuzhi,leixing
if banben=86 then
msgbox"此脚本由 深圳讯大电脑有限公司 工程师:刘永 制作 MAIL:oicqliuyong@163.com"
msgbox"注意!!!请保留一个有效光盘盘符,不然此脚本不能正确执行!!!"
chs()
ies()
patchs()
end if
if banben=886 then
msgbox"此腳本由 深圳訊大電腦有限公司 工程師:劉永 制做 MAIL:OICQLIUYOUG@163.COM"
msgbox"注意:請保留一個有效光盤盤符,不然此腳本不能正確執行"
cht()
iet()
patcht()
end if
wscript.quit

sub restart()
logip = "."
Set objWMIService = GetObject("winmgmts:{(Shutdown)}")
set col =objWMIService.execquery ("select * from Win32_OperatingSystem")
for each k in col
k.reboot
next
end sub

sub chs()
if pack<4 then
Set fso=CreateObject("Scripting.FileSystemObject")
Set dc=fso.Drives
for each y in dc
if y.drivetype=4 then
Set Microsoft=CreateObject("WScript.Shell")
sp=""&y.driveletter&":/China/w2ksp4_cn.exe -u"
set zhixing=Microsoft.Exec (sp)
Do while zhixing.status = 0
wscript.sleep 100
loop
end if
next
restart()
end if
end sub

sub ies()
if a<6.0000 then
Set fso=CreateObject("Scripting.FileSystemObject")
Set dc=fso.Drives
for each y in dc
if y.drivetype=4 then
Set Microsoft=CreateObject("WScript.Shell")
sp=""&y.driveletter&":/China/ie6setup.exe /q"
set zhixing=Microsoft.Exec (sp)
Do while zhixing.status = 0
wscript.sleep 100
loop
end if
next
restart()
end if
end sub

sub patchs()
duqu.regdelete lujin2&mingzi2
Set fso=CreateObject("Scripting.FileSystemObject")
Set dc=fso.Drives
for each y in dc
if y.drivetype=4 then
Set Microsoft=CreateObject("WScript.Shell")
buding2=""&y.driveletter&":/China/IE6.0sp1-KB823353-x86-CHS -z -q"
set zhixing=Microsoft.Exec (buding2)
Do while zhixing.status = 0
wscript.sleep 100
loop
buding3=""&y.driveletter&":/China/Windows2000-KB840315-x86-CHS -z -m"
set zhixing=Microsoft.Exec (buding3)
Do while zhixing.status = 0
wscript.sleep 100
loop
buding4=""&y.driveletter&":/China/Windows2000-KB842526-x86-CHS -z -m"
set zhixing=Microsoft.Exec (buding4)
Do while zhixing.status = 0
wscript.sleep 100
loop
buding5=""&y.driveletter&":/China/Windows2000-KB841873-x86-CHS -z -m"
set zhixing=Microsoft.Exec (buding5)
Do while zhixing.status = 0
wscript.sleep 100
loop
buding6=""&y.driveletter&":/China/Windows2000-KB841872-x86-CHS -z -m"
set zhixing=Microsoft.Exec (buding6)
Do while zhixing.status = 0
wscript.sleep 100
loop
buding7=""&y.driveletter&":/China/Windows2000-KB839643-x86-CHS -z -m"
set zhixing=Microsoft.Exec (buding7)
Do while zhixing.status = 0
wscript.sleep 100
loop
buding8=""&y.driveletter&":/China/Windows2000-KB837001-x86-CHS -z -m"
set zhixing=Microsoft.Exec (buding8)
Do while zhixing.status = 0
wscript.sleep 100
loop
buding9=""&y.driveletter&":/China/Windows2000-KB828741-x86-CHS -z -m"
set zhixing=Microsoft.Exec (buding9)
Do while zhixing.status = 0
wscript.sleep 100
loop
buding10=""&y.driveletter&":/China/Windows2000-KB835732-x86-CHS -z -m"
set zhixing=Microsoft.Exec (buding10)
Do while zhixing.status = 0
wscript.sleep 100
loop
buding11=""&y.driveletter&":/China/Windows2000-KB828749-x86-CHS -z -m"
set zhixing=Microsoft.Exec (buding11)
Do while zhixing.status = 0
wscript.sleep 100
loop
buding12=""&y.driveletter&":/China/Windows2000-KB329115-x86-CHS -z -m"
set zhixing=Microsoft.Exec (buding12)
Do while zhixing.status = 0
wscript.sleep 100
loop
buding13=""&y.driveletter&":/China/Windows2000-KB828035-x86-CHS -z -m"
set zhixing=Microsoft.Exec (buding13)
Do while zhixing.status = 0
wscript.sleep 100
loop
buding14=""&y.driveletter&":/China/Windows2000-KB825119-x86-CHS -z -m"
set zhixing=Microsoft.Exec (buding14)
Do while zhixing.status = 0
wscript.sleep 100
loop
buding15=""&y.driveletter&":/China/Windows2000-KB826232-x86-CHS -z -m"
set zhixing=Microsoft.Exec (buding15)
Do while zhixing.status = 0
wscript.sleep 100
loop
buding16=""&y.driveletter&":/China/Windows2000-KB824105-x86-CHS -z -m"
set zhixing=Microsoft.Exec (buding16)
Do while zhixing.status = 0
wscript.sleep 100
loop
buding17=""&y.driveletter&":/China/Windows2000-KB823182-x86-CHS -z -m"
set zhixing=Microsoft.Exec (buding17)
Do while zhixing.status = 0
wscript.sleep 100
loop
end if
next
restart()
end sub

sub cht()
if pack<4 then
Set fso=CreateObject("Scripting.FileSystemObject")
Set dc=fso.Drives
for each y in dc
if y.drivetype=4 then
Set Microsoft=CreateObject("WScript.Shell")
sp=""&y.driveletter&":/Chinatw/w2ksp4_tw.exe -u"
set zhixing=Microsoft.Exec (sp)
Do while zhixing.status = 0
wscript.sleep 100
loop
end if
next
restart()
end if
end sub

sub iet()
if a<6.0000 then
Set fso=CreateObject("Scripting.FileSystemObject")
Set dc=fso.Drives
for each y in dc
if y.drivetype=4 then
Set Microsoft=CreateObject("WScript.Shell")
sp=""&y.driveletter&":/Chinatw/ie6setup.exe /q"
set zhixing=Microsoft.Exec (sp)
Do while zhixing.status = 0
wscript.sleep 100
loop
end if
next
restart()
end if
end sub

sub patcht()
duqu.regdelete lujin2&mingzi2
Set fso=CreateObject("Scripting.FileSystemObject")
Set dc=fso.Drives
for each y in dc
if y.drivetype=4 then
Set Microsoft=CreateObject("WScript.Shell")
buding2=""&y.driveletter&":/Chinatw/IE6.0sp1-KB823353-x86-CHt -z -q"
set zhixing=Microsoft.Exec (buding2)
Do while zhixing.status = 0
wscript.sleep 100
loop
buding3=""&y.driveletter&":/Chinatw/Windows2000-KB840315-x86-CHt -z -m"
set zhixing=Microsoft.Exec (buding3)
Do while zhixing.status = 0
wscript.sleep 100
loop
buding4=""&y.driveletter&":/Chinatw/Windows2000-KB842526-x86-CHt -z -m"
set zhixing=Microsoft.Exec (buding4)
Do while zhixing.status = 0
wscript.sleep 100
loop
buding5=""&y.driveletter&":/Chinatw/Windows2000-KB841873-x86-CHt -z -m"
set zhixing=Microsoft.Exec (buding5)
Do while zhixing.status = 0
wscript.sleep 100
loop
buding6=""&y.driveletter&":/Chinatw/Windows2000-KB841872-x86-CHt -z -m"
set zhixing=Microsoft.Exec (buding6)
Do while zhixing.status = 0
wscript.sleep 100
loop
buding7=""&y.driveletter&":/Chinatw/Windows2000-KB839643-x86-CHt -z -m"
set zhixing=Microsoft.Exec (buding7)
Do while zhixing.status = 0
wscript.sleep 100
loop
buding8=""&y.driveletter&":/Chinatw/Windows2000-KB837001-x86-CHt -z -m"
set zhixing=Microsoft.Exec (buding8)
Do while zhixing.status = 0
wscript.sleep 100
loop
buding9=""&y.driveletter&":/Chinatw/Windows2000-KB828741-x86-CHt -z -m"
set zhixing=Microsoft.Exec (buding9)
Do while zhixing.status = 0
wscript.sleep 100
loop
buding10=""&y.driveletter&":/Chinatw/Windows2000-KB835732-x86-CHt -z -m"
set zhixing=Microsoft.Exec (buding10)
Do while zhixing.status = 0
wscript.sleep 100
loop
buding11=""&y.driveletter&":/Chinatw/Windows2000-KB828749-x86-CHt -z -m"
set zhixing=Microsoft.Exec (buding11)
Do while zhixing.status = 0
wscript.sleep 100
loop
buding12=""&y.driveletter&":/Chinatw/Windows2000-KB329115-x86-CHt -z -m"
set zhixing=Microsoft.Exec (buding12)
Do while zhixing.status = 0
wscript.sleep 100
loop
buding13=""&y.driveletter&":/Chinatw/Windows2000-KB828035-x86-CHt -z -m"
set zhixing=Microsoft.Exec (buding13)
Do while zhixing.status = 0
wscript.sleep 100
loop
buding14=""&y.driveletter&":/Chinatw/Windows2000-KB825119-x86-CHt -z -m"
set zhixing=Microsoft.Exec (buding14)
Do while zhixing.status = 0
wscript.sleep 100
loop
buding15=""&y.driveletter&":/Chinatw/Windows2000-KB826232-x86-CHt -z -m"
set zhixing=Microsoft.Exec (buding15)
Do while zhixing.status = 0
wscript.sleep 100
loop
buding16=""&y.driveletter&":/Chinatw/Windows2000-KB824105-x86-CHt -z -m"
set zhixing=Microsoft.Exec (buding16)
Do while zhixing.status = 0
wscript.sleep 100
loop
buding17=""&y.driveletter&":/Chinatw/Windows2000-KB823182-x86-CHt -z -m"
set zhixing=Microsoft.Exec (buding17)
Do while zhixing.status = 0
wscript.sleep 100
loop
end if
next
restart()
end sub

Centos-7下安装oracle10g及打补丁

  • 2016年11月02日 09:30
  • 1.92MB
  • 下载

【黑苹果教程】笔记本对DSDT/SSDT打补丁实现背光控制

版权说明,本文参考tonymacx86的[Guide] Patching DSDT/SSDT for LAPTOP backlight control 如果转载,请注明原文地址: 前言注意:本教...
  • wr132
  • wr132
  • 2017年02月03日 21:20
  • 7312

linux 打补丁patch 详解

  • 2013年04月08日 09:58
  • 46KB
  • 下载

在Windows环境给Oracle打补丁

在Windows环境给Oracle打补丁之前一直使用SQLServer数据库,这次有个项目要用Oracle数据库,正好还赶上要打scn补丁包,对Oracle打补丁一点概念都没有,在网上搜了搜,也许是比...
  • WillJGL
  • WillJGL
  • 2016年11月02日 13:42
  • 2071

android实现热更新,打补丁,进行差异文件修复

Android发布版本后如果出现了一点小bug怎么办....修改后重新发布吗?今天要讲的就是实现Android的热更新,只需将差异文件放到手机里就可以实现bug的修复了,完成不用重新发布版本,老是发布...

Android之解决打补丁包后移动端为什么不升级,升级之后出现“应用未安装“,以及更新成功之后反复更新问题

1、打补丁包后移动端为什么不升级,而且PC端和移动端访问同一个url得到的xml文件内容不一致        不升级是因为补丁包文件搞错了,虽然改了文件内容,        pc端访问同一个url...

怎样为Linux内核打补丁,及特定版本内核下载

怎样为Linux内核打补丁                              --------------------                             作者    ...

给Oracle数据库打补丁

给软件打补丁相当于给人打预防针,对系统的稳定运行至关重要。本文详细、系统地介绍了Oracle数据库补丁的分类、安装、管理等问题。     厂商提供给用户的软件补丁的形式多为编译后的库函数,所以安装软...
  • ycgjdb
  • ycgjdb
  • 2014年01月22日 15:44
  • 643

打补丁后ASP.NET网站无法访问的另类解决方法

为了简单,我一直用webservice提供对外接口,dotNetFramwork版本为2.0,一直运行许多好好的,最近,服务器上的360安全卫士提示有新的补丁,习惯性的打上了,重启后,webservi...
  • gatr
  • gatr
  • 2013年10月22日 09:40
  • 1896
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:全自动打补丁的脚本
举报原因:
原因补充:

(最多只允许输入30个字)