vbs如何實(shí)現(xiàn)純腳本備份

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

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

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

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

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

dev.vbs

代碼如下:

On Error Resume Next
Set aArgs=WScript.Arguments
if aArgs.Count=0 Then MsgBox "請運(yùn)行 DevBackup.Cmd 開始備份驅(qū)動(dòng)！    ",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)管理員身份運(yùn)行    ",4160,"提示":Wscript.Echo "1":Wscript.Quit
if aItems.Count=0 Then MsgBox "WMI 組件運(yùn)行庫出錯(cuò)，WinXP精簡版Win2000系統(tǒng)會(huì)出現(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

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