說明：
不能說此腳本比驅動精靈更完美，但它確實彌補了驅動精靈的不足！
這個版本是我先前版本上（借助DevCon純腳本備份驅動）增強的，已經是完美版本了。
１、支持備份完整的WHQL數字簽名（我手頭的驅動精靈 2005專業版就不支持）。
２、智能判斷系統中已安裝的驅動程序，且只備份用戶自行安裝的驅動，若該設備包含WHQL數字簽名則打印信息。
３、支持驅動文件打包存放，雙擊單個以設備名命名的.EXE自解壓方式還原驅動，還原驅動就如此輕松。
４、支持寧靜默方式外掛安裝更新驅動，方便系統集成、Ghost用戶調用。
５、兼容驅動精靈已備份的項目，也就是說運行一下腳本就還原驅動精靈曾經備份的項目。
還原方法將DevUpdate.Cmd Tools 放在精靈已備份驅動文件目錄里，運行DevUpdate.Cmd
６、源代碼公開化沒作任何加密，只要你也略懂腳本完全自行修改達到自己的所需！不要改頭換面就好;-)
補充說明：
EXE自解壓還原驅動自動應答參數 －y 如："D:/Dev/NVIDIA GeForce4 MX MX 400.exe" -y
打包集成的NVIDIA GeForce4 MX MX 400.exe只限在本機上還原更新，我不保證其能在所有的NVIDIA GeForce4系列顯卡上正常使用，因為每一機子的硬件ID并不完全相同。
此版不在支持Win2000，Win2000用戶可以考慮使用先前的版本來備份，Vista下本人沒有測試條件，所以...
好了我也不貼N多圖文說明了，一句話備份還原驅動簡單再簡單，菜鳥、高手都適用^_^
子程序說明
Devcon.exe 微軟代替設備管理器命令行實用工具
Devcon_64.exe 微軟代替設備管理器命令行實用工具64 Bit
Sleep.exe 用于批處理暫停或等待用戶按一個鍵
Update.cmd 更新設備驅動代碼
Dev.sfx 用于制作集成驅動的自解壓模塊
7za.exe 本人漢化的7-zip命令行獨立版壓縮工具（此版依賴DLL庫)
任何建議和意見及BUG遞交歡迎訪問以下地址
[原創]借助DevCon純腳本備份驅動
dev.vbs
復制代碼 代碼如下:
On Error Resume Next
Set aArgs=WScript.Arguments
if aArgs.Count=0 Then MsgBox "請運行 DevBackup.Cmd 開始備份驅動！ ",64,"BY: fastslz":Wscript.Quit
Set Fso = CreateObject("Scripting.FileSystemObject")
Set aNet = CreateObject("Wscript.Network")
strComputer = aNet.ComputerName:aUser = aNet.UserName:aErr = "0"
Set aGroup = GetObject("WinNT://" & strComputer & "/Administrators")
For Each aUsers in aGroup.Members
If aUsers.Name = aUser Then aErr= "1"
Next
Set WMI = GetObject("winmgmts://" & strComputer & "/root/cimv2")
Set aItems = WMI.ExecQuery("Select * from Win32_PnPSignedDriver")
If aErr = 0 Then MsgBox "本程序必須以系統管理員身份運行 ",4160,"提示":Wscript.Echo "1":Wscript.Quit
if aItems.Count=0 Then MsgBox "WMI 組件運行庫出錯，WinXP精簡版Win2000系統會出現此狀況 ",4160,"提示":Wscript.Echo "2":Wscript.Quit
Path = Left(Wscript.ScriptFullName,Len(Wscript.ScriptFullName)-Len(Wscript.ScriptName))
BakPath = Path&"Drivers/"
If Fso.FolderExists(BakPath)=False Then Fso.CreateFolder(BakPath)
For Each aItem in aItems
If Instr(aItem.InfName,Chr(111)&Chr(101)&Chr(109)) > 0 Then
DevName = Replace(aItem.DeviceName, "/", " ")
DevName = Replace(DevName, "/", " ")
DevName = Replace(DevName, "*", " ")
DevName = Replace(DevName, "?", " ")
DevName = Replace(DevName, "|", " ")
DevName = Replace(DevName, ">", " ")
DevName = Replace(DevName, "<", " ")
If Fso.FolderExists(BakPath&DevName)=False Then Fso.CreateFolder(BakPath&DevName)
Set NfoFile = 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.Echo aItem.DeviceName & "ｎ" & aItem.HardWareID & "ｎ" _
& BakPath&DevName & "ｎ" & aItem.InfName
End If
Next
Dev2008-7-4.rar
最新版本
