Public Shared Function ExecuteCmd(ByVal cmd As String) As String
Dim startInfo As New ProcessStartInfo("cmd.exe")
With startInfo
.Arguments = "/C " + cmd
.RedirectStandardError = True
.RedirectStandardOutput = True
.UseShellExecute = False
.CreateNoWindow = True
.WindowStyle = ProcessWindowStyle.Hidden
End With

Dim p As Process = Process.Start(startInfo)
Dim strOutput As String = p.StandardOutput.ReadToEnd()
Dim strError As String = p.StandardError.ReadToEnd()

p.WaitForExit()

If (strOutput.Length <> 0) Then
Return strOutput
ElseIf (strError.Length <> 0) Then
Return strError
End If

Return "" End Function