From 0d61475468de80b7f711038384e754331a14c7d8 Mon Sep 17 00:00:00 2001
From: WindowsAddict <windowsaddict@protonmail.com>
Date: Tue, 15 Apr 2025 07:02:19 +0530
Subject: [PATCH] Fix an issue where Office doesn't need activation but TSforge
would show phone license missing error
---
MAS/All-In-One-Version-KL/MAS_AIO.cmd | 25 +++++++++++++++++++
.../Activators/TSforge_Activation.cmd | 25 +++++++++++++++++++
2 files changed, 50 insertions(+)
diff --git a/MAS/All-In-One-Version-KL/MAS_AIO.cmd b/MAS/All-In-One-Version-KL/MAS_AIO.cmd
index 2a42c2b..4410980 100644
--- a/MAS/All-In-One-Version-KL/MAS_AIO.cmd
+++ b/MAS/All-In-One-Version-KL/MAS_AIO.cmd
@@ -8874,6 +8874,24 @@ function Get-WmiInfo {
}
}
+function slGetSkuInfo($SkuId) {
+ $t = [AppDomain]::CurrentDomain.DefineDynamicAssembly(4, 1).DefineDynamicModule(2, $False).DefineType(0)
+ $t.DefinePInvokeMethod('SLOpen', 'slc.dll', 22, 1, [Int32], @([IntPtr].MakeByRefType()), 1, 3).SetImplementationFlags(128)
+ $t.DefinePInvokeMethod('SLClose', 'slc.dll', 22, 1, [IntPtr], @([IntPtr]), 1, 3).SetImplementationFlags(128)
+ $t.DefinePInvokeMethod('SLGetProductSkuInformation', 'slc.dll', 22, 1, [Int32], @([IntPtr], [Guid].MakeByRefType(), [String], [UInt32].MakeByRefType(), [UInt32].MakeByRefType(), [IntPtr].MakeByRefType()), 1, 3).SetImplementationFlags(128)
+ $w = $t.CreateType()
+ $hSLC = 0
+ try {
+ [void]$w::SLOpen([ref]$hSLC)
+ $c = 0; $b = 0
+ $r = $w::SLGetProductSkuInformation($hSLC, [ref][Guid]$SkuId, "msft:sl/EUL/PHONE/PUBLIC", [ref]$null, [ref]$c, [ref]$b)
+ return ($r -eq 0)
+ }
+ finally {
+ [void]$w::SLClose($hSLC)
+ }
+}
+
if ($env:resetstuff -eq $null) {
foreach ($tsactid in $tsactids) {
try {
@@ -8884,6 +8902,13 @@ if ($env:resetstuff -eq $null) {
$prodName = if ($nameParts.Count -gt 1) { ($nameParts[1].Trim() -split '[ ,]')[0] } else { $null }
}
[LibTSforge.Modifiers.GenPKeyInstall]::InstallGenPKey($ver, $prod, $tsactid)
+ if ($prodName -match 'Office' -and -not (slGetSkuInfo($tsactid))) {
+ $licenseStatus = Get-WmiInfo -tsactid $tsactid -property "LicenseStatus"
+ if ($licenseStatus -eq 1) {
+ Write-Host "[$prodName] is already permanently activated." -ForegroundColor White -BackgroundColor DarkGreen
+ continue
+ }
+ }
[LibTSforge.Activators.ZeroCID]::Activate($ver, $prod, $tsactid)
$licenseStatus = Get-WmiInfo -tsactid $tsactid -property "LicenseStatus"
if ($licenseStatus -eq 1) {
diff --git a/MAS/Separate-Files-Version/Activators/TSforge_Activation.cmd b/MAS/Separate-Files-Version/Activators/TSforge_Activation.cmd
index 4a9af9c..3330a77 100644
--- a/MAS/Separate-Files-Version/Activators/TSforge_Activation.cmd
+++ b/MAS/Separate-Files-Version/Activators/TSforge_Activation.cmd
@@ -6747,6 +6747,24 @@ function Get-WmiInfo {
}
}
+function slGetSkuInfo($SkuId) {
+ $t = [AppDomain]::CurrentDomain.DefineDynamicAssembly(4, 1).DefineDynamicModule(2, $False).DefineType(0)
+ $t.DefinePInvokeMethod('SLOpen', 'slc.dll', 22, 1, [Int32], @([IntPtr].MakeByRefType()), 1, 3).SetImplementationFlags(128)
+ $t.DefinePInvokeMethod('SLClose', 'slc.dll', 22, 1, [IntPtr], @([IntPtr]), 1, 3).SetImplementationFlags(128)
+ $t.DefinePInvokeMethod('SLGetProductSkuInformation', 'slc.dll', 22, 1, [Int32], @([IntPtr], [Guid].MakeByRefType(), [String], [UInt32].MakeByRefType(), [UInt32].MakeByRefType(), [IntPtr].MakeByRefType()), 1, 3).SetImplementationFlags(128)
+ $w = $t.CreateType()
+ $hSLC = 0
+ try {
+ [void]$w::SLOpen([ref]$hSLC)
+ $c = 0; $b = 0
+ $r = $w::SLGetProductSkuInformation($hSLC, [ref][Guid]$SkuId, "msft:sl/EUL/PHONE/PUBLIC", [ref]$null, [ref]$c, [ref]$b)
+ return ($r -eq 0)
+ }
+ finally {
+ [void]$w::SLClose($hSLC)
+ }
+}
+
if ($env:resetstuff -eq $null) {
foreach ($tsactid in $tsactids) {
try {
@@ -6757,6 +6775,13 @@ if ($env:resetstuff -eq $null) {
$prodName = if ($nameParts.Count -gt 1) { ($nameParts[1].Trim() -split '[ ,]')[0] } else { $null }
}
[LibTSforge.Modifiers.GenPKeyInstall]::InstallGenPKey($ver, $prod, $tsactid)
+ if ($prodName -match 'Office' -and -not (slGetSkuInfo($tsactid))) {
+ $licenseStatus = Get-WmiInfo -tsactid $tsactid -property "LicenseStatus"
+ if ($licenseStatus -eq 1) {
+ Write-Host "[$prodName] is already permanently activated." -ForegroundColor White -BackgroundColor DarkGreen
+ continue
+ }
+ }
[LibTSforge.Activators.ZeroCID]::Activate($ver, $prod, $tsactid)
$licenseStatus = Get-WmiInfo -tsactid $tsactid -property "LicenseStatus"
if ($licenseStatus -eq 1) {