Function GetPowerShellResult(cmdStr) As String Dim result As String ' Rnuコマンド、非表示(0)で実行して完了を待つ ' -NoLogo 見出しを出さない ' -ExecutionPolicy RemoteSigned 実行権限を設定 ' -Command コマンド引数(これ以降にPowerShellのコマンドレット構文を記載) Call objWshShell.Run("...
'Private にしてもOK(Application.Runはスコープ無視で実行出来るため) Function GetScriptCtrl(Optional ByVal ioScrCtrl As Object) As Object 'As MSScriptControl.ScriptControl '32bit版PowerShellへのパス ※環境依存 Dim ps32Path$: ps32Path = VBA.Environ$("windir") & "\SysWOW64\WindowsPowerShell\...