当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > vbs之自动安装驱动程序

VBScript
vbs删除注册表项的代码
用vbs检查注册表项的访问权限的代码
vbs之使用Internet Explorer 屏蔽密码
vbscript 注册表脚本书写
vbs下通过日期查找文件夹的代码
vbs复制文件的脚本
vbs实现计算机重启
文件备份vbs脚本
vbs下用一个小方法实现批量添加域用户
用vbs实现本地添加用户的脚本
vbs AD日志开启脚本nableKerbLog的脚本
vbs实现压缩文件夹的脚本
用VBS修改远程桌面3389端口并添加到Windows防火墙的代码
用vbs实现自动检查代理是否可用,并自动设置IE代理的脚本
vbs实现的定时关机、重启的脚本和程序
vbs实现的定时提醒你休息的脚本
vbs自动填表单分析附源码
vbs实现的汉字转拼音的函数
初窥WMI_Vbs脚本编程简明教程补充读物
用vbs实现判断计算机是笔记本还是台式机的代码

VBScript 中的 vbs之自动安装驱动程序


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-11   浏览: 78 ::
收藏到网摘: n/a

其实,很简单,只要将这些驱动程序的inf文件所在的文件夹注册到注册表中。
比如:
我们把自己电脑上的驱动程序,通过 驱动精灵 之类的软件从系统中分离出来以后,如果想在下一次安装系统的时候,自动安装这些驱动程序。我们可以把这些分离出来的驱动程序对应的文件夹写入注册表,然后重新启动电脑,电脑会自动搜索硬件并安装驱动程序。这是不是很爽?这里我使用winrar+vbs实现。
比如我们现在有如下几个驱动程序及其inf文件对应的文件夹:
主板------maincard
显示卡---vga
声卡------sound
将maincard、vga、sound文件夹 一起压缩到一个可执行文件中,并设置为无交互界面/自解压路径为c:\device
压缩文件取名为d.exe 然后编辑如下内容的vbs脚本device.vbs
-----------------------------------------------------------
ON ERROR RESUME NEXT
SET OS=CreateObject("wscript.shell")
Set filesystem=CreateObject("scripting.filesystemobject")
pathy=filesystem.GetFile(WScript.scriptFullName).ParentFolder
path1="c:\drivers\"
yn=msgbox("-------------->"&chr(10)& _
path1,1,"释放驱动程序")
if yn=2 then wscript.quit
device1=os.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\DevicePath")
device2= _
path1&"and" &_
";"&path1&"maincard" &_
";"&path1&"sound" &_
";"&path1&"vga" &_
";"&device1
os.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\DevicePath",device2
os.run pathy & "\d.exe /s",1,true
msgbox "驱动程序释放完毕,请在设备管理器中刷新硬件列表或重新启动电脑!"