Shell cmd ipconfig

Shell("cmd /c ipconfig >> d:\ipuse.txt")
Dim filename As String = "d:\ipuse.txt"
TextBox1.Text = My.Computer.FileSystem.ReadAllText(filename, System.Text.Encoding.Default)