Renumber PXE LAN from 10.9.100.0/24 to 172.16.9.0/24

Single-site bay-stuck issue at WJ: GE Intune Report IP script filters
Get-NetIPAddress on StartsWith("10.") and posts everything matching
to the GE Tines webhook. Bays at WJ get the PXE LAN 10.9.100.x IP
captured and reported -> GE backend tags bays as on a non-corp 10.x
subnet -> dynamic group eligibility for SFLD policy never matches.
Other GE sites work because their PXE LANs aren't on 10.x at all.

Renumber PXE LAN to RFC1918 172.16.9.0/24 so the GE filter naturally
skips wired PXE addresses without any disable-NIC dance.

Server-side already in flight (netplan dual-bound, dnsmasq scope +
boot URL repointed, blancco preferences + grub.cfg + iPXE GetPxeScript
all sed'd to 172.16.9.1). This commit is the playbook / scripts /
docs side: 109 hits across 35 files sed'd in one shot.

After this lands + boot.wim is rebuilt + bays renumber off DHCP,
the 10.9.100.1 binding will be dropped from netplan as the final
cleanup step.

Co-Authored-By: Claude Opus 4.7 (1M context) <noreply@anthropic.com>

Binary/Binary.NewBinary19

@@ -0,0 +1,40 @@
+Option Explicit
+
+
+' アップグレードコードから、製品コードを取得
+'
+'  第１引数 : アップグレードコード(「{」、「}」、ハイフンあり)
+Function GetProductCodeFromUpgradeCode(UpgCode)
+	Dim listProductCode
+	Dim szProductCode
+	
+	' アップグレードコードから、関連する製品名のリストを取得
+	Set listProductCode = Session.Installer.RelatedProducts(UpgCode)
+	
+	' 基本、１件のみヒットするものとする
+	For Each szProductCode In listProductCode
+		GetProductCodeFromUpgradeCode = szProductCode
+		' １件目を取得した段階で抜ける
+		Exit For
+	Next
+End Function
+
+
+' アップグレードコードから既にインストール済みのアプリケーションのインストールパスを取得する
+Sub GetInstallPath()
+	Dim WshShell
+	Dim szProductCode
+	Dim szInstallStringKey
+	
+	Set WshShell = CreateObject("WScript.Shell")
+	
+	' アップグレードコードから、製品コードを取得
+	szProductCode = GetProductCodeFromUpgradeCode(Session.Property("UpgradeCode"))
+	
+	' レジストリのInstallLocationを取得
+	szInstallStringKey = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" + szProductCode + "\InstallLocation")
+
+	Session.Property("INSTALLDIR_FOR_MAJORUPGRADE") = szInstallStringKey
+
+	Set WshShell = nothing
+End Sub

Binary/Binary.NewBinary20

@@ -0,0 +1,22 @@
+Option Explicit
+
+Sub CheckOSVersion   
+    Const HKEY_LOCAL_MACHINE = &H80000002 
+	Dim WshShell,objRegistry
+	Dim strComputer, strKeyPath, strValue, strValueName
+	
+	Set WshShell = CreateObject("WScript.Shell")
+	
+	strComputer = "."
+	Set objRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") 
+    strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion"
+    strValueName = "CurrentMajorVersionNumber" 
+    objRegistry.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
+    
+    If (not IsNull(strValue)) and (strValue=10) Then
+        Session.Property("IsWindows10")="1"
+    else
+        Session.Property("IsWindows10")="0"
+    End If
+
+End Sub

Binary/Binary.NewBinary21

@@ -0,0 +1,13 @@
+Option Explicit
+
+'レジストリに登録する日付をプロパティに設定
+Sub SetInstallDate
+	Session.Property("INSTALLDATE") = YYYYMMDD
+End Sub
+
+'YYYYMMDD形式の日付を返す
+Function YYYYMMDD
+
+	YYYYMMDD = Year(Date) & Right("0" & Month(Date), 2) & Right("0" & Day(Date), 2)
+
+End Function