Calling Up NetStat and NbtStat Commands

This is what i put i had too change the Drive Letters but Its not Saving anything in the myfile.txt for C: I open it and its Blank...

VB Code:

Private Sub Form_Load()
  Shell ("E:\Windows\System32\cmd.exe /e  E:\Windows\System32\netstat -n >> C:\myfile.txt"), vbNormalFocus
End Sub

I went threw all the NetStat and NbtStat Commands and nothing was saved into that Text File...

My Orginal Thread :

I'm making a Networking Application using the traditional DOS Commands for NetStat and NbtStat...

I have an App made but its not doing what i need it to do,I have a Different Button for each NetStat and Nbt Stat Commands.It brings up a DOS Window but Pings first and Dosnt Do the actual Command itself..

This is what i have:

VB Code:

Private Sub KewlButtons1_Click()
Open App.Path & "\exec.bat" For Append As #1
Print #1, "@cls"
Print #1, "@echo [" & Text1 & Text2; "]"
Print #1, "@netstat -n"
Print #1, "@pause"
Close #1
Dim X
X = Shell(App.Path & "\exec.bat", vbMaximizedFocus)
End Sub

I need help with the Following Commands:

NetStat -n ,NetStat -e,NetStat -s, NetStat -a ,NetStat -r,NetStat -p proto

NbtStat -a,NbtStat -A,NbtStat -c, NbtStat -r,NbtStat -s,NbtStat -S, NbtStat -n & NbtStat -R..

Thxs in Advance....

Wasn't this resolved the other day? That's the problem with double posts. Nobody knows when the other is resolved.