Script ping

Plus d'informations
il y a 5 mois 2 semaines #29559 par Troxsa
Réponse de Troxsa sur le sujet Re:Script ping
-- poste en double ---<br><br>Message édité par: Troxsa, à: 18/12/19 08:23

Connexion ou Créer un compte pour participer à la conversation.

Plus d'informations
il y a 5 mois 2 semaines #29560 par Troxsa
Réponse de Troxsa sur le sujet Re:Script ping
Bonjour,

En partant sur l’existence d'un dossier ListePostes et des fichier *.txt contenant des noms de machines dedans

pour mon exemple j'ai fait une liste computer.txt et une autre avec serveurs.txt


[code:1]cls
Write-host \&quot;Execution du ping... \&quot;

$s = @()


$Liste = @()
[Array]$Machines = (Get-ChildItem -Path \&quot;.\ListePostes\&quot; -Filter \&quot;*.txt\&quot;«»).FullName

foreach($item in $Machines)
{
$computer = Get-Content $item -Encoding Default
[Array]$s += $computer | ? {$_.trim() -ne \&quot;\&quot;}
}

$Ping = Test-Connection -ComputerName ($s) -Delay 1 -Count 1 -ThrottleLimit 100 -AsJob
$ResultatPing = $Ping | Wait-Job
$ResultatPing = $ResultatPing | Receive-Job

$PingKO = $ResultatPing | ? {$_.ResponseTime -eq $null} | select Address, IPV4Address, BufferSize, ResponseTime
$PingOK = $ResultatPing | ? {$_.ResponseTime -ne $null} | select Address, IPV4Address, BufferSize, ResponseTime

Write-host \&quot;
\&quot; -ForegroundColor Red
Write-host \&quot;- Les machines qui ne répondent pas au ping -\&quot; -ForegroundColor Red
Write-host \&quot;
\&quot; -ForegroundColor Red
$PingKO


Write-host \&quot; \&quot;
Write-host \&quot; \&quot;
Write-host \&quot;
\&quot; -ForegroundColor Green
Write-host \&quot;- Les machines répondent pas au ping -\&quot; -ForegroundColor Green
Write-host \&quot;
\&quot; -ForegroundColor Green
$PingOK

sleep -Seconds 20[/code:1]<br><br>Message édité par: Troxsa, à: 18/12/19 08:26

Connexion ou Créer un compte pour participer à la conversation.

Temps de génération de la page : 0.168 secondes
Propulsé par Kunena