Eu preciso executar uma linha de comando em um script do Visual Basic

Eu preciso executar o comando "ver" no meu vbs para ver a versão do meu sistema operacional, e eu não sei como fazer isso.

Eu tentei isso, mas não funciona:

Function ExecuteWithTerminalOutput(cmd)
Set shell = WScript.CreateObject("WScript.Shell")
Set Exec =  shell.Exec("ver")
End Function