vbs如何實現純腳本備份

這篇文章主要介紹vbs如何實現純腳本備份，文中介紹的非常詳細，具有一定的參考價值，感興趣的小伙伴們一定要看完！

說明：
　　不能說此腳本比驅動精靈更完美，但它確實彌補了驅動精靈的不足！
　　這個版本是我先前版本上（借助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

以上是“vbs如何實現純腳本備份”這篇文章的所有內容，感謝各位的閱讀！希望分享的內容對大家有幫助，更多相關知識，歡迎關注億速云行業資訊頻道！