如何从MSHTA.exe 32位启动提升的MSHTA.exe 64位

Question

在我的HTA应用程序中，有一个专门用于检测它是否已提升的子程序，如果没有，它会以提升的权限（带有UAC提示符）启动mshta.exe。 由HTA驱动的脚本之一旨在修改HKLM \\ SOFTWARE \\ Microsoft \\ Windows \\ CurrentVersion \\中的OEMInformation密钥的内容，因此该应用程序必须由64位版本的mshta.exe执行。

我试图通过从reg文件中导入注册表项，并使用VBScript RegWrite函数将其添加到注册表项中来解决问题，但是由于反射，它们始终位于WOW6432Node后面。 我还尝试使用mshta.exe到％windir％\\ System32中位置的直接路径，但是由于mshta.exe的第一个实例是32位，因此反射将从SysWOW64启动。

以下是我尝试从当前hta应用程序启动提升的mshta.exe的命令（如果找到解决方案，将不会被硬编码为Windows目录）。

MyApp.hta

HTML stuff

[...]

Sub Main()
  arrCommands = Split(myapp.commandLine, chr(34))
  initialDirectory = arrCommands(4)
  checkos()
End Sub


Function HTAElevate()
  Const Elev = " /elevated"
  HTAElevate = True
  If InStr( LCase(myapp.commandLine ), Elev) > 0 then Exit Function
  createobject("Shell.Application").ShellExecute "c:\windows\system32\mshta.exe", myapp.commandLine & Elev & chr(34) & chr(34) & fso.GetAbsolutePathName(".") & chr(34), "", "runas", 1
  HTAElevate = False

  self.close
End Function

[...]

sh.Run "/path/to/manufacturer.vbs", 1, True

制造商

Set sh = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")

fileDirectory = fso.buildpath(sh.ExpandEnvironmentStrings("%temp%"), "\myappfolder\manufacturer")

sourceBMPfile = fso.buildpath(fileDirectory, "\oem.bmp")
sourceREGfile = fso.buildpath(fileDirectory, "\oem.reg")

dst = fso.buildpath(sh.ExpandEnvironmentStrings("%windir%"), "\system32")

fso.CopyFile sourceBMPfile, dst & "\"

sh.Run "regedit.exe /s " & Chr(34) & sourceREGfile & Chr(34), 0, True

我尝试使用Sysnative路径（请参见下文）以访问64位版本的MSHTA.exe，但它导致错误的路径错误：

MyApp.hta

Function HTAElevate()
  Const Elev = " /elevated"
  HTAElevate = True
  If InStr( LCase( HTAinitfareweb.commandLine ), Elev) > 0 then Exit Function

  'Lancement du fichier HTA avec UAC, on passe egalement le dossier de travail actuel dans le parametre commandline pour outrepasser une limitation de securite'
  mshta64 = fso.buildpath(sh.ExpandEnvironmentStrings("%systemroot%"), "\Sysnative\mshta.exe")
  createobject("Shell.Application").ShellExecute mshta64, HTAinitfareweb.commandLine & Elev & chr(34) & chr(34) & fso.GetAbsolutePathName(".") & chr(34), "", "runas", 1

  HTAElevate = False

  self.close
End Function

实际结果是，我的hta应用程序以mshta.exe的32位版本启动，并且正如我在研究中发现的那样，我确实需要以64位版本启动它。

您可能已经注意到，我将BMP文件复制到System32文件夹中，它具有相同的行为：被复制到％systemroot％\\ sysWOW64，但这没关系，因为我可以自定义注册表REG_SZ以匹配文件位置文件。