【VBA→GAS検証】Windowsのイベントログを取得できない？PowerShell×Webアプリ連携で自動送信する

// 初回のみ実行：秘密トークンをScriptPropertiesに保存する
function setupSecretToken() {
  PropertiesService.getScriptProperties().setProperty('SECRET_TOKEN', 'ここに任意の文字列を設定');
}

// GET：H2の日付とLAST_SYNCED_TIMEを返す
function doGet(e) {
  const props = PropertiesService.getScriptProperties();
  const secretToken = props.getProperty('SECRET_TOKEN');

  if (e.parameter.token !== secretToken) {
    return jsonOutput({ status: 'error', message: 'unauthorized' });
  }

  const sheet = SpreadsheetApp.getActiveSpreadsheet().getSheetByName('イベントログ');
  const h2Value = sheet.getRange('H2').getValue();

  // Date型ならyyyy/MM/dd文字列に変換
  const dateCellValue = (h2Value instanceof Date)
    ? Utilities.formatDate(h2Value, Session.getScriptTimeZone(), 'yyyy/MM/dd')
    : String(h2Value || '');

  return jsonOutput({
    status: 'ok',
    dateCellValue: dateCellValue,
    lastSyncedTime: props.getProperty('LAST_SYNCED_TIME') // 未設定ならnull
  });
}

// POSTを受け取るたびに呼ばれる
function doPost(e) {
  try {
    const data = JSON.parse(e.postData.contents);
    const props = PropertiesService.getScriptProperties();

    // トークン確認
    const secretToken = props.getProperty('SECRET_TOKEN');
    if (data.token !== secretToken) {
      return jsonOutput({ status: 'error', message: 'unauthorized' });
    }

    const events = data.events; // 新しい順
    const sheet = SpreadsheetApp.getActiveSpreadsheet().getSheetByName('イベントログ');
    const rows = events.map(item => [item.EventCode, item.TimeCreated]);

    if (rows.length > 0) {
      const lastRow = getLastRowInColumns(sheet, 2);
      const existingData = lastRow >= 2 ? sheet.getRange(2, 1, lastRow - 1, 2).getValues() : [];
      const allData = rows.concat(existingData);
      sheet.getRange(2, 1, allData.length, 2).setValues(allData);

      // 新しい場合だけ更新
      const batchMax = events.map(item => item.TimeCreated).sort().pop();
      const current = props.getProperty('LAST_SYNCED_TIME');
      if (!current || batchMax > current) {
        props.setProperty('LAST_SYNCED_TIME', batchMax);
      }
    }

    sheet.getRange('H2').clearContent();

    return jsonOutput({ status: 'ok', count: rows.length });

  } catch (err) {
    return jsonOutput({ status: 'error', message: err.message });
  }
}

function clearEventLog() {
  const sheet = SpreadsheetApp.getActiveSpreadsheet().getSheetByName('イベントログ');
  sheet.getRange(2, 1, sheet.getMaxRows() - 1, 2).clearContent();
  SpreadsheetApp.getActiveSpreadsheet().toast('ログをクリアしました。');
}

function getLastRowInColumns(sheet, numColumns) {
  const values = sheet.getRange(1, 1, sheet.getMaxRows(), numColumns).getValues();
  let lastRow = 0;
  for (let i = 0; i < values.length; i++) {
    if (values[i].some(cell => cell !== '')) lastRow = i + 1;
  }
  return lastRow;
}

function jsonOutput(obj) {
  return ContentService.createTextOutput(JSON.stringify(obj)).setMimeType(ContentService.MimeType.JSON);
}

[Console]::OutputEncoding = [System.Text.Encoding]::UTF8
$OutputEncoding = [System.Text.Encoding]::UTF8

# ここにStep1でデプロイしたWebアプリのURLを設定
$webAppUrl = "https://script.google.com/macros/s/xxxxxxxxxxxxxxxxxxxx/exec"
# setupSecretToken()で設定したのと同じ文字列を設定
$secretToken = "ここに任意の文字列を設定"
$tokenEncoded = [uri]::EscapeDataString($secretToken)

# H2とLAST_SYNCED_TIMEを問い合わせる
try {
    $statusResponse = Invoke-RestMethod -Uri "$($webAppUrl)?token=$tokenEncoded" -Method Get -ErrorAction Stop
} catch {
    Write-Host "GASへの問い合わせに失敗しました。`$webAppUrlの値を確認してください：$webAppUrl"
    Write-Host "エラー内容：$($_.Exception.Message)"
    exit
}

if ($statusResponse.dateCellValue) {
    # ①H2の日付を最優先
    try {
        $targetDate = Get-Date $statusResponse.dateCellValue -ErrorAction Stop
    } catch {
        Write-Host "H2の日付を認識できませんでした。処理を中断します。"
        exit
    }
    $includeTargetDate = $true

} elseif ($statusResponse.lastSyncedTime) {
    # ②続きから（重複防止のためこの日時自体は含めない）
    $targetDate = Get-Date $statusResponse.lastSyncedTime
    $includeTargetDate = $false

} else {
    # ③初回：ポップアップで手入力
    Add-Type -AssemblyName Microsoft.VisualBasic
    $inputStr = [Microsoft.VisualBasic.Interaction]::InputBox(
        "取得したい日付を入力してください`n(例: 2026/09/06)",
        "日付指定",
        (Get-Date).ToString("yyyy/MM/dd")
    )

    if ([string]::IsNullOrWhiteSpace($inputStr)) {
        Write-Host "日付が入力されなかったため処理を中断します。"
        exit
    }

    try {
        $targetDate = Get-Date $inputStr -ErrorAction Stop
    } catch {
        [Microsoft.VisualBasic.Interaction]::MsgBox("「$inputStr」を日付として認識できませんでした。処理を中断します。", "OKOnly,Critical", "入力エラー")
        exit
    }
    $includeTargetDate = $true
}

# 秒精度に丸めてから比較する（ミリ秒差での重複送信を防ぐ）
$filter = if ($includeTargetDate) {
    { (Get-Date $_.TimeCreated.ToString('yyyy/MM/dd HH:mm:ss')) -ge $targetDate }
} else {
    { (Get-Date $_.TimeCreated.ToString('yyyy/MM/dd HH:mm:ss')) -gt $targetDate }
}
$events = @(Get-WinEvent -FilterHashtable @{ LogName = 'System'; Id = 6005, 6006, 7001, 7002 } |
    Where-Object $filter |
    Sort-Object TimeCreated -Descending |
    Select-Object `
        @{ Name = 'EventCode'; Expression = { $_.Id } },
        @{ Name = 'TimeCreated'; Expression = { $_.TimeCreated.ToString('yyyy/MM/dd HH:mm:ss') } })

if ($events.Count -eq 0) {
    Write-Host "新しいイベントはありませんでした。"
    exit
}

# GASへ送信するJSONを組み立て
$body = @{
    token  = $secretToken
    events = $events
} | ConvertTo-Json -Depth 3

# GASのWebアプリへPOST送信
$response = Invoke-RestMethod -Uri $webAppUrl -Method Post -Body $body -ContentType "application/json; charset=utf-8"
if ($response.status -eq 'ok') {
    Write-Host "送信結果：$($response.status)（$($response.count)件）"
} else {
    Write-Host "送信結果：$($response.status) - $($response.message)"
}