在HTA中输出PowerShell脚本

Question

我试图从HTML应用程序[HTA]调用powershell脚本：

Set WshShell = CreateObject("WScript.Shell")

Set retVal = WshShell.Exec("powershell.exe  C:\PS_Scripts\test.ps1")

test.ps1只返回进程计数

return (Get-Process).Count

我想获取此powershell脚本的输出，然后将其存储在本地变量中或显示在HTA上。 如何才能做到这一点？

我试过用：

retVal.StdIn.Close()

result = retVal.StdOut.ReadAll()


alert(result)

但打印结果值为null。

请帮我解决这个问题。

Answer 1

这对我有用：

test.ps1：

(Get-Process).Count | Out-File c:\temp\output.txt -Encoding ascii

test.hta：

<head>
<title>HTA Test</title>
<HTA:APPLICATION 
     APPLICATIONNAME="HTA Test"
     SCROLL="yes"
     SINGLEINSTANCE="yes"
     WINDOWSTATE="maximize"
</head>
<script language="VBScript">
    Sub TestSub

        Set WshShell = CreateObject("WScript.Shell")
        return = WshShell.Run("powershell.exe -ExecutionPolicy Unrestricted -File test.ps1", 0, true)
        Set fso  = CreateObject("Scripting.FileSystemObject")
        Set file = fso.OpenTextFile("c:\temp\output.txt", 1)
        text = file.ReadAll     
        alert(text)     
        file.Close      
    End Sub
</script>
<body>
    <input type="button" value="Run Script" name="run_button"  onClick="TestSub"><p> 
</body>

Answer 2

这是另一个示例，向您展示如何在使用HTA执行powhershell文件时在textarea中获取输出结果！

<html>
<head>
<title>Execution a powershell file with HTA by Hackoo</title>
<HTA:APPLICATION 
     APPLICATIONNAME="Execution a powershell file with HTA by Hackoo"
     SCROLL="yes"
     SINGLEINSTANCE="yes"
     WINDOWSTATE="maximize"
     ICON="Winver.exe"
     SCROLL="no"
/>
<script language="VBScript">
Option Explicit
Sub Run_PS_Script()
    ExampleOutput.value = ""
    btnClick.disabled = True
    document.body.style.cursor = "wait"
    btnClick.style.cursor = "wait"
    Dim WshShell,Command,PSFile,return,fso,file,text,Temp
    Set WshShell = CreateObject("WScript.Shell")
    Temp = WshShell.ExpandEnvironmentStrings("%Temp%")
    Command = "cmd /c echo Get-WmiObject Win32_Process ^| select ProcessID,ProcessName,Handle,commandline,ExecutablePath ^| Out-File %temp%\output.txt -Encoding ascii > %temp%\process.ps1"
    PSFile = WshShell.Run(Command,0,True)
    return = WshShell.Run("powershell.exe -ExecutionPolicy Unrestricted -File %temp%\process.ps1", 0, true)
    Set fso  = CreateObject("Scripting.FileSystemObject")
    Set file = fso.OpenTextFile(Temp &"\output.txt", 1)
    text = file.ReadAll 
    ExampleOutput.Value=text
    file.Close
    document.body.style.cursor = "default"
    btnClick.style.cursor = "default"
    btnClick.disabled = False   
End Sub
</script>
</head>
<body bgcolor="123456">
<textarea id="ExampleOutput" style="width:100%" rows="37"></textarea>
<br>
<center><input type="button" name="btnClick" value="Run powershell script file " onclick="Run_PS_Script()"></center> 
</body>
</html>

Answer 3

您可以使用WScript.Shell的Exec方法来避免中间文件。 不幸的是，它在运行时会打开一个新窗口，但代码更清晰，并且可以访问StdOut和StdErr流。 将其粘贴到.HTA文件中（如果需要，可以使用标题和正文）进行测试：

<script language="Javascript">
var proc; //global scope
function execWithStatus(cmdLine){//Can't run minimized with Exec. Can't capture StdOut/StdErr with Run. 
    proc = new ActiveXObject("WScript.Shell").Exec(cmdLine);
    setTimeout("writeOutLine()",100);//pause for 100 ms to allow StdOut to stream some data 
    proc.StdIn.Close();//must close input to complete a powershell command    
}
function writeOutLine(){
    if(!proc.StdErr.AtEndOfStream) {txtResults.value += "ERROR: " + proc.StdErr.ReadAll() + "\n";}
    if(!proc.StdOut.AtEndOfStream) {txtResults.value += proc.StdOut.ReadLine() + "\n";writeOutLine();} 
}
</script>
<textarea id=txtCmd style="width:90%" rows=1>
powershell.exe -noninteractive -command return (Get-Process).Count</textarea> 
<button onclick="execWithStatus(txtCmd.value)">Run</button>
<br><textarea id=txtResults style="width:100%" rows=20></textarea>

部分问题可能是Exec没有阻止等待StdOut开始填满。 添加计时器为我纠正了这个问题。

在HTA中输出PowerShell脚本

问题描述

3 个解决方案

解决方案1
4 已采纳 2016-02-04 12:51:10

解决方案2
3 2016-02-08 10:57:26

解决方案3
0 2018-10-26 16:33:33

在HTA中输出PowerShell脚本

问题描述

3 个解决方案

解决方案1 4 已采纳 2016-02-04 12:51:10

解决方案2 3 2016-02-08 10:57:26

解决方案3 0 2018-10-26 16:33:33

解决方案1
4 已采纳 2016-02-04 12:51:10

解决方案2
3 2016-02-08 10:57:26

解决方案3
0 2018-10-26 16:33:33