ISOファイルのディスクラベルを編集する、Perlで

前提

Windowsのフリーソフト使えばできそうだが怪しいやつしかないしインストーラ使わなきゃいけないやつばかりで環境的に無理。
Linuxでちゃちゃっと出来たらいいな、と思って調べた。

結論

Perlスクリプトを書く

参照

• linux - Is there a way to change a .iso files volume id from the command line? - Server Fault

# !/usr/bin/perl
use strict;
use warnings;

die "Use: $0 <iso_file> <new volume id>\n" unless @ARGV == 2;
open my $file, "+<", $ARGV[0] or die "Cannot open: $!";
seek $file, 0x8028,0;
printf $file "%-32.32s", uc($ARGV[1]);

上記回答のスクリプトを保存して、実行権限つけて、isoファイルのパス, 新しいディスクラベル を指定して実行。
Windowsでも動くかは確認してないですごめんなさい。

余談

OSインストールのためにドライバが足りないサーバがあって、ドライバ用のisoをマウントしなきゃいけないかつ、ISOファイル内のラベルをOEMDRVに変更する必要があった。
6.2. インストール中にドライバーを更新するための準備 - Red Hat Customer Portal