Vbscript 使用UpdateSearcher.Search时出现错误80070002

我在MSDN官方网站上找到了此VBScript，用于使用wsusscn2.cab file（）脱机检查更新。这是给定的代码：

Set UpdateSession = CreateObject("Microsoft.Update.Session")
Set UpdateServiceManager = CreateObject("Microsoft.Update.ServiceManager")
Set UpdateService = UpdateServiceManager.AddScanPackageService("Offline Sync Service", "C:\wsusscn2.cab", 1)
Set UpdateSearcher = UpdateSession.CreateUpdateSearcher()

WScript.Echo "Searching for updates..." & vbCRLF

UpdateSearcher.ServerSelection = 3 

UpdateSearcher.ServiceID = UpdateService.ServiceID

Set SearchResult = UpdateSearcher.Search("IsInstalled=0")

Set Updates = SearchResult.Updates

If searchResult.Updates.Count = 0 Then
    WScript.Echo "There are no applicable updates."
    WScript.Quit
End If

WScript.Echo "List of applicable items on the machine when using wssuscan.cab:" & vbCRLF

For I = 0 to searchResult.Updates.Count-1
    Set update = searchResult.Updates.Item(I)
    WScript.Echo I + 1 & "> " & update.Title
Next

WScript.Quit

在执行代码时，我在第12行得到一个错误，说“系统找不到指定的文件”。第12行是

Set SearchResult = UpdateSearcher.Search("IsInstalled=0")

---

脚本与wsusscn2.cab文件一起放在C驱动器中。欢迎提供任何帮助。

如果Windows Update出现问题，这不是VBScript问题：

---

我正试图复制此问题，但获得80070002的唯一方法是将路径更改为文件不存在的位置。然后我在第3行得到错误，而不是第12行。我甚至在记事本中打开了该文件，将其更改为“损坏”，并在第3行再次出现不同的错误。该代码在我的Windows 10计算机上运行良好，但在Windows 8.1上出现上述错误。这是否意味着找不到更新？？