通过本文主要向大家介绍了vbs程序代码,vbs打开程序,vbs运行程序,vbs程序,vbs关闭程序等相关知识,希望对您有所帮助,也希望大家支持linkedu.com www.linkedu.com
其实，很简单，只要将这些驱动程序的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 "驱动程序释放完毕,请在设备管理器中刷新硬件列表或重新启动电脑!"
</div>
比如：
我们把自己电脑上的驱动程序，通过 驱动精灵 之类的软件从系统中分离出来以后，如果想在下一次安装系统的时候，自动安装这些驱动程序。我们可以把这些分离出来的驱动程序对应的文件夹写入注册表，然后重新启动电脑，电脑会自动搜索硬件并安装驱动程序。这是不是很爽？这里我使用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 "驱动程序释放完毕,请在设备管理器中刷新硬件列表或重新启动电脑!"
</div>