次の Sub を使用して引数を Powershell に渡します。
Sub testpower()
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run ("Powershell.exe -file .\test.ps1 -path ""Shell.txt"" ")
End Sub
ただし、VB で実行すると出力が生成されませんが、実行コマンドから直接実行しようとすると、目的の結果が得られます。助けてください。
test.ps1 スクリプト:
Param([String]$path)
Get-AuthenticodeSignature $path | Out-File "C:\Documents and Settings\acmeuser1\output.txt"