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

Question

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

yo probamos este, pero no funcionan:

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

Answer 1

intentar algo como esto:

Dim objShell 
Set objShell = WScript.CreateObject ("WScript.shell") 
objShell.run "cmd /c ver" 
Set objShell = Nothing 

EDIT:

Bueno, entonces usted puede redirigir la salida a un archivo y después lee el archivo:

return = WshShell.Run("cmd /c ver > c:\temp\output.txt", 0, true) 

Set fso = CreateObject("Scripting.FileSystemObject") 
Set file = fso.OpenTextFile("c:\temp\output.txt", 1) 
text = file.ReadAll 
file.Close 

Answer 2

Hay una forma de hacerlo sin tener que escribir salida en un archivo.

Por ejemplo, supongamos que desea capturar el texto de una lista de directorios. (. Habría un montón de mejores maneras de conseguir lo que esto, pero yo estoy usando un ejemplo sencillo)

Con la función de abajo en su VBScript, puede escribir:

thisDir = getCommandOutput("cmd /c dir c:") 

Y cuando la línea de arriba se ejecuta, la variable "thisDir" contendría el resultado del comando DIR.

Tenga en cuenta que algunos comandos que desea obtener de salida requerirán pasarlos a través del shell de comandos (la parte "cmd/c" de arriba), mientras que otros pueden funcionar bien si los ejecuta directamente sin el shell. Pruébalo sin el shell de comandos. Si falla, pruébelo con el shell de comandos.

' 
' Capture the results of a command line execution and 
' return them to the caller. 
' 
Function getCommandOutput(theCommand) 

    Dim objShell, objCmdExec 
    Set objShell = CreateObject("WScript.Shell") 
    Set objCmdExec = objshell.exec(thecommand) 
    getCommandOutput = objCmdExec.StdOut.ReadAll 

end Function