Code: Selecteer alles
systeminfo /FO CSV /NHNu heb ik het geprobeerd met de volgende code
zonder parameters doet hij het dus perfect, maar met parameters geeft hij gewoon al output het command zelf
Ook Shell() heeft geen soelaas gebracht.
Heeft iemand ervaring met uitvoering van (DOS) commands?
Code: Selecteer alles
Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
TextBox1.Text = ExecuteApp("systeminfo")
FileOpen(1, "c:\output.txt", OpenMode.Output)
PrintLine(1, TextBox1.Text)
FileClose(1)
End Sub
Public Function ExecuteApp(ByVal cmd As String) As String
Dim output As String
Dim errors As String
'create a tempfilecollection for output and error messages
Dim tf As New System.CodeDom.Compiler.TempFileCollection()
'execute the command
System.CodeDom.Compiler.Executor.ExecWaitWithCapture(cmd, tf, output, errors)
'read the file with the output of the command and return its content
Dim sr As System.IO.StreamReader = System.IO.File.OpenText(output)
ExecuteApp = sr.ReadToEnd
sr.Close()
'Delete the temporary files
System.IO.File.Delete(output)
System.IO.File.Delete(errors)
End Function
Het valt me op (en ik ben heus niet de enigste) dat je zelf NOOIT zoekwerk verricht. Hef je luie kont eens op (hoeft zelfs niet eens) en verricht wat zoekwerk. Is zelfs dat je teveel, dan kan je beter terug in de zandbak gaan spelen 
