Dim strPciFileVersion Dim WindirFilePath

set WshShell = WScript.CreateObject (“WScript.Shell”) WindirFilePath = WshShell.ExpandEnvironmentStrings (“%WinDir%”)     Dim fs Set fs = CreateObject (“Scripting.FileSystemObject”)     strPciFileVersion = fs.getfileversion (WindirFilePath &“\\system32\\drivers\\pci.sys”) Dim strAryFileVersion1

strAryFileVersion1 = Split (strPciFileVersion， “.”)

如果 (strAryFileVersion1 (0) = 6 And strAryFileVersion1 (1) = 1 And strAryFileVersion1 (2) = 7601) 然后                 如果 (strAryFileVersion1 (3) < 17630 或 (strAryFileVersion1 (3) > 20000 And strAryFileVersion1 (3) < 21744) ) Then                                                                 Const HKEY_LOCAL_MACHINE = &H80000002                                 Dim oReg ： Set oReg = GetObject (“winmgmts：{impersonationLevel=impersonate}！\\.\root\default：StdRegProv”)                                 Dim oShell： Set oShell = CreateObject (“WScript.Shell”)                                 Dim sPath、aSub、sKey、aSubToo、sKeyToo、dwValue、Result、SaveResult                                 Dim NotDeleted                                                                 NotDeleted = 0                                                                 '获取 sPath 中的所有密钥                                 sPath = “SYSTEM\CurrentControlSet\Enum\PCI”                                 oReg.EnumKey HKEY_LOCAL_MACHINE、sPath、aSub                                                                 '循环遍历每个密钥                                 对于 aSub 中的每个 sKey                                                 '获取密钥'sKey'中的所有子项                                                 oReg.EnumKey HKEY_LOCAL_MACHINE、sPath &“\”& sKey、aSubToo                                                 对于 aSubToo 中的每个 sKeyToo                                                   Result = oReg.DeleteKey (HKEY_LOCAL_MACHINE，sPath &“\”& sKey &“\”& sKeyToo &“\”&“\Device Parameters”&“\SlotPersistentInfo”)                                                   仅当密钥从未存在时才允许失败                                                   如果 (结果 = 1) 或 (结果> 2) 然后                                                                 NotDeleted = 1                                                                 SaveResult = Result                                                   结束 If                                                 下                                 下                                                                 如果 (NotDeleted > 0) ，则                                   Wscript.Echo“SlotPersistentInfo 密钥仍存在于 HKLM\System\CurrentControlSet\Enum\PCI\\\Device Parameters 下。  请手动删除所有内容，然后安装更新。 Result = “&结果                                 结束 If                 还                                 WScript.Echo“你的系统已准备好安装更新”                 结束 If 还                                 WScript.Echo“你的系统已准备好安装更新” 结束 If