powershellコマンドを実行

Public Function callPowershell(ByVal cmdStr As String)
'@@powershellコマンドを実行
    Dim Wsh
    Set Wsh = CreateObject("Wscript.shell")
 
    Wsh.Run "powershell -ExecutionPolicy RemoteSigned -Command " & cmdStr, 0
End Function

https://technet.microsoft.com/ja-jp/library/ee176961.aspx