说明：
　　不能说此脚本比驱动精灵更完美，但它确实弥补了驱动精灵的不足！
　　这个版本是我先前版本上（借助DevCon纯脚本备份驱动）增强的，已经是完美版本了。

１、支持备份完整的WHQL数字签名（我手头的驱动精灵2005专业版就不支持）。
２、智能判断系统中已安装的驱动程序，且只备份用户自行安装的驱动，若该设备包含WHQL数字签名则打印信息。
３、支持驱动文件打包存放，双击单个以设备名命名的.EXE自解压方式还原驱动，还原驱动就如此轻松。
４、支持宁静默方式外挂安装更新驱动，方便系统集成、Ghost用户调用。
５、兼容驱动精灵已备份的项目，也就是说运行一下脚本就还原驱动精灵曾经备份的项目。
　　还原方法将DevUpdate.CmdTools放在精灵已备份驱动文件目录里，运行DevUpdate.Cmd
６、源代码公开化没作任何加密，只要你也略懂脚本完全自行修改达到自己的所需！不要改头换面就好;-)
　　
　　
补充说明：
EXE自解压还原驱动自动应答参数－y如："D:\Dev\NVIDIAGeForce4MXMX400.exe"-y
打包集成的NVIDIAGeForce4MXMX400.exe只限在本机上还原更新，我不保证其能在所有的NVIDIAGeForce4系列显卡上正常使用，因为每一机子的硬件ID并不完全相同。
此版不在支持Win2000，Win2000用户可以考虑使用先前的版本来备份，Vista下本人没有测试条件，所以...
好了我也不贴N多图文说明了，一句话备份还原驱动简单再简单，菜鸟、高手都适用^_^

子程序说明
Devcon.exe微软代替设备管理器命令行实用工具
Devcon_64.exe微软代替设备管理器命令行实用工具64Bit
Sleep.exe用于批处理暂停或等待用户按一个键
Update.cmd更新设备驱动代码
Dev.sfx用于制作集成驱动的自解压模块
7za.exe本人汉化的7-zip命令行独立版压缩工具（此版依赖DLL库)

任何建议和意见及BUG递交欢迎访问以下地址
[原创]借助DevCon纯脚本备份驱动

dev.vbs
复制代码 代码如下:
OnErrorResumeNext
SetaArgs=WScript.Arguments
ifaArgs.Count=0ThenMsgBox"请运行DevBackup.Cmd开始备份驱动！",64,"BY:fastslz":Wscript.Quit
SetFso=CreateObject("Scripting.FileSystemObject")
SetaNet=CreateObject("Wscript.Network")
strComputer=aNet.ComputerName:aUser=aNet.UserName:aErr="0"
SetaGroup=GetObject("WinNT://"&strComputer&"/Administrators")
ForEachaUsersinaGroup.Members
IfaUsers.Name=aUserThenaErr="1"
Next
SetWMI=GetObject("winmgmts:\\"&strComputer&"\root\cimv2")
SetaItems=WMI.ExecQuery("Select*fromWin32_PnPSignedDriver")
IfaErr=0ThenMsgBox"本程序必须以系统管理员身份运行",4160,"提示":Wscript.Echo"1":Wscript.Quit
ifaItems.Count=0ThenMsgBox"WMI组件运行库出错，WinXP精简版Win2000系统会出现此状况",4160,"提示":Wscript.Echo"2":Wscript.Quit
Path=Left(Wscript.ScriptFullName,Len(Wscript.ScriptFullName)-Len(Wscript.ScriptName))
BakPath=Path&"Drivers\"
IfFso.FolderExists(BakPath)=FalseThenFso.CreateFolder(BakPath)

ForEachaIteminaItems
IfInstr(aItem.InfName,Chr(111)&Chr(101)&Chr(109))>0Then
DevName=Replace(aItem.DeviceName,"/","")
DevName=Replace(DevName,"\","")
DevName=Replace(DevName,"*","")
DevName=Replace(DevName,"?","")
DevName=Replace(DevName,"|","")
DevName=Replace(DevName,">","")
DevName=Replace(DevName,"<","")
IfFso.FolderExists(BakPath&DevName)=FalseThenFso.CreateFolder(BakPath&DevName)
SetNfoFile=Fso.OpenTextFile(BakPath&DevName&"\Driver.nfo",2,True)
NfoFile.WriteLine"DeviceName="&aItem.DeviceName
NfoFile.WriteLine"HardWareID="&aItem.HardWareID
NfoFile.WriteLine"InfName="&aItem.InfName
NfoFile.Close
Wscript.EchoaItem.DeviceName&"ｎ"&aItem.HardWareID&"ｎ"_
&BakPath&DevName&"ｎ"&aItem.InfName
EndIf
Next

Dev2008-7-4.rar
最新版本