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

For Each aUsers in aGroup.Members
    If aUsers.Name = aUser Then aErr= "1"
Next
Set WMI = GetObject("winmgmts:" & strComputer & "rootcimv2")
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