非エンジニアにバッチを配って一斉実行してもらうときの落とし穴 — ZIP・ダブルクリック・ログの行方

「ユーザー一覧」シートに A:PC名 / B:ユーザーID / C:新パスワード / D:旧パスワード、「設定」シートの B1 に出力先フォルダを入れておく前提の例。実運用に合わせて列やパスを調整して使う。

' === バッチ一括生成（送付先フォルダ分け＋ZIPまで） ===
Sub GenerateBatchFiles()
    Dim wsCfg As Worksheet, wsUser As Worksheet
    Set wsCfg = ThisWorkbook.Sheets("設定")
    Set wsUser = ThisWorkbook.Sheets("ユーザー一覧")

    Dim outRoot As String
    outRoot = wsCfg.Range("B1").Value                 ' 出力先フォルダ
    If Right(outRoot, 1) <> "\" Then outRoot = outRoot & "\"

    Dim r As Long, made As Long
    For r = 2 To wsUser.Cells(wsUser.Rows.Count, 1).End(xlUp).Row
        Dim pcName$, uid$, newPw$, oldPw$
        pcName = Trim(wsUser.Cells(r, 1).Value)
        uid    = Trim(wsUser.Cells(r, 2).Value)
        newPw  = Trim(wsUser.Cells(r, 3).Value)
        oldPw  = Trim(wsUser.Cells(r, 4).Value)
        If uid = "" Then GoTo NextRow

        ' --- 形式チェック：NGならバッチを作らずに印を付ける ---
        If Not IsValidPassword(newPw) Then
            wsUser.Cells(r, 5).Value = "NG（形式不正）"
            GoTo NextRow
        End If
        wsUser.Cells(r, 5).Value = "OK"

        ' --- 送付先フォルダ（ユーザーIDごと）を作成 ---
        Dim dstDir$
        dstDir = outRoot & uid & "\"
        If Dir(dstDir, vbDirectory) = "" Then MkDir dstDir

        ' --- バッチ本文を組み立て、Shift-JISで書き出し ---
        Dim batPath$, body$
        batPath = dstDir & "PW_" & pcName & "_" & uid & ".bat"
        body = MakeBatch(pcName, uid, newPw, oldPw)   ' ←バッチ本文を返す自作関数
        WriteShiftJis batPath, body                    ' 日本語を含むので Shift-JIS

        ' --- 同じ場所に ZIP も作る（メール添付用） ---
        MakeZip batPath, dstDir & "PW_" & pcName & "_" & uid & ".zip"
        made = made + 1
NextRow:
    Next r
    MsgBox made & " 件のバッチ（.bat＋.zip）を生成しました。"
End Sub

' テキストを Shift-JIS で保存（バッチは日本語を含むため）
Sub WriteShiftJis(path$, body$)
    With CreateObject("ADODB.Stream")
        .Type = 2: .Charset = "Shift_JIS": .Open
        .WriteText body
        .SaveToFile path, 2          ' 2 = 上書き保存
        .Close
    End With
End Sub

' PowerShell の Compress-Archive で ZIP 化（同期実行で確実に作る）
Sub MakeZip(srcFile$, zipPath$)
    Dim ps$
    ps = "powershell -NoProfile -Command ""Compress-Archive -Path '" & srcFile & _
         "' -DestinationPath '" & zipPath & "' -Force"""
    CreateObject("WScript.Shell").Run ps, 0, True   ' 第3引数 True = 完了を待つ
End Sub

