VBScript通过hta执行程序

在hta文件里用vbscript执行程序，原来的写法是：

Set shl = CreateObject("Wscript.Shell")
shl.CurrentDirectory = foo
Call shl.Run("""" & bar & """")

在windows 7下运行正常，但是在windows 11下，如果这个程序是在Program Files或者Program Files (x86)下，则必须以管理员身份运行，上面的代码就失效了。

查了资料，改写成

Set oShell = CreateObject("Shell.Application")
oShell.ShellExecute """" & bar & """", , foo, "runas", 1

运行正常。如果不需要以管理员身份运行，去掉“runas”即可。