Cómo hacer ping a un lista de equipos con VBScript

Si usted es un administrador del sistema , es probable que realice tareas de mantenimiento del sistema y copias de seguridad en muchas computadoras . La mayor parte de estas tareas se pueden realizar de forma remota , pero sólo si los sistemas de los que está trabajando están encendidos . Antes de comenzar el mantenimiento programado , se puede ejecutar un script de Visual Basic que le permitirá hacer ping a las máquinas de la red. Cosas que necesitará
Conexión de red a máquinas remotas
Visual Basic compilador Lista de direcciones IP para equipos que desea hacer ping
Ver Más instrucciones
1

Crear una lista de equipos basado en direcciones IP . Introduzca solamente las direcciones IP y sólo uno por línea. Guarde esta lista como un archivo de texto , por ejemplo , guarde el archivo como "c: \\ serverlist.txt "
2

Crear un script de Visual Basic que llama a la "c: \\ serverlist.txt " archivo como un archivo de origen. Este script también dará salida a los resultados en el archivo "c: \\ output.csv " . Utilice el siguiente código :

strInputPath tenue, strOutputPath , strStatus

dim objFSO , objTextIn , objTextOut

strInputPath = " c: \\ serverlist.txt ") '- localización de entrada

strOutputPath = " c: \\ output.csv ") ' - Ubicación de la producción

establecer objFSO = CreateObject ( " Scripting.FileSystemObject " )

conjunto objTextIn = objFSO . OpenTextFile ( strInputPath , 1) spanish

establece objTextIn = objFSO.CreateTextFile ( strOutputPath )

objTextOut.WriteLine ( " equipo de estado" )

hacer hasta objTextIn.AtEndOfStream = verdadero

strComputer = objTextIn.ReadLine

si fPingTest ( strComputer ) entonces

strStatus = " UP"

más

strStatus = "DOWN "

final si

objTextOut.WriteLine ( strComputer & ", " & strStatus )

loop
3

Compile y ejecutar el código. Revisar el contenido de "c: \\ output.csv " .