VBScript для удаления программного обеспечения

Question

Я пытаюсь получить VBScript для удаления программного обеспечения. Когда я запускаю его, кажется, что он обрабатывает только первый удар, а затем завершает его. В чем я не прав, что он не проходит через все экземпляры sMatch в strPublisher?

sMatch = "Mitel Networks Corporation"
On Error Resume Next
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set WshShell = CreateObject("Wscript.Shell")
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\Uninstall"
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
For Each subkey In arrSubKeys
   strPublisher = ""
   strPublisher = WshShell.RegRead ("HKLM\" & strKeyPath & "\" & subkey & "\Publisher")
   If InStr(1, strPublisher, sMatch) >0 Then
      WshShell.Run "cmd /c C:\Windows\System32\msiexec.exe /X" & SubKey & " /L*V msilog.txt", 1, True
      WScript.Sleep 50000
   End If
Next

Спасибо!

Answer 1

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