全自动打补丁的脚本

原创 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
版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

【黑苹果教程】对笔记本的 DSDT/SSDT 打补丁

版权说明:本文章参考tonymacx86的Patching LAPTOP DSDT/SSDTs这篇文章, 如果需要转载,请注明原文地址: 概览为了让OS X的各个组件在你的笔记本上更好的运行,你...
  • wr132
  • wr132
  • 2017-01-31 16:20
  • 12250

linux下patch命令使用详解---linux打补丁命令

功能说明:修补文件。 语  法:patch [-bceEflnNRstTuvZ][-B ][-d ][-D ][-F ][-g ][-i ][-o ][-p ][-r ][-V ][-...

打补丁式的移植U-Boot

通过打补丁移植 U-Boot 通过打补丁来移植U-Boot是非常简单的,仅仅几步就可以,当然中间遇到了几个有价值的障碍。 步骤如下: 一: 下载U-Boot源码(u-boot...

Git打补丁常见问题

Git打补丁常见问题     往往觉得得到某个功能的补丁就认为这个功能我就已经成功拥有了,但是在最后一步的打补丁的工作也是需要相当谨慎的,甚至有可能还要比你获取这个补丁花费的时间还要多。看到好多同行遇...

sqlConnection连接不上sql 2000 原来是因为没有打补丁sp4

sql 2000 新装的默认实例死活连不上 查询分析器工作正常 带着问题,求人求了一天   想知道为啥会这样,怎么改好 重新配置端口的时候发现没有1433 最后找到 然后大了sp4补丁,但...

linux打补丁patch应用(转载)

因为在u-boot移植过程中,有几处通用文件要修改,如果每次都要手动修改就太麻烦了。制作补丁可以解决这个问题。 学习资料的收集比较简单,方法一类似于这种初级问题网上资料非常丰富,google或者ba...

【转】Linux下使用diff和patch制作及打补丁

在做开发的过程中难免需要给内核及下载的一些源码打补丁,所以我们先学习下Linux下使用如如何使用diff制作补丁以及如何使用patch打补丁。(本篇文章系转载自网友。)首先介绍一下diff和patch...

如何利用oracle opatch打补丁

摘要:          本文主要介绍了如何利用ORACLE的OPATCH工具安装补丁, 同时通过本文的描述,我们也应该了解确认BUG一般步骤:分析、排查相关错误信息、对比环境、最终确认。 关...

在linux下面比较两个文件及打补丁整理 <diff> - <patch>

先介绍 diff ,这个命令用于比较两个文件。命令介绍  http://linux.chinaitlab.com/command/723444.html  diff的详细使用方法:http://ww...

FC4下升级内核到2.6.15.4及给netfilter打补丁

FC4下升级内核到2.6.15.4及给netfilter打补丁 1.编辑环境 VMware workstation 5.5.1 (我是自定义的,硬盘是IDE) Fedora Core relea...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

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