Necesito ejecutar una línea de comandos en una secuencia de comandos de Visual Basic

Necesito ejecutar el comando "ver" en mis vbs para ver la versión de mi sistema operativo, y no sé cómo hacerlo.

Intenté esto, pero no trabajo:

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

Respuestas a la pregunta(2)

Su respuesta a la pregunta