VB winsock传递数据问题

    我用VB winsock做了一个传递CMD命令的软件，为什么发送端发送的数据和接收端接收到的数据不一样啊？（本机测试）比如我在发送端发送了一个命令"dir c:\ "为什么接收端接收到的数据却是乱码？
发送端代码：
Private Sub Command1_Click()
For i = 0 To F1.serversk.UBound '查找将接收数据的IP。
If F1.serversk(i).RemoteHostIP = S Then ’S为一个IP字符串，前面代码得到的IP
F1.serversk(i).SendData Text2.Text
End If
Next i
End Sub

接收端代码：
Private Sub Wk_DataArrival(ByVal bytesTotal As Long)
Dim datas, pdi
Dim hpro, tet As String
Wk.GetData datas
MsgBox datas ’就这个msgbox显示出来的消息，怎么会是乱码呢？请各位帮忙。谢谢
pdi = Shell("cmd.exe /c " & datas & " >> c:\1.txt", vbHide)
hpro = OpenProcess(PROCESS_ALL_ACCESS, False, pdi)
here:
If hpro <> 0 Then’如果HPRO=0则表示shell调用的命令已经执行完成。
GoTo here:
Else
'读取1.txt内的内容
Open App.Path & "\1.txt" For Input As #2
Do While Not EOF(2)
Line Input #2, tet
Wk.SendData tet
Loop
Close #2
Kill App.Path & "\1.txt"
End If
End Sub

---

用psexec就行了。

http://www.google.cn/search?hl=zh-CN&newwindow=1&q=psexec%E7%94%A8%E6%B3%95&aq=3&oq=psexec