VBScript elevated command with output to file

Hi All,

I am trying to run the following test.vbs
However after the script run successfully the text file is always blank. Any ideas why the output is not saving in the text file?

Code is below:

Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "cmd.exe", "/k manage-bde -protectors c: -get -Type recoverypassword > c:\output.txt", "", "runas", 0