通过 Windows 10 上的 shell 脚本设置主题

Question

我有一个 shell 脚本，一直用于 Windows 7。它为我的系统桌面设置了主题。 现在我已经移至 Windows 10，它不再起作用了。

我将如何在 Windows 10 上执行此操作？ （theme.vbs 代码如下）

With WScript.CreateObject("WScript.Shell")
    WScript.echo "Open Theme dialog and select theme and then close"

    .Run "rundll32.exe %SystemRoot%\system32\shell32.dll,Control_RunDLL %SystemRoot%\system32\desk.cpl desk,@Themes /Action:OpenTheme /file:""%UserProfile%\AppData\Local\Microsoft\Windows\Themes\MyPersonal.theme"""
    For i = 1 To 10
            WScript.Sleep 5000
        If .AppActivate("Personalization") Then
           .Sendkeys "%FC"
           .Sendkeys "{F4}"
           Exit For
        End If
    Next
End With

我知道我可以使用运行命令打开主题对话框，然后

ms-settings:themes

但是，我将如何使用 select 主题并在 Windows 10 上的 shell 脚本中关闭对话框？