エクセルVBAからPOWERSHELLを利用して「アクティブネットワークの表示」を取得したい

Question

前提・実現したいこと

実現したいことは、エクセルのマクロで「コントロールパネル]>「ネットワークと共有センター」で
表示される「アクティブなネットワークの表示」の状態を取得したいのです。
ネットで検索していると「POWERSHELL」にて[GET-NETCONNECTIONPROFILE」コマンドを実行すると
表示される結果の「NETWORKCATEGORY」欄が該当することがわかりました。

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

ネットのサンプルを流用しつつ下記のマクロを作成し実行しました。
POWERSHELLは起動していますが結果を得ることが出来ませんでした。

該当のソースコード

Dim WSH As Object
Dim RES As Object
Dim cmdstr As String, tmp As String
Set WSH = CreateObject("WScript.Shell")

cmdstr = "Get-NetConnectionProfile"
Set RES = WSH.Exec("powershell -nologo -ExecutionPolicy Bypass -Command " & cmdstr)

Do While RES.Status = 0
Sleep 100
Loop

tmp = RES.StdOut.ReadAll
MsgBox (tmp)

Set RES = Nothing
Set WSH = Nothing

試したこと

マクロの書き方の問題かと思い、下記の表示を試して見ましたが取得できませんでした。
'Set objExec = objWshShell.Exec("powershell -nologo -command " & cmdstr)
'Set objExec = objWshShell.Exec("powershell -nologo -ExecutionPolicy RemoteSigned -Command """ & cmdstr & """ -Verb Runas")
'Set objExec = objWshShell.Exec("powershell -nologo -ExecutionPolicy RemoteSigned -Command " & cmdstr)
'Set objExec = objWshShell.Exec("powershell -nologo -ExecutionPolicy RemoteSigned -Command " & cmdstr & " -Verb Runas")
但し、
"Get-NetConnectionProfile"コマンドのみ取得できず、
他で試した、"get-date"や"get-volume","ipconfig"などは取得できています。

powershellやwscriptの基本もよく理解していない初心者が
サンプルを見ながらマクロを作成する時点で問題はあるかと思いますが
皆様のお力をお借りしたく質問させていただきました。
宜しくお願い致します

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

OS:WINDOWS 8.1
POWERSHELLバージョン:4.0
EXCEL:2013

Answer 1

(間違って回答欄に記入してしましましたがそのままにして置きます。)

Answer 2

度々すみません。
tosi様のサンプルの
Result = WSH.Run("PowerShell -NoExit -nologo -ExecutionPolicy Bypass -Command " & cmdstr, 4, True)でpowershellを"sysnative"のフルパスで置き換えてもデータ取得できました。
追記しておきます。ありがとうございました。

Comments

[tosi]

32bit版VBAから64bitのPowerShel起動出来るんですね。参考になりました。

Answer 3

tosi様
有難うございました。
やっと下記の記述でデータを取ることができました。
cmdstr="C:\Windows\sysnative\WindowsPowerShell\v1.0\powershell.exe -nologo -ExecutionPolicy Bypass -Command get-netconnectionprofile"
Set res = WSH.Exec(cmdstr)
32bitプログラムから64bitのpowershellを呼び出す場合system32をsysynativeに置き換えなければならないのですね。勉強になりました。
本当にtosi様のコメントのおかげで解決できました。
感謝いたします。

Answer 4

Get-NetConnectionProfileは32bitのPowerShellでは動きません。
https://stackoverflow.com/questions/28156066/how-to-resolve-get-netconnectionprofile-provider-load-failure-on-x86-powershel

下記のコードでGet-NetConnectionProfileコマンドが正常に動くか試して見て下さい。

Sub Test_Sample_Miniature()
    Dim WSH As Object
    Dim cmdstr As String
    Dim Result
    Set WSH = CreateObject("WScript.Shell")
    cmdstr = Chr(34) & "& {Get-NetConnectionProfile}" & Chr(34)
    Result = WSH.Run("PowerShell -NoExit -nologo -ExecutionPolicy Bypass -Command " & cmdstr, 4, True)
    Set WSH = Nothing
End Sub

Get-NetConnectionProfileをPowerShell32/64で動かした画像を添付いたします。


同様なエラーが出る様でしたら64bit版のVBAを利用すれば動くと思われます。

Comments

[CIBI]

tosi様
返信遅くなり申し訳ありません。
貴重なご意見有難うございました。
test_sample_Miniature()実行しましたところ
やはり32bitのpowershellが起動しているようで
32bitのエラーが表示されました。
私も64bitのpowershell を起動して試したところ
上手く取得できているので64bit版powershellが起動すれば
取得できそうです。
”powershell.exe -ExecutionPolicy Bypass Start-Process C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe”と
フルパスで入力してもやはり32bitが起動します。
ヒント大変参考になりました。
もう少しトライしてみます。
有難うございました。