' パスワード形式チェック：15〜20文字／半角ASCIIのみ／!%" 禁止／4種中3種以上
Function IsValidPassword(pw$) As Boolean
    Dim i As Long, c As Long
    Dim hasU As Boolean, hasL As Boolean, hasD As Boolean, hasS As Boolean
    IsValidPassword = False
    If Len(pw) < 15 Or Len(pw) > 20 Then Exit Function
    For i = 1 To Len(pw)
        c = AscW(Mid(pw, i, 1))
        If c < 32 Or c > 126 Then Exit Function            ' 全角・全角スペース・制御文字を排除
        If InStr("!%" & Chr(34), Mid(pw, i, 1)) > 0 Then Exit Function  ' バッチ禁止文字 ! % "
        Select Case c
            Case 65 To 90:  hasU = True
            Case 97 To 122: hasL = True
            Case 48 To 57:  hasD = True
            Case Else:      hasS = True
        End Select
    Next i
    Dim kinds As Long
    kinds = Abs(hasU) + Abs(hasL) + Abs(hasD) + Abs(hasS)
    IsValidPassword = (kinds >= 3)
End Function

MakeBatch は、これまで紹介したUAC昇格・PC名チェック・パスワード変更などを組み立てて文字列で返す自作関数に置き換える。ポイントは、NGのパスワードはバッチを作らずスキップし、生成漏れを一覧（E列）で見えるようにしておくこと。

「設定」シートの B2 にログ格納フォルダ、「ログ集計」シートに結果を出す前提。バッチは PC名 [Tab] ユーザーID [Tab] PW変更 [Tab] … [Tab] 実行日時 の形式でログを書く想定。

' === ログ一括取り込み（集計シートを初期化してから全件再読み込み） ===
Sub ImportLogs()
    Dim wsCfg As Worksheet, wsOut As Worksheet
    Set wsCfg = ThisWorkbook.Sheets("設定")
    Set wsOut = ThisWorkbook.Sheets("ログ集計")

    ' --- ★初期化するのは「シート」。フォルダには触れない ---
    wsOut.Cells.Clear
    wsOut.Range("A1:G1").Value = _
        Array("PC名", "ユーザーID", "PW変更", "メンテAcct", "PIN", "残留数", "実行日時")

    Dim folder$
    folder = wsCfg.Range("B2").Value
    If Right(folder, 1) <> "\" Then folder = folder & "\"

    ' 同一PC×IDは「最新の1行」だけ残す
    Dim latest As Object
    Set latest = CreateObject("Scripting.Dictionary")

    Dim f$
    f = Dir(folder & "LOG_*.txt")
    Do While Len(f) > 0
        Dim lines() As String, i As Long
        lines = Split(ReadShiftJis(folder & f), vbCrLf)
        For i = 0 To UBound(lines)
            If InStr(lines(i), vbTab) > 0 Then
                Dim c() As String
                c = Split(lines(i), vbTab)
                If UBound(c) >= 6 Then
                    Dim key$, dt$
                    key = c(0) & "|" & c(1)            ' PC名|ユーザーID
                    dt = c(6)                          ' 実行日時（ゼロ埋め）
                    ' 未登録、または日時が新しければ採用
                    If Not latest.Exists(key) Then
                        latest(key) = lines(i)
                    ElseIf dt > Split(latest(key), vbTab)(6) Then
                        latest(key) = lines(i)
                    End If
                End If
            End If
        Next i
        f = Dir
    Loop

    ' --- 採用した行をシートへ書き出し ---
    Dim r As Long, k As Variant
    r = 2
    For Each k In latest.Keys
        Dim cc() As String, j As Long
        cc = Split(latest(k), vbTab)
        For j = 0 To UBound(cc)
            wsOut.Cells(r, j + 1).Value = cc(j)
        Next j
        r = r + 1
    Next k
    MsgBox "ログ取り込み完了：" & latest.Count & " 件"
End Sub

' Shift-JISのテキストファイルを丸ごと読み込む
Function ReadShiftJis(path$) As String
    With CreateObject("ADODB.Stream")
        .Type = 2: .Charset = "Shift_JIS": .Open
        .LoadFromFile path
        ReadShiftJis = .ReadText
        .Close
    End With
End Function

毎回 wsOut.Cells.Clear で集計シートだけを空にしてから読み直すので、二重実行ぶんも最新優先で勝手に整理される。フォルダのログは消さないので、後から検証もできる。