快捷導航

純腳本備份_還原驅(qū)動增強版附相關(guān)sleep.exe

更新時間：2008年06月27日 09:43:26 作者：

不能說此腳本比驅(qū)動精靈更完美，但它確實彌補了驅(qū)動精靈的不足！這個版本是我先前版本上（借助DevCon純腳本備份驅(qū)動）增強的，已經(jīng)是完美版本了。

說明：
　　不能說此腳本比驅(qū)動精靈更完美，但它確實彌補了驅(qū)動精靈的不足！
　　這個版本是我先前版本上（借助DevCon純腳本備份驅(qū)動）增強的，已經(jīng)是完美版本了。

１、支持備份完整的WHQL數(shù)字簽名（我手頭的驅(qū)動精靈 2005專業(yè)版就不支持）。
２、智能判斷系統(tǒng)中已安裝的驅(qū)動程序，且只備份用戶自行安裝的驅(qū)動，若該設(shè)備包含WHQL數(shù)字簽名則打印信息。
３、支持驅(qū)動文件打包存放，雙擊單個以設(shè)備名命名的.EXE自解壓方式還原驅(qū)動，還原驅(qū)動就如此輕松。
４、支持寧靜默方式外掛安裝更新驅(qū)動，方便系統(tǒng)集成、Ghost用戶調(diào)用。
５、兼容驅(qū)動精靈已備份的項目，也就是說運行一下腳本就還原驅(qū)動精靈曾經(jīng)備份的項目。
　　還原方法將DevUpdate.Cmd Tools 放在精靈已備份驅(qū)動文件目錄里，運行DevUpdate.Cmd
６、源代碼公開化沒作任何加密，只要你也略懂腳本完全自行修改達到自己的所需！不要改頭換面就好;-)
　　
　　
補充說明：
EXE自解壓還原驅(qū)動自動應(yīng)答參數(shù) －y 如："D:\Dev\NVIDIA GeForce4 MX MX 400.exe" -y
打包集成的NVIDIA GeForce4 MX MX 400.exe只限在本機上還原更新，我不保證其能在所有的NVIDIA GeForce4系列顯卡上正常使用，因為每一機子的硬件ID并不完全相同。
此版不在支持Win2000，Win2000用戶可以考慮使用先前的版本來備份，Vista下本人沒有測試條件，所以...
好了我也不貼N多圖文說明了，一句話備份還原驅(qū)動簡單再簡單，菜鳥、高手都適用^_^

子程序說明
Devcon.exe    微軟代替設(shè)備管理器命令行實用工具
Devcon_64.exe    微軟代替設(shè)備管理器命令行實用工具64 Bit
Sleep.exe    用于批處理暫?；虻却脩舭匆粋€鍵
Update.cmd    更新設(shè)備驅(qū)動代碼
Dev.sfx        用于制作集成驅(qū)動的自解壓模塊
7za.exe        本人漢化的7-zip命令行獨立版壓縮工具（此版依賴DLL庫)

任何建議和意見及BUG遞交歡迎訪問以下地址
[原創(chuàng)]借助DevCon純腳本備份驅(qū)動

dev.vbs

復制代碼代碼如下:

On Error Resume Next 
Set aArgs=WScript.Arguments 
if aArgs.Count=0 Then MsgBox "請運行 DevBackup.Cmd 開始備份驅(qū)動！    ",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 "本程序必須以系統(tǒng)管理員身份運行    ",4160,"提示":Wscript.Echo "1":Wscript.Quit 
if aItems.Count=0 Then MsgBox "WMI 組件運行庫出錯，WinXP精簡版Win2000系統(tǒng)會出現(xiàn)此狀況    ",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 