Загрузчик обновлений Windows. Ошибка загрузки ()

Question

Я сталкиваюсь с примером программы vbscript с сайта Microsoft, касающейся Центра обновления Windows (с именем WUA_SearchDownloadInstall.vbs).

http://msdn.microsoft.com/en-us/library/aa387102%28VS.85%29.aspx

Set updateSession = CreateObject("Microsoft.Update.Session")
Set updateSearcher = updateSession.CreateupdateSearcher()

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

Set searchResult = _
updateSearcher.Search("IsInstalled=0 and Type='Software'")


WScript.Echo "List of applicable items on the machine:"

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

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

WScript.Echo vbCRLF & "Creating collection of updates to download:"

Set updatesToDownload = CreateObject("Microsoft.Update.UpdateColl")

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

WScript.Echo vbCRLF & "Downloading updates..."

Set downloader = updateSession.CreateUpdateDownloader() 
downloader.Updates = updatesToDownload
downloader.Download()

WScript.Echo  vbCRLF & "List of downloaded updates:"

For I = 0 To searchResult.Updates.Count-1
    Set update = searchResult.Updates.Item(I)
    If update.IsDownloaded Then
       WScript.Echo I + 1 & "> " & update.Title 
    End If
Next

Set updatesToInstall = CreateObject("Microsoft.Update.UpdateColl")

WScript.Echo  vbCRLF & _
"Creating collection of downloaded updates to install:" 

For I = 0 To searchResult.Updates.Count-1
    set update = searchResult.Updates.Item(I)
    If update.IsDownloaded = true Then
       WScript.Echo I + 1 & "> adding:  " & update.Title 
       updatesToInstall.Add(update) 
    End If
Next

WScript.Echo  vbCRLF & "Would you like to install updates now? (Y/N)"
strInput = WScript.StdIn.Readline
WScript.Echo 

If (strInput = "N" or strInput = "n") Then 
    WScript.Quit
ElseIf (strInput = "Y" or strInput = "y") Then
    WScript.Echo "Installing updates..."
    Set installer = updateSession.CreateUpdateInstaller()
    installer.Updates = updatesToInstall
    Set installationResult = installer.Install()

    'Output results of install
    WScript.Echo "Installation Result: " & _
    installationResult.ResultCode 
    WScript.Echo "Reboot Required: " & _ 
    installationResult.RebootRequired & vbCRLF 
    WScript.Echo "Listing of updates installed " & _
     "and individual installation results:" 

    For I = 0 to updatesToInstall.Count - 1
        WScript.Echo I + 1 & "> " & _
        updatesToInstall.Item(i).Title & _
        ": " & installationResult.GetUpdateResult(i).ResultCode         
    Next
End If

его сценарий работает хорошо, пока не достигнет

downloader.Download()

В этой строке окно CMD выводит

C:\wu-install\WUA_SearchDownloadInstall.vbs(37, 1) (null): 0x80240044

Добавляя строку printf перед downloader.Download(), я вижу, что ошибка сразу же устанавливается в Download ().

Мой вопрос: как мне найти ключ, чтобы узнать причину ошибки? Может быть, есть способ перехватить исключение и дать несколько подробных сообщений об ошибках.

Я попытался с помощью этого поста ( Похоже, что исключение VBscript, как справиться с? ), и написать вокруг проблемы:

On Error Resume Next 
downloader.Download()
If Err.Number <> 0 Then
    WScript.Echo Err.Description
    WScript.Quit 4
End If
On Error Goto 0

Но WScript.Echo Err.Description ничего не выводит. Как я могу это сделать?

Моя среда: Windows 7 32-разрядная.

[[[ОБНОВЛЕНИЕ]]]

Я вернулся к этому вопросу. Я обновил свой скрипт для использования JScript. Да, это удобнее, чем VBScript.

Теперь у меня есть такой фрагмент кода:

var downloader = updsession.CreateUpdateDownloader() 
downloader.Updates = updatesToDownload
try {
    downloader.Download()
}
catch(err) {
    WScript.Echo("Oops, Download error.")
    WScript.Echo("Possible reason:")
    WScript.Echo("* On Windows Vista/7, This requires you Run as Administrator.")
    WScript.Quit(3)
}

Остается вопрос: как мне получить код ошибки из Download (), чтобы я мог проверить причину ошибки. Страница в http://msdn.microsoft.com/en-us/library/windows/desktop/aa386134%28v=vs.85%29.aspx кажется мне слишком грубой, чтобы найти ответ.

Жду вашей помощи снова. Спасибо.

Answer 1

Вы получаете эту ошибку, потому что API обновлений Windows требует повышенных привилегий. Запуск вашего сценария в командной строке с повышенными правами должен решить проблему.

В качестве дополнительного примечания вы должны убедиться, что вы подключены к Интернету, служба Windows Update включена и нет ожидающих установок обновлений (то есть ожидающих установки при завершении работы). Эти вещи также могут вызвать ошибки.

[править]

Вы должны быть в состоянии получить статус из библиотеки. Метод Download возвращает код состояния . Присвоение ее результата переменной может помешать запуску вашего скрипта. Если нет, попробуйте использовать On Error Goto Next, чтобы обойти это. Ниже приведены различные коды результатов и коды ошибок.

Коды результатов агента обновления Windows

Коды ошибок сети АВП