Buenas ,estoy teniendo un problema de microcortes en un pc, dentro de una red, y me interesaría un software para monitorizar caídas y cortes en otros equipos de la misma red para asegurarme que no es un problema local.¿Cual me recomendáis? Gracias y saludos
Algo que hace ping constantemente te valdría. Tenia un script echo en VBS para esto, pero hay muchas programas por alli que hacen esto, seguro. Las que uso yo hacen mucho mas que solo el ping, seria un overkill.
He encontrado el script:
para usralos tienes que poner el IP address y el nombre de archivo para el log
Osea algo asi:
Edit - Gracias akiles
c:\cscript SCRIPT.vbs 10.0.0.3 "log-3.txt"dim x
x=1
Dim Args
Set Args = WScript.Arguments
if WScript.Arguments.count<>2 then
wscript.echo "Please specify the IP and the file name"
wscript.quit
end if
Set filesys = CreateObject("Scripting.FileSystemObject")
Set filetxt = filesys.CreateTextFile("c:\" & args(1), True)
filetxt.WriteLine("Start Date: " & now)
filetxt.WriteLine ()
Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshNetwork = WScript.CreateObject("WScript.Network")
do until x<0
Set WshExec = WshShell.Exec("ping -n 1 -w 1000 " & args(0)) 'send 1 echo requests, waiting 1 secs each
strPingResults = LCase(WshExec.StdOut.ReadAll)
If InStr(strPingResults, "reply from") Then
'Wscript.echo "responded to ping."
Else
Wscript.echo " !!!!!did not respond to ping.!!!!!"
filetxt.WriteLine ("Did not respond to ping at: " & now)
end if
loop
#1 Prueba HostMonitor
Aunque detectar que es lo que produce esos cortes no suele ser una tarea sencilla.
#3 no quiero detectar los cortes, solo quiero asegurarme al menos que dentro de mi red,no se dan los cortes, pero gracias 
#5 El argumento uno es "C:\"+loquesea
Creo que solo hay que poner el nombre del archivo de texto. (Ya que C:\c:\texto.txt no existe)
#5 Tengo un error en llamada del script - no hay que poner "c:\"
Prueba asi:
c:\cscript SCRIPT.vbs 10.0.0.3 "log-3.txt" #9 Hehehehe no lo habia pensado que la gente usa Windows en otas ideomas
If InStr(strPingResults, "reply from") Then pasa a ser
If InStr(strPingResults, "respuesta desde") Then #10 Joder, yo habia puesto "Respuesta desde" tal cual aparece xD.
De todas formas si lo ejecuto se vuelve loco, creando cmds y cerrandolas sin parar, me bloquea el equipo tengo que cerrar sesion para pararlo, y ahora los argumentos estan bien.
#11 Acaso le ejecutas dando el doble clic 
. Por lo menos lo que decribes pasaría en tal caso.
Pero vamos, no te comes el coco mucho, es algo que he echo en 15 minutos hace bastante anyos para algo muy puntual, seguro que hay programillas que hacen lo mismo mucho mas facil.