Как поправить скрипт VBS (работает в Win7, но не работает в Win10)

Option Explicit
Const Stamp = """C:\каталог 547\smail.png"""
Const nConvert = """c:\Windows\System32\nconvert.exe"""
'—————————————————————————————————————————————
Dim oShell, oItems, oWSH, F, BN
Set oShell = CreateObject("Shell.Application")
Set oWSH   = CreateObject("WScript.Shell")
Set oItems = oShell.NameSpace(Left(WSH.ScriptFullName, InStrRev(WSH.ScriptFullName, "\"))).Items
oItems.Filter 8256, "*.pdf"
For Each F In oItems
   F = Mid(F.Path, InStrRev(F.Path, "\") + 1): BN = Left(F, Len(F) - 4)
   oWSH.Run nConvert & " -quiet -xall -dpi 130 -o ""%Temp%\" & BN & "-####"" -out jpeg -wmstretch -opthuff -wmflag center -wmfile " & Stamp & " """ & F & """", 0, 1
   oWSH.Run nConvert & " -quiet -multi -D -o """ & BN & "-.pdf"" -out pdf -q 100 -c 5 ""%Temp%\" & BN & "-*.jpg""", 0, 1
Next
With CreateObject("MediaPlayer.MediaPlayer")
  .Open oShell.NameSpace(36).Self.Path & "\Media\tada.wav"
  .Volume = 0: .Play: While .PlayState: WSH.Sleep 200: Wend
End With
Set oWSH = Nothing: Set oItems = Nothing: Set oShell = Nothing

  If oWSH.Run("pdftopng.exe -q -r " & DPI & " -aa yes -aaVector yes -freetype " &_
              "yes """ & F.Path & """ """ & Dir & "\" & BN & """", 0, 1) = 0 Then
    oWSH.Run "cmd /q/c >nul chcp 1251|nconvert.exe -q 100 -quiet -out jpeg -truecolors -opthuff """ & Dir & "\*.png""", 0, 1
    oFSO.DeleteFile Dir & "\*.png", 1: c = c + 1