纯脚本备份_还原驱动增强版附相关sleep.exe

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

说明：

不能说此脚本比驱动精灵更完美，但它确实弥补了驱动精灵的不足！

这个版本是我先前版本上（借助DevCon纯脚本备份驱动）增强的，已经是完美版本了。

１、支持备份完整的WHQL数字签名（我手头的驱动精灵2005专业版就不支持）。

２、智能判断系统中已安装的驱动程序，且只备份用户自行安装的驱动，若该设备包含WHQL数字签名则打印信息。

３、支持驱动文件打包存放，双击单个以设备名命名的.EXE自解压方式还原驱动，还原驱动就如此轻松。

４、支持宁静默方式外挂安装更新驱动，方便系统集成、Ghost用户调用。

５、兼容驱动精灵已备份的项目，也就是说运行一下脚本就还原驱动精灵曾经备份的项目。

还原方法将DevUpdate.CmdTools放在精灵已备份驱动文件目录里，运行DevUpdate.Cmd

６、源代码公开化没作任何加密，只要你也略懂脚本完全自行修改达到自己的所需！不要改头换面就好;-)

补充说明：

EXE自解压还原驱动自动应答参数－y如："D:DevNVIDIAGeForce4MXMX400.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"

SetWMI=GetObject("winmgmts:"&strComputer&"rootcimv2")

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

Dev2008-7-4.rar