vbs脚本功能：1、判断系统位数64/32；2、读取注册表，读取应用名称。3、读取txt文件；4、执行exe文件，安装程序。

vbs脚本功能：1、判断系统位数；2、读取注册表，读取应用名称。displayName就是程序与功能里面展示的应用名称。3、读取txt文件；4、执行exe文件，安装程序。

注意：1、文本编码方式要用ANSI编码方式，不然中文会乱码

2、脚本没有异常处理。没有读取到C:/Program Files (x86)/tydic/driverConfig.txt这个文件。线程会被挂起占着内存。

可以到任务管理里面kill掉。

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
set ws=CreateObject("wscript.shell")
set fso=CreateObject("Scripting.FileSystemObject")For Each objItem in colItemsIf InStr(objItem.SystemType, "86") <> 0 Then               X86orX64 = "X86"ElseIf InStr(objItem.SystemType, "64") <> 0 Then        X86orX64 = "X64"  ElseX86orX64 = "ERROR"End If
NextMsgBox X86orX64'Const HKEY_CLASSES_ROOT = &H80000000
'Const HKEY_CURRENT_USER = &H80000001
'Const HKEY_LOCAL_MACHINE = &H80000002
'Const HKEY_USERS = &H80000003
'Const HKEY_CURRENT_CONFIG = &H80000005
Const HKLM = &H80000002
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strPathSec = "SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall"
oReg.EnumKey HKLM,strPathSec,arry
For Each y In arrydisplayName = ws.RegRead("HKEY_LOCAL_MACHINE\" & strPathSec & "\" & y & "\DisplayName")    '读取应用名称if displayName = "360安全卫士" thenMsgBox "安装了360卫士"end if
NextDim driverStr
set ts = fso.OpenTextFile("C:/Program Files (x86)/tydic/driverConfig.txt", 1)
Do Until ts.AtEndOfStream      tmpStr = ts.ReadLine  if tmpStr <> "" Then       '读取到的不是空的时候driverStr = driverStr+tmpStrdriverStr = driverStr+";"End if
Loop
ts.CloseMsgBox "文件内容:"+driverStr'执行exe程序安装软件
set f=fso.getfile("C:\Program Files (x86)\tydic\统一门户\soft\kaer.exe")     '卡尔
ws.run f.shortpath,1,trueMsgBox "end"

vbs脚本功能：1、判断系统位数64/32；2、读取注册表，读取应用名称。3、读取txt文件；4、执行exe文件，安装程序。相关推荐

C++判断系统位数(64位或32位)
C++判断系统位数[64位或32位] 实现方法原理函数实例总结实现方法本文主要介绍1种兼容性强&简单的判断方法,希望对你有帮助; 原理 64位系统会在c:\Windows创建Sys ...
VC程序里判断系统是64位还是32位的正确方法
VC程序里判断系统是64位还是32位的正确方法 BOOL IsWow64() { typedef BOOL (WINAPI *LPFN_ISWOW64PROCESS) (HANDLE, P ...
win7系统（64/32位）安装office2010时提示需要msxml6.10.1129，问题的解决记录
win7系统(64/32位)安装office2010时提示需要msxml6.10.1129,问题的解决记录在日常电脑使用过程中偶尔会遇到win7环境下安装 office2010提示因系统需要安装MS ...
保护系统：WinXP中赤手空拳备份注册表(转)
保护系统:WinXP中赤手空拳备份注册表(转)[@more@] 本文以Windows XP为例(其他Windows版本可参考操作),介绍使用Windows"记事本"程序查找.修改注 ...
如何把32位的注册表文件转换为64位的？
问题:比如我的系统是64位的WIN7,但下载的极品飞车14的注册表导入文件却是32位的,于是不能用,还好网上有人做了64位的导入文件.我想知道那些达人是怎么把32位的改成64位的? 把32位的注册表 ...
bat脚本中获取上级目录_使用Python写一个可以监控Tomcat 运行的脚本,并且把.py文件转换成.exe文件...
使用Python写一个可以监控Tomcat 运行的脚本,并且把.py文件转换成.exe文件文章来源与博主本人的CSDN博客,博客地址:https://blog.csdn.net/weixin_435 ...
bat脚本执行exe文件_将批处理（BAT）脚本转换为可执行（EXE）文件
bat脚本执行exe文件 When you get down to it, batch files and executable files work pretty much the same way ...
开机进不了windows系统_进系统就黑屏？键盘+注册表就搞定
进系统就黑屏?键盘+注册表就搞定! 一般Windows系统要是有什么问题,只要能进得去,基本上都可以解决.如果进不了Windows,只要电脑硬件没问题,有个U盘什么的,也一样能处理.经常帮同事.朋友修 ...
c++怎么判断系统是64位还是32位
说起来这个话题,如果我把标题改成"你是怎么判断系统是32位还是64位",估计一下子会有很多技术爱好者撇撇嘴说"不就是打开我的我的电脑,找到属性,点进去看是不是32还是64 ...

vbs脚本功能：1、判断系统位数64/32；2、读取注册表，读取应用名称。3、读取txt文件；4、执行exe文件，安装程序。

vbs脚本功能：1、判断系统位数64/32；2、读取注册表，读取应用名称。3、读取txt文件；4、执行exe文件，安装程序。相关推荐

最新文章

热门文章