Se você é um administrador de sistema , você provavelmente realizar a manutenção do sistema e backups em vários computadores . A maioria dessas tarefas pode ser feito remotamente , mas somente se os sistemas que você está trabalhando estão ligados. Antes de iniciar a sua manutenção programada , você pode executar um script de Visual Basic que irá permitir que você pingar as máquinas em sua rede. Coisas que você precisa
conexão de rede para máquinas remotas
compilador Visual Basic : Lista de endereços IP para as máquinas que você deseja executar ping
Show Mais instruções
1

Criar uma lista de computadores com base em endereços IP. Digite apenas os endereços IP e apenas uma linha por . Guarde essa lista como um arquivo de texto , por exemplo, salvar o arquivo como "c: \\ serverlist.txt "
2

Crie um script de Visual Basic que chama o "c: \\ serverlist.txt " file como um arquivo de origem. Este script também irá produzir os resultados para o arquivo "c: \\ output.csv " . Use o seguinte código :

fraca strInputPath , strOutputPath , strStatus

fraca objFSO , objTextIn , objTextOut

strInputPath = "c : \\ serverlist.txt ") ' - localização dos entrada

strOutputPath = "c : \\ output.csv ") ' - local de saída

definir objFSO = CreateObject (" Scripting.FileSystemObject " )

definir objTextIn = objFSO . OpenTextFile ( strInputPath , 1)

definir objTextIn = objFSO.CreateTextFile ( strOutputPath )

objTextOut.WriteLine ( "computador , o status " )

fazer até objTextIn.AtEndOfStream = verdadeira

strComputer = objTextIn.ReadLine

se fPingTest ( strComputer ), então

strStatus = "UP"

mais

strStatus = "DOWN"

final se

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

laço
3

Compilar e executar o código. Analise o conteúdo do "c: \\ output.csv " .