como saber si puede resivir un net send?

[deimos_rasiv]

Hola a todos

creo que este es mi primera consulta en vB puesto que antes estaba en Batch, y como dije alguna ves, es hora de aprender al mas!

Estoy en un programita que me envia un mensaje a unas determinadas maquinas, y es como un boton de panico, lo apretas y envia el mensaje, el mensaje ya esta establecido y a las maquinas que seran enviadas tambien
esta es la estructura

Private Sub form_load()
Dim Usuario As String
Dim Contador As Integer
Dim Linea1 As String
Dim Linea2 As String
Dim Linea3 As String
Dim Linea4 As String
Dim Linea5 As String
Dim Linea6 As String
Dim Linea7 As String
Dim Linea8 As String
Dim Ruta As String
Dim Modulo As String
Dim Caja As String


Contador = 1
'======== esta linea lee cual es el nombre de la pc ============
    Caja = LeeINI("C:\msg\Config.ini", "Caja", (1))
'======== esta linea lee cual es el nombre del modulo (configuracion propia) ============
   Modulo = LeeINI("C:\msg\Config.ini", "modulo", (1))
'======== esta linea lee cual es la ruta para buscar el archivo de mensajes (que esta en otra pc)============
    Ruta = LeeINI("C:\msg\Config.ini", "Ruta", (1))
'======== esta linea lee los mensajes por linea ============
            Linea1 = LeeINI((Ruta) + "Config2.ini", "Linea", (1))
            Linea2 = LeeINI((Ruta) + "Config2.ini", "Linea", (2))
            Linea3 = LeeINI((Ruta) + "Config2.ini", "Linea", (3))
            Linea4 = LeeINI((Ruta) + "Config2.ini", "Linea", (4))
            Linea5 = LeeINI((Ruta) + "Config2.ini", "Linea", (5))
            Linea6 = LeeINI((Ruta) + "Config2.ini", "Linea", (6))
            Linea7 = LeeINI((Ruta) + "Config2.ini", "Linea", (7))
            Linea8 = LeeINI((Ruta) + "Config2.ini", "Linea", ()
'======== esta linea lee cual el nombre de la maquina a la cual sera enviada============
    Usuario = LeeINI((Ruta) + "Config.ini", "Usuarios", (Contador))
Do While Usuario <> ""
    Usuario = LeeINI((Ruta) + "Config.ini", "Usuarios", (Contador))
        If Usuario <> "" Then
'======== esta linea envia el mensage ============
        Shell ("net send ") + (Usuario) + " " & Chr(13) & (Linea2) + (Caja) + ("  ") + (Linea3) + (" ") + (Modulo) + (Linea4) & Chr(13) & (Linea5) & Chr(13) & (" ") + (Linea6) & Chr(13) & (Linea7) & Chr(13) & (Modulo) + " , Caja Nº " + (Caja) & Chr(13) & (Linea1) & Chr(13) & (Linea8)
        Contador = Contador + 1
       End If
    Loop
End
End Sub

en si el programa me funciona bien, lo que no me gusta es que en ocaciones no todas las maquinas a las que le enviare el famosos msg esten encendidas, por lo que me abre una ventanita de ms-dos esperando el retorno del error

Que es lo que quiero? saber que maquinas estan encendidas antes de mandar el msg ( si en la lista aparece la maquina llamada  camilo , y camilo ese dia no esta encendida, no envie el msg )
Habia pensado  hacer un net  view>listado.txt antes y buscar en lel txt las maquinas que coinsiden con mi lista

pero no se como

con un open file?


que opinan


saludos cordiales a todos   

 

[-Adriano-]

lo mas recomendable es que NO uses el comando net send si no que uses sockets
para establecer las conecciones entre los clientes y el servidor...
otra cosa en que tipo de entorno va a funcionar tu programa? y cual es su funcion?
respondeme eso asi te ayudo mejor....

saludos -Adriano-

[deimos_rasiv]

Gran detalle, en que plataforma funcionara.... todo esto funciona en plataforma windowsXP sp2 Profecional
  ya la utilidad es como dije un boton de panico .
un ejemplo seria

llego el jefe ponganse a trabajar!!!

anteriormente estaba tratando de hacer algo como el msn para interactuar uno con el otro pero al final lo deje como un mensajero (manda un mensage)


eso es   ,......  help!!

[-Adriano-]

bueno como dije usar sockets seria lo mas adecuado...
lei que estabas en batch antes sabes usar bien el netcat?....
lo q te puedo sugurir es que tengas un server central en una determinada maquina (que lo unico q hace esrepetir el msg q recibe a todos los users conectados) y un cliente en cada maquina