none
Guardar un log en script de ping contínuo. RRS feed

 > 

  • Pregunta

  • Question
    Inicie sesión para votar
    0
    Inicie sesión para votar

     

    Buenas a todos,

     

    Actualmente estoy usando un script que saqué de:

     

    Script Center Home > Script Repository > Networking > Client-Side Management >Retrieving Information 

     

    Este script mantiene un ping contínuo a verios equimos de mi red. Ahora bien, necesito modificarlo para que me guarde un log de los resultados (para ver si hemos tenido alguna incidencia por la noche, por ejemplo).

     

    Para vuestra comodidad os adjunto el script:

     

    strMachines = "atl-dc-01;atl-win2k-01;atl-nt4-01;atl-dc-02"
    aMachines = split(strMachines, ";")

    For Each machine in aMachines
        Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._
            ExecQuery("select * from Win32_PingStatus where address = '"_
                & machine & "'")
        For Each objStatus in objPing
            If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then
                WScript.Echo("Computer " & machine & " is not reachable")
            End If
        Next
    Next

     

    ¿Conocéis algún script que guarde un log de este tipo?, ¿que necesitaría añadir para tener el log?.

    lunes, 12 de enero de 2009 12:48
    |

Respuestas

  • Question
    Inicie sesión para votar
    0
    Inicie sesión para votar

    este es un ejemplo (que baje de algun sitio de internet) que utilizo para guardar un log de una copia de seguridad que realizo, creo que te serviria para lo que estas queriendo realizar, fijate que tiene una rutina que recibe como parametro un comando a guardar en el log (en tu caso modificalo y fijate lo q quieras guardar) y recibe el archivo donde lo voy a guardar

     

    Espero te sirva

     

    Dim str_log 'Ruta + Nombre del fichero Log
    str_log = "d:\resguardo\logs\copia del - " & FormatDateTime(Date, vbLongDate) &  ".log"

     

    Sub s_EscribeLog(str_Linea, str_Log)
    'Esta rutina recibe una línea que se debe escribir en el fichero de texto cuya
    'ruta+nombre está especificada por str_Log

        Dim obj_FS
        Dim obj_Log

        Set obj_FS = CreateObject("Scripting.FileSystemObject")

        Set obj_Log = obj_FS.OpenTextFile(str_Log, 8, False)
        obj_Log.WriteLine str_Linea
        obj_Log.Close
        Set obj_Log = Nothing
        Set obj_FS = Nothing

    End Sub

     

    martes, 13 de enero de 2009 19:24
    |