Run DOS commands in Visual Studio

Question

I need to know which command on Visual Studio 2013 executes the command to stop a Windows system service. No DOS I do like this:

net stop Audiosrv
netstart Audiosrv
exit

The other question is how to execute the commands DOS inside Visual Studio 2013 - Visual Basic. Calling or not SHELL cmd.exe

I tried to do so but it is not working, because it is not calling the commands DOS.

Private Sub ExecutarComando()

 Dim comando As String = "/del C:\1.txt"

Shell ("cmd.exe /c " & comando)

 End Sub

Answer 1

THE COMMAND OF NET is an executable - net.exe. Thus, it can be invoked as an executable via class Process. Here is a wrapper that returns a string containing the result of the command. Example of use:

retorno = ExecutaComando("net.exe", "start Audiosrv")

Here is the function in Visualbasic.NET:

Private Shared Function ExecutaComando(pComando As String, pParametros As String) As String
    Dim _ret As String = ""

    Dim procShell As New Process()

    'Seu comando vai aqui.
    procShell.StartInfo.FileName = pComando

    'Os argumentos, aqui.
    procShell.StartInfo.Arguments = pParametros

    procShell.StartInfo.CreateNoWindow = True
    procShell.StartInfo.RedirectStandardOutput = True
    procShell.StartInfo.UseShellExecute = False
    procShell.StartInfo.RedirectStandardError = True
    procShell.Start()

    Dim streamReader As New StreamReader(procShell.StandardOutput.BaseStream, procShell.StandardOutput.CurrentEncoding)

    Do
        Dim _line As String = streamReader.ReadLine()
        If (IsNothing(_line)) Then Exit Do
        _ret = _ret + _line + vbCrLf
    Loop

    streamReader.Close()

    Return _ret

End Function

For example, the following use:

ExecutaComando("net.exe", "stop w3svc")

Returns the following value on a Windows 8.1 machine with IIS installed:

The World Wide Web Publishing Service service is stopping.
The World Wide Web Publishing Service service was stopped successfully.

You can use the same method with CMD. Example:

Process.Start("cmd", "/c del C:\1.txt")

Answer 2

Problem solved , I resolved so :

To start

Shell("net start WSearch") 'Windows Search Start'

To Stop

Shell("net stop Wsearch")'Windows Search Stop'