一个自动检测并安装hotfix的脚本(copy)

原创 2005年03月03日 11:59: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
""
msgbox
"注意!!!请保留一个有效光盘盘符,不然此脚本不能正确执行!!!"
chs()
ies()
patchs()
end 
if
if banben=886 then
msgbox
""
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安装cadence搭建适合IC Design的科研环境(三)——准备安装镜像

拜谢eetop论坛大神提供的方法,我们可以直接从cadence官网下载最新的安装包,原文在这里。本文的工作主要是搬运一些信息,同时补充上一些我在安装过程中遇到的问题,以及解决方法。下载安装包从官网下载...
  • maxwell2ic
  • maxwell2ic
  • 2016年08月09日 15:02
  • 7062

阿里百川HotFix解决方案使用体验

最近,我们的应用除了一个小bug,但是解决这个bug的新版本却发布了快一个月,这其中有种种问题导致新的版本发布不断拖后,为了解决这个问题,查阅了一下资料,什么androidfix,还有什么其他的,这个...
  • qwer4755552
  • qwer4755552
  • 2016年09月10日 12:05
  • 6217

Android热修复:Andfix和Hotfix,两种方案的比较与实现

Andfix和hotfix是两种android热修复框架。android的热修复技术我看的最早的应该是QQ空间团队的解决方案,后来真正需要了,才仔细调查,现在的方案中,阿里有两种Dexposed和An...
  • yuankundong
  • yuankundong
  • 2016年05月10日 17:44
  • 3938

安装MongoDB遇到问题

1. 首先,当然是下载 MongoDB MongoDB的官方网站是:http://www.mongodb.org/, 最新版本下载在:http://www.mongodb.org/down...
  • gebitan505
  • gebitan505
  • 2015年08月28日 14:53
  • 15252

HotFix介绍及HotFix开源项目推荐

What is HotFix? 以补丁的方式动态修复紧急Bug,不再需要重新发布App,不再需要用户重新下载,覆盖安装(来自:安卓App热补丁动态修复技术介绍) HotFix原理 首先H...
  • u014761700
  • u014761700
  • 2016年07月24日 12:45
  • 1155

AndHotFix热修补使用总结

今天给大家介绍AndHotFix热修补的使用,也没有那么的难,我结合了github和csdn的一些东西,自己总结出来一套非常简单的操作流程。 这个就是我结合出来的AndHotFix的结构,...
  • he6687086
  • he6687086
  • 2016年07月23日 08:34
  • 682

Exchangee 2010 获取邮箱的脚本执行方法-前一篇文章提到的脚本执行方法!

上面我们将详细的脚本贴出来,接下来我们讲如何执行相关的脚本。我们将脚本拷贝到服务器上面之后。执行如下命令:此开关针对两种情况有两种不同的处理方式,针对禁用的用户,直接将由于数据量过多而导致邮箱被禁用的...
  • fogyisland2000
  • fogyisland2000
  • 2013年09月01日 00:25
  • 2228

PostgreSQL自动安装脚本

环境:  OS:CentOS 6.3  DB:PostgreSQL 9.3.2  使用步骤:  分两个脚本,一个是执行文件,另一个是初始化脚本,实际只要点击执行文件install_post...
  • pugu12
  • pugu12
  • 2016年04月25日 11:51
  • 553

5大Android hotfix 线上热修复框架比较

hot fix1.阿里巴巴-淘宝https://github.com/alibaba/dexposed#Dexposed不支持Art模式(5.0+),且写补丁有点困难,需要反射写混淆后的代码,粒度太细...
  • RichieZhu
  • RichieZhu
  • 2016年01月28日 16:02
  • 2541

Android 热修复方案--阿里百川HotFix

概述我们都知道一旦我们的应用被发布到各大平台上面之后修复bug是一件很麻烦的事情,如果要重新发布审核周期之长,用户肯定不接受,虽然也可以在应用中自检更新,但是一个小小的bug动辄就更新应用实在是大材小...
  • wu996489865
  • wu996489865
  • 2017年04月27日 10:41
  • 2886
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:一个自动检测并安装hotfix的脚本(copy)
举报原因:
原因补充:

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