PowerShellでExcelワークシート上のIPアドレスにPINGをし結果を保存するスクリプト

$ErrorActionPreference = "STOP"

# windowsで.ps1を初回実行する場合は、powershell.exeで管理権限で以下のコマンドを実行
# Set-ExecutionPolicy RemoteSigned

# IPアドレスのエクセルブック
$XlsxPath = "エクセルブックのパス"

# IPアドレスのシート名
$SheetName = "Sheet1"

# IPアドレスの列番号
$RowIP = 1

# PINGの結果を返す列番号
$RowResult = 2

# 開始行
$ColumnStart = 1

# 終了業
$ColumnEnd = 254

$Excel = New-Object -ComObject Excel.Application # Excel起動
$Excel.Visible = $True # 可視モード

$Workbook = $Excel.Workbooks.Open($XlsxPath) # ワークブックを開く

# ワークシートの初期処理
$Sheet = $Workbook.Worksheets | ? { $SheetName -eq $_.Name } # ワークシート名を取り出す


        
# R1C1形式
for($row=$ColumnStart; $row -le $ColumnEnd;$row++) {
    $ip = $Sheet.Cells.Item($row, $RowIP).Text
    Write-Host $ip
    if (Test-Connection $ip -Quiet　-Count 1) {
        $Sheet.Cells.Item($row, $RowResult) = "OK"
    } else {
        $Sheet.Cells.Item($row, $RowResult) = "NG"
    }
}


$Workbook.Save() # 上書き保存
$Workbook.Close($false)

$Excel.Quit()
$Excel = $null