vbsからPowerShellを実行したとき一瞬だけ立ち上がり画面が閉じてしまう。

Question

前提

vbsでpowershellのスクリプトを起動させたいと考えています。
powershellの該当のソースコードは一部ですが質問の箇所だけがうまく動作しません。
powershell単体で実行したときは入力フォーム画面が問題なく立ち上がってきます。

実現したいこと

vbsでpowershellを呼び出し、Inbox内のユーザに入力してもらうためのフォームを表示させたい。

発生している問題・エラーメッセージ

エラーメッセージ

該当のソースコード

『vbs』
Set objWShell = CreateObject("Wscript.Shell")
result = objWShell.Run ("%SystemRoot%\System32\WindowsPowerShell\v1.0\powershell.exe -File .\hoge\hoge.ps1",0,true)
WScript.Quit(result)

『PowerShell』
[void][System.Reflection.Assembly]::Load("Microsoft.VisualBasic, Version=8.0.0.0, Culture=Neutral, PublicKeyToken=b03f5f7f11d50a3a")
$INPUT = [Microsoft.VisualBasic.Interaction]::InputBox("入力して下さい。", "確認")
[System.Windows.Forms.MessageBox]::Show("受け付けました", "確認")

試したこと

vbsのRunメソッドの引数を０⇒1、true⇒falseに変更を試しましたがpowershellの画面が一瞬だけしか表示されないのは変わりませんでした。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。
Windows10　21H1

Answer 1

vbsからPowerShellを実行

Set objWShell = CreateObject("Wscript.Shell")
Const OPT     = "Powershell -ExecutionPolicy Unrestricted -NoExit "
result        = objWShell.Run (OPT & "%SystemRoot%\System32\WindowsPowerShell\v1.0\powershell.exe -File .\hoge\hoge.ps1",0,true)
WScript.Quit(result)

'
' 参考にしたサイト https://soypocket.com/it/vbs-powershell-silent-install/
'

Comments

[jackal1978]

ご回答ありがとうございました。こちらの回答でも問題なくどうさすることを確認いたしました。
この度はご支援ありがとうございました。

Answer 2

一番可能性が高そうなのは-ExecutionPolicy Unrestrictedが付いていないので実行ポリシー違反で動いていないとかかなぁ・・・
Runメソッドの2番目の引数を0にするとPowerShell側で作ったフォームも非表示になるようです。
PowerShellのオプションで-WindowStyle Hiddenとするとフォームが表示されました。

自分の環境ではポリシー設定してないので明示的に設定しましたが、これで表示しました。やっぱり-ExecutionPolicy Unrestrictedがいるのかな？

Set objWShell = CreateObject("Wscript.Shell")
result = objWShell.Run("%SystemRoot%\System32\WindowsPowerShell\v1.0\powershell.exe -WindowStyle Hidden -ExecutionPolicy Unrestricted -File .\hoge\hoge.ps1", 0, true)
WScript.Quit(result)

Comments

[jackal1978]

コメントありがとうございます。powershell側に明示的にポリシーを記載してあげないとダメなものでしょうか？
実行しているＰＣの環境は「RemoteSigned」に変更してあり、単体での右クリックでpowershellの実行は問題なくフォームが立ち上がってきます。vbs経由だとダメだったりするのでしょうか...。

[jackal1978]

コメントありがとうございます。
具体的には以下であっていますでしょうか？
result = objWShell.Run ("%SystemRoot%\System32\WindowsPowerShell\v1.0\powershell.exe　-WindowStyle Hidden -File .\hoge\hoge.ps1",0,true)

上の回答でいただいた部分でRunメソッドの2番目の引数を０もしくは1に変更もしてみたのですがフォームが表示されてくれないため書き方に誤りがありますでしょうか？

[jackal1978]

＞RiaFeedさん
ご支援ありがとうございました。無事に解決させることができました。

Answer 3

On Error Resume Next

Set objWShell = CreateObject("Wscript.Shell")
result = objWShell.Run ("%SystemRoot%\System32\WindowsPowerShell\v1.0\powershell.exe -WindowStyle Hidden -File .\hoge.ps1",1,true)

WScript.Quit(result)