powershell VBA

 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