Question
Script ping
- Troxsa
- Hors Ligne
- Membre junior
Réduire
Plus d'informations
- Messages : 30
- Remerciements reçus 0
il y a 4 ans 4 mois #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.
- Troxsa
- Hors Ligne
- Membre junior
Réduire
Plus d'informations
- Messages : 30
- Remerciements reçus 0
il y a 4 ans 4 mois #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 \"Execution du ping... \"
$s = @()
$Liste = @()
[Array]$Machines = (Get-ChildItem -Path \".\ListePostes\" -Filter \"*.txt\"«»).FullName
foreach($item in $Machines)
{
$computer = Get-Content $item -Encoding Default
[Array]$s += $computer | ? {$_.trim() -ne \"\"}
}
$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 \"
\" -ForegroundColor Red
Write-host \"- Les machines qui ne répondent pas au ping -\" -ForegroundColor Red
Write-host \"
\" -ForegroundColor Red
$PingKO
Write-host \" \"
Write-host \" \"
Write-host \"
\" -ForegroundColor Green
Write-host \"- Les machines répondent pas au ping -\" -ForegroundColor Green
Write-host \"
\" -ForegroundColor Green
$PingOK
sleep -Seconds 20[/code:1]<br><br>Message édité par: Troxsa, à: 18/12/19 08:26
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 \"Execution du ping... \"
$s = @()
$Liste = @()
[Array]$Machines = (Get-ChildItem -Path \".\ListePostes\" -Filter \"*.txt\"«»).FullName
foreach($item in $Machines)
{
$computer = Get-Content $item -Encoding Default
[Array]$s += $computer | ? {$_.trim() -ne \"\"}
}
$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 \"
\" -ForegroundColor Red
Write-host \"- Les machines qui ne répondent pas au ping -\" -ForegroundColor Red
Write-host \"
\" -ForegroundColor Red
$PingKO
Write-host \" \"
Write-host \" \"
Write-host \"
\" -ForegroundColor Green
Write-host \"- Les machines répondent pas au ping -\" -ForegroundColor Green
Write-host \"
\" -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.064 secondes
- Vous êtes ici :
- Accueil
- forum
- PowerShell
- Entraide pour les débutants
- Script ping