ce604adcda
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>
40 lines
1.2 KiB
Plaintext
40 lines
1.2 KiB
Plaintext
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 |