Sección de códigos , trucos y ejemplos para visual basic

461 - Ejecutar comando DOS y retornar la salida hacia nuestro programa

Ejemplo que usa Windows Script Host para ejecutar una línea de comando DOS desde vb, y poder obtener el retorno hacia nuestra aplicación , en este caso se visualiza en un textbox Multilinea

Para ejecutar el comando se utiliza el método Exec de la clase WshExec de WSH , y para leer el resultado el método ReadAll de la clase WshShell

Para el ejemplo se debe agregar la referencia a Windows Script Host desde el menú de referencias de visual basic

Añadir los controles que se indican en el código .. como se ve en el formulario

Código fuente

Option Explicit 'Un textbox multilinea : txt_resultado 'Un TextBox : txt_Comando 'Un commandbutton 'La referencia a Windows Script Host Object Model '''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Command1_Click() txt_resultado.Text = "" txt_resultado.Text = ejecutar_Dos(Trim(txt_Comando)) End Sub Private Sub Form_Load() Command1.Caption = " Ejecutar DOS " txt_Comando.Text = "dir c:\windows\system32\*.*" End Sub Function ejecutar_Dos(Comando As String) As String Dim oShell As WshShell Dim oExec As WshExec Dim ret As String Set oShell = New WshShell DoEvents ' ejecutar el comando Set oExec = oShell.Exec("%comspec% /c " & Comando) ret = oExec.StdOut.ReadAll() ' retornar la salida y devolverla a la función ejecutar_Dos = ret ' Replace(ret, Chr(10), vbNewLine) DoEvents Me.SetFocus End Function ' Ejemplos 'txt_resultado.Text = ejecutar_Dos("ping www.google.com.ar") 'txt_resultado.Text = ejecutar_Dos("ipconfig /all") 'txt_resultado.Text = ejecutar_Dos("ipconfig help")

Buscar en Recursos vb