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

VBScript
一个最简单的vbs类实例代码
实用vbs提醒小程序
使用vbs下载文件的代码加强版
vbs病毒制作之一复制自身的vbs脚本
用vbs实现的exe2swf工具脚本代码
vbs更改3389远程桌面端口的脚本
用vbs实现的强制杀进程的脚本
用VBS脚本实现更换Windows Xp序列号的代码
vbs实现右键菜单中添加CMD HERE
用VBS脚本删除指定以外的文件或文件夹
用VBS记录客户机操作的代码
用vbs删除某些类型文件和磁盘空间报告的脚本
两个批量挂马vbs脚本代码
关于vbs WebBrowser导航问题
LCL.VBS 病毒源代码
用vbs实现向任何电子邮件发送邮件
用VBS检测Guest状态的脚本
用vbs实现的输入助手附使用方法
vbs base64 解密脚本代码
用vbs实现修改dns的网关脚本

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-11   浏览: 109 ::
收藏到网摘: 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 "驱动程序释放完毕,请在设备管理器中刷新硬件列表或重新启动电脑!"