You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1039 lines
35 KiB
Batchfile
1039 lines
35 KiB
Batchfile
5 months ago
|
@echo off
|
||
|
|
|
||
|
|
|
||
|
|
:: Check-Activation-Status
|
||
|
|
:: Written by @abbodi1406
|
||
|
|
:: https://gravesoft.dev/cas
|
||
|
|
|
||
|
|
|
||
|
4 months ago
|
:: Set Environment variables, it helps if they are misconfigured in the system
|
||
|
|
|
||
|
|
setlocal EnableExtensions
|
||
|
|
setlocal DisableDelayedExpansion
|
||
|
|
|
||
|
|
set "PathExt=.COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH;.MSC"
|
||
|
|
|
||
|
|
set "SysPath=%SystemRoot%\System32"
|
||
|
5 months ago
|
set "Path=%SystemRoot%\System32;%SystemRoot%;%SystemRoot%\System32\Wbem;%SystemRoot%\System32\WindowsPowerShell\v1.0\"
|
||
|
|
if exist "%SystemRoot%\Sysnative\reg.exe" (
|
||
|
4 months ago
|
set "SysPath=%SystemRoot%\Sysnative"
|
||
|
5 months ago
|
set "Path=%SystemRoot%\Sysnative;%SystemRoot%;%SystemRoot%\Sysnative\Wbem;%SystemRoot%\Sysnative\WindowsPowerShell\v1.0\;%Path%"
|
||
|
|
)
|
||
|
4 months ago
|
|
||
|
|
set "ComSpec=%SysPath%\cmd.exe"
|
||
|
|
set "PSModulePath=%ProgramFiles%\WindowsPowerShell\Modules;%SysPath%\WindowsPowerShell\v1.0\Modules"
|
||
|
|
|
||
|
5 months ago
|
set "_psc=powershell -nop -c"
|
||
|
|
set "_err===== ERROR ===="
|
||
|
|
set _pwsh=1
|
||
|
|
for %%# in (powershell.exe) do @if "%%~$PATH:#"=="" set _pwsh=0
|
||
|
|
cmd /c "%_psc% "$ExecutionContext.SessionState.LanguageMode"" | find /i "FullLanguage" 1>nul || (set _pwsh=0)
|
||
|
|
if %_pwsh% equ 0 (
|
||
|
|
echo %_err%
|
||
|
|
cmd /c "%_psc% "$ExecutionContext.SessionState.LanguageMode""
|
||
|
|
echo Windows PowerShell is not working correctly.
|
||
|
|
echo It is required for this script to work.
|
||
|
|
goto :E_Exit
|
||
|
|
)
|
||
|
|
set "_batf=%~f0"
|
||
|
|
set "_batp=%_batf:'=''%"
|
||
|
|
setlocal EnableDelayedExpansion
|
||
|
|
%_psc% "$f=[IO.File]::ReadAllText('!_batp!') -split ':sppmgr\:.*';iex ($f[1])"
|
||
|
|
|
||
|
|
:E_Exit
|
||
|
|
echo.
|
||
|
4 months ago
|
echo Press 0 key to exit.
|
||
|
|
choice /c 0 /n
|
||
|
5 months ago
|
exit /b
|
||
|
|
|
||
|
|
:sppmgr:
|
||
|
|
function ExitScript($ExitCode = 0)
|
||
|
|
{
|
||
|
|
Exit $ExitCode
|
||
|
|
}
|
||
|
|
|
||
|
|
if (-Not $PSVersionTable) {
|
||
|
|
Write-Host "==== ERROR ====`r`n"
|
||
|
|
Write-Host 'Windows PowerShell 1.0 is not supported by this script.'
|
||
|
|
ExitScript 1
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($ExecutionContext.SessionState.LanguageMode.value__ -NE 0) {
|
||
|
|
Write-Host "==== ERROR ====`r`n"
|
||
|
|
Write-Host 'Windows PowerShell is not running in Full Language Mode.'
|
||
|
|
ExitScript 1
|
||
|
|
}
|
||
|
|
|
||
|
|
$winbuild = 1
|
||
|
|
try {
|
||
|
|
$winbuild = [System.Diagnostics.FileVersionInfo]::GetVersionInfo("$env:SystemRoot\System32\kernel32.dll").FileBuildPart
|
||
|
|
} catch {
|
||
|
|
$winbuild = [int](Get-WmiObject Win32_OperatingSystem).BuildNumber
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($winbuild -EQ 1) {
|
||
|
|
Write-Host "==== ERROR ====`r`n"
|
||
|
|
Write-Host 'Could not detect Windows build.'
|
||
|
|
ExitScript 1
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($winbuild -LT 2600) {
|
||
|
|
Write-Host "==== ERROR ====`r`n"
|
||
|
|
Write-Host 'This build of Windows is not supported by this script.'
|
||
|
|
ExitScript 1
|
||
|
|
}
|
||
|
|
|
||
|
|
$NT6 = $winbuild -GE 6000
|
||
|
|
$NT7 = $winbuild -GE 7600
|
||
|
|
$NT9 = $winbuild -GE 9600
|
||
|
|
|
||
|
|
$Admin = ([Security.Principal.WindowsPrincipal][Security.Principal.WindowsIdentity]::GetCurrent()).IsInRole([Security.Principal.WindowsBuiltInRole]::Administrator)
|
||
|
|
|
||
|
|
$line2 = "============================================================"
|
||
|
|
$line3 = "____________________________________________________________"
|
||
|
|
|
||
|
|
function echoWindows
|
||
|
|
{
|
||
|
|
Write-Host "$line2"
|
||
|
|
Write-Host "=== Windows Status ==="
|
||
|
|
Write-Host "$line2"
|
||
|
|
if (!$All.IsPresent) {Write-Host}
|
||
|
|
}
|
||
|
|
|
||
|
|
function echoOffice
|
||
|
|
{
|
||
|
|
if ($doMSG -EQ 0) {
|
||
|
|
return
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($All.IsPresent) {Write-Host}
|
||
|
|
Write-Host "$line2"
|
||
|
|
Write-Host "=== Office Status ==="
|
||
|
|
Write-Host "$line2"
|
||
|
|
if (!$All.IsPresent) {Write-Host}
|
||
|
|
|
||
|
|
$script:doMSG = 0
|
||
|
|
}
|
||
|
|
|
||
|
|
function strGetRegistry($strKey, $strName)
|
||
|
|
{
|
||
|
|
Get-ItemProperty -EA 0 $strKey | select -EA 0 -Expand $strName
|
||
|
|
}
|
||
|
|
|
||
|
|
function CheckOhook
|
||
|
|
{
|
||
|
|
$ohook = 0
|
||
|
|
$paths = "${env:ProgramFiles}", "${env:ProgramW6432}", "${env:ProgramFiles(x86)}"
|
||
|
|
|
||
|
|
15, 16 | foreach `
|
||
|
|
{
|
||
|
|
$A = $_; $paths | foreach `
|
||
|
|
{
|
||
|
|
if (Test-Path "$($_)$('\Microsoft Office\Office')$($A)$('\sppc*dll')") {$ohook = 1}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
"System", "SystemX86" | foreach `
|
||
|
|
{
|
||
|
|
$A = $_; "Office 15", "Office" | foreach `
|
||
|
|
{
|
||
|
|
$B = $_; $paths | foreach `
|
||
|
|
{
|
||
|
|
if (Test-Path "$($_)$('\Microsoft ')$($B)$('\root\vfs\')$($A)$('\sppc*dll')") {$ohook = 1}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($ohook -EQ 0) {
|
||
|
|
return
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($All.IsPresent) {Write-Host}
|
||
|
|
Write-Host "$line2"
|
||
|
|
Write-Host "=== Office Ohook Status ==="
|
||
|
|
Write-Host "$line2"
|
||
|
|
Write-Host
|
||
|
|
Write-Host -back 'Black' -fore 'Yellow' 'Ohook for permanent Office activation is installed.'
|
||
|
|
Write-Host -back 'Black' -fore 'Yellow' 'You can ignore the below mentioned Office activation status.'
|
||
|
|
if (!$All.IsPresent) {Write-Host}
|
||
|
|
}
|
||
|
|
|
||
|
|
#region WMI
|
||
|
|
function DetectID($strSLP, $strAppId, [ref]$strAppVar)
|
||
|
|
{
|
||
|
|
$fltr = "ApplicationID='$strAppId'"
|
||
|
|
if (!$All.IsPresent) {
|
||
|
|
$fltr = $fltr + " AND PartialProductKey <> NULL"
|
||
|
|
}
|
||
|
|
Get-WmiObject $strSLP ID -Filter $fltr -EA 0 | select ID -EA 0 | foreach {
|
||
|
|
$strAppVar.Value = 1
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
function GetID($strSLP, $strAppId, $strProperty = "ID")
|
||
|
|
{
|
||
|
|
$NT5 = ($strSLP -EQ $wslp -And $winbuild -LT 6001)
|
||
|
|
$IDs = [Collections.ArrayList]@()
|
||
|
|
|
||
|
|
if ($All.IsPresent) {
|
||
|
|
$fltr = "ApplicationID='$strAppId' AND PartialProductKey IS NULL"
|
||
|
|
$clause = $fltr
|
||
|
|
if (-Not $NT5) {
|
||
|
|
$clause = $fltr + " AND LicenseDependsOn <> NULL"
|
||
|
|
}
|
||
|
|
Get-WmiObject $strSLP $strProperty -Filter $clause -EA 0 | select -Expand $strProperty -EA 0 | foreach {$IDs += $_}
|
||
|
|
if (-Not $NT5) {
|
||
|
|
$clause = $fltr + " AND LicenseDependsOn IS NULL"
|
||
|
|
Get-WmiObject $strSLP $strProperty -Filter $clause -EA 0 | select -Expand $strProperty -EA 0 | foreach {$IDs += $_}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
$fltr = "ApplicationID='$strAppId' AND PartialProductKey <> NULL"
|
||
|
|
$clause = $fltr
|
||
|
|
if (-Not $NT5) {
|
||
|
|
$clause = $fltr + " AND LicenseDependsOn <> NULL"
|
||
|
|
}
|
||
|
|
Get-WmiObject $strSLP $strProperty -Filter $clause -EA 0 | select -Expand $strProperty -EA 0 | foreach {$IDs += $_}
|
||
|
|
if (-Not $NT5) {
|
||
|
|
$clause = $fltr + " AND LicenseDependsOn IS NULL"
|
||
|
|
Get-WmiObject $strSLP $strProperty -Filter $clause -EA 0 | select -Expand $strProperty -EA 0 | foreach {$IDs += $_}
|
||
|
|
}
|
||
|
|
|
||
|
|
return $IDs
|
||
|
|
}
|
||
|
|
|
||
|
|
function DetectSubscription {
|
||
|
|
if ($null -EQ $objSvc.SubscriptionType -Or $objSvc.SubscriptionType -EQ 120) {
|
||
|
|
return
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($objSvc.SubscriptionType -EQ 1) {
|
||
|
|
$SubMsgType = "Device based"
|
||
|
|
} else {
|
||
|
|
$SubMsgType = "User based"
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($objSvc.SubscriptionStatus -EQ 120) {
|
||
|
|
$SubMsgStatus = "Expired"
|
||
|
|
} elseif ($objSvc.SubscriptionStatus -EQ 100) {
|
||
|
|
$SubMsgStatus = "Disabled"
|
||
|
|
} elseif ($objSvc.SubscriptionStatus -EQ 1) {
|
||
|
|
$SubMsgStatus = "Active"
|
||
|
|
} else {
|
||
|
|
$SubMsgStatus = "Not active"
|
||
|
|
}
|
||
|
|
|
||
|
|
$SubMsgExpiry = "Unknown"
|
||
|
|
if ($objSvc.SubscriptionExpiry) {
|
||
|
|
if ($objSvc.SubscriptionExpiry.Contains("unspecified") -EQ $false) {$SubMsgExpiry = $objSvc.SubscriptionExpiry}
|
||
|
|
}
|
||
|
|
|
||
|
|
$SubMsgEdition = "Unknown"
|
||
|
|
if ($objSvc.SubscriptionEdition) {
|
||
|
|
if ($objSvc.SubscriptionEdition.Contains("UNKNOWN") -EQ $false) {$SubMsgEdition = $objSvc.SubscriptionEdition}
|
||
|
|
}
|
||
|
|
|
||
|
|
Write-Host
|
||
|
|
Write-Host "Subscription information:"
|
||
|
|
Write-Host " Edition: $SubMsgEdition"
|
||
|
|
Write-Host " Type : $SubMsgType"
|
||
|
|
Write-Host " Status : $SubMsgStatus"
|
||
|
|
Write-Host " Expiry : $SubMsgExpiry"
|
||
|
|
}
|
||
|
|
|
||
|
|
function DetectAvmClient
|
||
|
|
{
|
||
|
|
Write-Host
|
||
|
|
Write-Host "Automatic VM Activation client information:"
|
||
|
|
if (-Not [String]::IsNullOrEmpty($IAID)) {
|
||
|
|
Write-Host " Guest IAID: $IAID"
|
||
|
|
} else {
|
||
|
|
Write-Host " Guest IAID: Not Available"
|
||
|
|
}
|
||
|
|
if (-Not [String]::IsNullOrEmpty($AutomaticVMActivationHostMachineName)) {
|
||
|
|
Write-Host " Host machine name: $AutomaticVMActivationHostMachineName"
|
||
|
|
} else {
|
||
|
|
Write-Host " Host machine name: Not Available"
|
||
|
|
}
|
||
|
|
if ($AutomaticVMActivationLastActivationTime.Substring(0,4) -NE "1601") {
|
||
|
|
$EED = [DateTime]::Parse([Management.ManagementDateTimeConverter]::ToDateTime($AutomaticVMActivationLastActivationTime),$null,48).ToString('yyyy-MM-dd hh:mm:ss tt')
|
||
|
|
Write-Host " Activation time: $EED UTC"
|
||
|
|
} else {
|
||
|
|
Write-Host " Activation time: Not Available"
|
||
|
|
}
|
||
|
|
if (-Not [String]::IsNullOrEmpty($AutomaticVMActivationHostDigitalPid2)) {
|
||
|
|
Write-Host " Host Digital PID2: $AutomaticVMActivationHostDigitalPid2"
|
||
|
|
} else {
|
||
|
|
Write-Host " Host Digital PID2: Not Available"
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
function DetectKmsHost
|
||
|
|
{
|
||
|
|
if ($Vista -Or $NT5) {
|
||
|
|
$KeyManagementServiceListeningPort = strGetRegistry $SLKeyPath "KeyManagementServiceListeningPort"
|
||
|
|
$KeyManagementServiceDnsPublishing = strGetRegistry $SLKeyPath "DisableDnsPublishing"
|
||
|
|
$KeyManagementServiceLowPriority = strGetRegistry $SLKeyPath "EnableKmsLowPriority"
|
||
|
|
if (-Not $KeyManagementServiceDnsPublishing) {$KeyManagementServiceDnsPublishing = "TRUE"}
|
||
|
|
if (-Not $KeyManagementServiceLowPriority) {$KeyManagementServiceLowPriority = "FALSE"}
|
||
|
|
} else {
|
||
|
|
$KeyManagementServiceListeningPort = $objSvc.KeyManagementServiceListeningPort
|
||
|
|
$KeyManagementServiceDnsPublishing = $objSvc.KeyManagementServiceDnsPublishing
|
||
|
|
$KeyManagementServiceLowPriority = $objSvc.KeyManagementServiceLowPriority
|
||
|
|
}
|
||
|
|
|
||
|
|
if (-Not $KeyManagementServiceListeningPort) {$KeyManagementServiceListeningPort = 1688}
|
||
|
|
if ($KeyManagementServiceDnsPublishing -EQ "TRUE") {
|
||
|
|
$KeyManagementServiceDnsPublishing = "Enabled"
|
||
|
|
} else {
|
||
|
|
$KeyManagementServiceDnsPublishing = "Disabled"
|
||
|
|
}
|
||
|
|
if ($KeyManagementServiceLowPriority -EQ "TRUE") {
|
||
|
|
$KeyManagementServiceLowPriority = "Low"
|
||
|
|
} else {
|
||
|
|
$KeyManagementServiceLowPriority = "Normal"
|
||
|
|
}
|
||
|
|
|
||
|
|
Write-Host
|
||
|
|
Write-Host "Key Management Service host information:"
|
||
|
|
Write-Host " Current count: $KeyManagementServiceCurrentCount"
|
||
|
|
Write-Host " Listening on Port: $KeyManagementServiceListeningPort"
|
||
|
|
Write-Host " DNS publishing: $KeyManagementServiceDnsPublishing"
|
||
|
|
Write-Host " KMS priority: $KeyManagementServiceLowPriority"
|
||
|
|
if (-Not [String]::IsNullOrEmpty($KeyManagementServiceTotalRequests)) {
|
||
|
|
Write-Host
|
||
|
|
Write-Host "Key Management Service cumulative requests received from clients:"
|
||
|
|
Write-Host " Total: $KeyManagementServiceTotalRequests"
|
||
|
|
Write-Host " Failed: $KeyManagementServiceFailedRequests"
|
||
|
|
Write-Host " Unlicensed: $KeyManagementServiceUnlicensedRequests"
|
||
|
|
Write-Host " Licensed: $KeyManagementServiceLicensedRequests"
|
||
|
|
Write-Host " Initial grace period: $KeyManagementServiceOOBGraceRequests"
|
||
|
|
Write-Host " Expired or Hardware out of tolerance: $KeyManagementServiceOOTGraceRequests"
|
||
|
|
Write-Host " Non-genuine grace period: $KeyManagementServiceNonGenuineGraceRequests"
|
||
|
|
Write-Host " Notification: $KeyManagementServiceNotificationRequests"
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
function DetectKmsClient
|
||
|
|
{
|
||
|
|
if ($null -NE $VLActivationTypeEnabled) {Write-Host "Configured Activation Type: $($VLActTypes[$VLActivationTypeEnabled])"}
|
||
|
|
Write-Host
|
||
|
|
if ($LicenseStatus -NE 1) {
|
||
|
|
Write-Host "Please activate the product in order to update KMS client information values."
|
||
|
|
return
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($Vista) {
|
||
|
|
$KeyManagementServicePort = strGetRegistry $SLKeyPath "KeyManagementServicePort"
|
||
|
|
$DiscoveredKeyManagementServiceMachineName = strGetRegistry $NSKeyPath "DiscoveredKeyManagementServiceName"
|
||
|
|
$DiscoveredKeyManagementServiceMachinePort = strGetRegistry $NSKeyPath "DiscoveredKeyManagementServicePort"
|
||
|
|
}
|
||
|
|
|
||
|
|
if ([String]::IsNullOrEmpty($KeyManagementServiceMachine)) {
|
||
|
|
$KmsReg = $null
|
||
|
|
} else {
|
||
|
|
if (-Not $KeyManagementServicePort) {$KeyManagementServicePort = 1688}
|
||
|
|
$KmsReg = "Registered KMS machine name: ${KeyManagementServiceMachine}:${KeyManagementServicePort}"
|
||
|
|
}
|
||
|
|
|
||
|
|
if ([String]::IsNullOrEmpty($DiscoveredKeyManagementServiceMachineName)) {
|
||
|
|
$KmsDns = "DNS auto-discovery: KMS name not available"
|
||
|
|
if ($Vista -And -Not $Admin) {$KmsDns = "DNS auto-discovery: Run the script as administrator to retrieve info"}
|
||
|
|
} else {
|
||
|
|
if (-Not $DiscoveredKeyManagementServiceMachinePort) {$DiscoveredKeyManagementServiceMachinePort = 1688}
|
||
|
|
$KmsDns = "KMS machine name from DNS: ${DiscoveredKeyManagementServiceMachineName}:${DiscoveredKeyManagementServiceMachinePort}"
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($null -NE $objSvc.KeyManagementServiceHostCaching) {
|
||
|
|
if ($objSvc.KeyManagementServiceHostCaching -EQ "TRUE") {
|
||
|
|
$KeyManagementServiceHostCaching = "Enabled"
|
||
|
|
} else {
|
||
|
|
$KeyManagementServiceHostCaching = "Disabled"
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
Write-Host "Key Management Service client information:"
|
||
|
|
Write-Host " Client Machine ID (CMID): $($objSvc.ClientMachineID)"
|
||
|
|
if ($null -EQ $KmsReg) {
|
||
|
|
Write-Host " $KmsDns"
|
||
|
|
Write-Host " Registered KMS machine name: KMS name not available"
|
||
|
|
} else {
|
||
|
|
Write-Host " $KmsReg"
|
||
|
|
}
|
||
|
|
if ($null -NE $DiscoveredKeyManagementServiceMachineIpAddress) {Write-Host " KMS machine IP address: $DiscoveredKeyManagementServiceMachineIpAddress"}
|
||
|
|
Write-Host " KMS machine extended PID: $KeyManagementServiceProductKeyID"
|
||
|
|
Write-Host " Activation interval: $VLActivationInterval minutes"
|
||
|
|
Write-Host " Renewal interval: $VLRenewalInterval minutes"
|
||
|
|
if ($null -NE $KeyManagementServiceHostCaching) {Write-Host " KMS host caching: $KeyManagementServiceHostCaching"}
|
||
|
|
if (-Not [String]::IsNullOrEmpty($KeyManagementServiceLookupDomain)) {Write-Host " KMS SRV record lookup domain: $KeyManagementServiceLookupDomain"}
|
||
|
|
}
|
||
|
|
|
||
|
|
function GetResult($strSLP, $strSLS, $strID)
|
||
|
|
{
|
||
|
|
try {$objPrd = Get-WmiObject $strSLP -Filter "ID='$strID'" -EA 1} catch {return}
|
||
|
|
$objPrd | select -Expand Properties -EA 0 | foreach {
|
||
|
|
if (-Not [String]::IsNullOrEmpty($_.Value)) {set $_.Name $_.Value}
|
||
|
|
}
|
||
|
|
|
||
|
|
$winID = ($ApplicationID -EQ $winApp)
|
||
|
|
$winPR = ($winID -And -Not $LicenseIsAddon)
|
||
|
|
$Vista = ($winID -And $NT6 -And -Not $NT7)
|
||
|
|
$NT5 = ($strSLP -EQ $wslp -And $winbuild -LT 6001)
|
||
|
|
|
||
|
|
if ($Description | Select-String "VOLUME_KMSCLIENT") {$cKmsClient = 1; $_mTag = "Volume"}
|
||
|
|
if ($Description | Select-String "TIMEBASED_") {$cTblClient = 1; $_mTag = "Timebased"}
|
||
|
|
if ($Description | Select-String "VIRTUAL_MACHINE_ACTIVATION") {$cAvmClient = 1; $_mTag = "Automatic VM"}
|
||
|
|
if ($null -EQ $cKmsClient) {
|
||
|
|
if ($Description | Select-String "VOLUME_KMS") {$cKmsHost = 1}
|
||
|
|
}
|
||
|
|
|
||
|
|
$_gpr = [Math]::Round($GracePeriodRemaining/1440)
|
||
|
|
if ($_gpr -GT 0) {
|
||
|
|
$_xpr = [DateTime]::Now.addMinutes($GracePeriodRemaining).ToString('yyyy-MM-dd hh:mm:ss tt')
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($null -EQ $LicenseStatusReason) {$LicenseStatusReason = -1}
|
||
|
|
$LicenseReason = '0x{0:X}' -f $LicenseStatusReason
|
||
|
|
$LicenseMsg = "Time remaining: $GracePeriodRemaining minute(s) ($_gpr day(s))"
|
||
|
|
if ($LicenseStatus -EQ 0) {
|
||
|
|
$LicenseInf = "Unlicensed"
|
||
|
|
$LicenseMsg = $null
|
||
|
|
}
|
||
|
|
if ($LicenseStatus -EQ 1) {
|
||
|
|
$LicenseInf = "Licensed"
|
||
|
|
$LicenseMsg = $null
|
||
|
|
if ($GracePeriodRemaining -EQ 0) {
|
||
|
|
if ($winPR) {$ExpireMsg = "The machine is permanently activated."} else {$ExpireMsg = "The product is permanently activated."}
|
||
|
|
} else {
|
||
|
|
$LicenseMsg = "$_mTag activation expiration: $GracePeriodRemaining minute(s) ($_gpr day(s))"
|
||
|
|
if ($null -NE $_xpr) {$ExpireMsg = "$_mTag activation will expire $_xpr"}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if ($LicenseStatus -EQ 2) {
|
||
|
|
$LicenseInf = "Initial grace period"
|
||
|
|
if ($null -NE $_xpr) {$ExpireMsg = "Initial grace period ends $_xpr"}
|
||
|
|
}
|
||
|
|
if ($LicenseStatus -EQ 3) {
|
||
|
|
$LicenseInf = "Additional grace period (KMS license expired or hardware out of tolerance)"
|
||
|
|
if ($null -NE $_xpr) {$ExpireMsg = "Additional grace period ends $_xpr"}
|
||
|
|
}
|
||
|
|
if ($LicenseStatus -EQ 4) {
|
||
|
|
$LicenseInf = "Non-genuine grace period"
|
||
|
|
if ($null -NE $_xpr) {$ExpireMsg = "Non-genuine grace period ends $_xpr"}
|
||
|
|
}
|
||
|
|
if ($LicenseStatus -EQ 5 -And -Not $NT5) {
|
||
|
|
$LicenseInf = "Notification"
|
||
|
|
$LicenseMsg = "Notification Reason: $LicenseReason"
|
||
|
|
if ($LicenseReason -EQ "0xC004F200") {$LicenseMsg = $LicenseMsg + " (non-genuine)."}
|
||
|
|
if ($LicenseReason -EQ "0xC004F009") {$LicenseMsg = $LicenseMsg + " (grace time expired)."}
|
||
|
|
}
|
||
|
|
if ($LicenseStatus -GT 5 -Or ($LicenseStatus -GT 4 -And $NT5)) {
|
||
|
|
$LicenseInf = "Unknown"
|
||
|
|
$LicenseMsg = $null
|
||
|
|
}
|
||
|
|
if ($LicenseStatus -EQ 6 -And -Not $Vista -And -Not $NT5) {
|
||
|
|
$LicenseInf = "Extended grace period"
|
||
|
|
if ($null -NE $_xpr) {$ExpireMsg = "Extended grace period ends $_xpr"}
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($winPR -And $PartialProductKey -And -Not $NT9) {
|
||
|
|
$dp4 = Get-ItemProperty -EA 0 "HKLM:\SOFTWARE\Microsoft\Windows NT\CurrentVersion" | select -EA 0 -Expand DigitalProductId4
|
||
|
|
if ($null -NE $dp4) {
|
||
|
|
$ProductKeyChannel = ([System.Text.Encoding]::Unicode.GetString($dp4, 1016, 128)).Trim([char]$null)
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($All.IsPresent) {Write-Host}
|
||
|
|
Write-Host "Name: $Name"
|
||
|
|
Write-Host "Description: $Description"
|
||
|
|
Write-Host "Activation ID: $ID"
|
||
|
|
if ($null -NE $ProductKeyID) {Write-Host "Extended PID: $ProductKeyID"}
|
||
|
|
if ($null -NE $OfflineInstallationId -And $IID.IsPresent) {Write-Host "Installation ID: $OfflineInstallationId"}
|
||
|
|
if ($null -NE $ProductKeyChannel) {Write-Host "Product Key Channel: $ProductKeyChannel"}
|
||
|
|
if ($null -NE $PartialProductKey) {Write-Host "Partial Product Key: $PartialProductKey"} else {Write-Host "Product Key: Not installed"}
|
||
|
|
Write-Host "License Status: $LicenseInf"
|
||
|
|
if ($null -NE $LicenseMsg) {Write-Host "$LicenseMsg"}
|
||
|
|
if ($LicenseStatus -NE 0 -And $EvaluationEndDate.Substring(0,4) -NE "1601") {
|
||
|
|
$EED = [DateTime]::Parse([Management.ManagementDateTimeConverter]::ToDateTime($EvaluationEndDate),$null,48).ToString('yyyy-MM-dd hh:mm:ss tt')
|
||
|
|
Write-Host "Evaluation End Date: $EED UTC"
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($winID -And $null -NE $cAvmClient -And $null -NE $PartialProductKey) {
|
||
|
|
DetectAvmClient
|
||
|
|
}
|
||
|
|
|
||
|
|
$chkSub = ($winPR -And $cSub)
|
||
|
|
|
||
|
|
$chkSLS = ($null -NE $PartialProductKey) -And ($null -NE $cKmsClient -Or $null -NE $cKmsHost -Or $chkSub)
|
||
|
|
|
||
|
|
if (!$chkSLS) {
|
||
|
|
if ($null -NE $ExpireMsg) {Write-Host; Write-Host " $ExpireMsg"}
|
||
|
|
return
|
||
|
|
}
|
||
|
|
|
||
|
|
$objSvc = Get-WmiObject $strSLS -EA 0
|
||
|
|
|
||
|
|
if ($Vista) {
|
||
|
|
$objSvc | select -Expand Properties -EA 0 | foreach {
|
||
|
|
if (-Not [String]::IsNullOrEmpty($_.Value)) {set $_.Name $_.Value}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($strSLS -EQ $wsls -And $NT9) {
|
||
|
|
if ([String]::IsNullOrEmpty($DiscoveredKeyManagementServiceMachineIpAddress)) {
|
||
|
|
$DiscoveredKeyManagementServiceMachineIpAddress = "not available"
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($null -NE $cKmsHost -And $IsKeyManagementServiceMachine -GT 0) {
|
||
|
|
DetectKmsHost
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($null -NE $cKmsClient) {
|
||
|
|
DetectKmsClient
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($null -NE $ExpireMsg) {Write-Host; Write-Host " $ExpireMsg"}
|
||
|
|
|
||
|
|
if ($chkSub) {
|
||
|
|
DetectSubscription
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
#endregion
|
||
|
|
|
||
|
|
#region vNextDiag
|
||
|
|
if ($PSVersionTable.PSVersion.Major -Lt 3)
|
||
|
|
{
|
||
|
|
function ConvertFrom-Json
|
||
|
|
{
|
||
|
|
[CmdletBinding()]
|
||
|
|
Param(
|
||
|
|
[Parameter(ValueFromPipeline=$true)][Object]$item
|
||
|
|
)
|
||
|
|
[void][System.Reflection.Assembly]::LoadWithPartialName("System.Web.Extensions")
|
||
|
|
$psjs = New-Object System.Web.Script.Serialization.JavaScriptSerializer
|
||
|
|
Return ,$psjs.DeserializeObject($item)
|
||
|
|
}
|
||
|
|
function ConvertTo-Json
|
||
|
|
{
|
||
|
|
[CmdletBinding()]
|
||
|
|
Param(
|
||
|
|
[Parameter(ValueFromPipeline=$true)][Object]$item
|
||
|
|
)
|
||
|
|
[void][System.Reflection.Assembly]::LoadWithPartialName("System.Web.Extensions")
|
||
|
|
$psjs = New-Object System.Web.Script.Serialization.JavaScriptSerializer
|
||
|
|
Return $psjs.Serialize($item)
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
function PrintModePerPridFromRegistry
|
||
|
|
{
|
||
|
|
$vNextRegkey = "HKCU:\SOFTWARE\Microsoft\Office\16.0\Common\Licensing\LicensingNext"
|
||
|
|
$vNextPrids = Get-Item -Path $vNextRegkey -ErrorAction SilentlyContinue | Select-Object -ExpandProperty 'property' -ErrorAction SilentlyContinue | Where-Object -FilterScript {$_.ToLower() -like "*retail" -or $_.ToLower() -like "*volume"}
|
||
|
|
If ($null -Eq $vNextPrids)
|
||
|
|
{
|
||
|
|
Write-Host
|
||
|
|
Write-Host "No registry keys found."
|
||
|
|
Return
|
||
|
|
}
|
||
|
|
Write-Host
|
||
|
|
$vNextPrids | ForEach `
|
||
|
|
{
|
||
|
|
$mode = (Get-ItemProperty -Path $vNextRegkey -Name $_).$_
|
||
|
|
Switch ($mode)
|
||
|
|
{
|
||
|
|
2 { $mode = "vNext"; Break }
|
||
|
|
3 { $mode = "Device"; Break }
|
||
|
|
Default { $mode = "Legacy"; Break }
|
||
|
|
}
|
||
|
|
Write-Host $_ = $mode
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
function PrintSharedComputerLicensing
|
||
|
|
{
|
||
|
|
$scaRegKey = "HKLM:\SOFTWARE\Microsoft\Office\ClickToRun\Configuration"
|
||
|
|
$scaValue = Get-ItemProperty -Path $scaRegKey -ErrorAction SilentlyContinue | Select-Object -ExpandProperty "SharedComputerLicensing" -ErrorAction SilentlyContinue
|
||
|
|
$scaRegKey2 = "HKLM:\SOFTWARE\Microsoft\Office\16.0\Common\Licensing"
|
||
|
|
$scaValue2 = Get-ItemProperty -Path $scaRegKey2 -ErrorAction SilentlyContinue | Select-Object -ExpandProperty "SharedComputerLicensing" -ErrorAction SilentlyContinue
|
||
|
|
$scaPolicyKey = "HKLM:\SOFTWARE\Policies\Microsoft\Office\16.0\Common\Licensing"
|
||
|
|
$scaPolicyValue = Get-ItemProperty -Path $scaPolicyKey -ErrorAction SilentlyContinue | Select-Object -ExpandProperty "SharedComputerLicensing" -ErrorAction SilentlyContinue
|
||
|
|
If ($null -Eq $scaValue -And $null -Eq $scaValue2 -And $null -Eq $scaPolicyValue)
|
||
|
|
{
|
||
|
|
Write-Host
|
||
|
|
Write-Host "No registry keys found."
|
||
|
|
Return
|
||
|
|
}
|
||
|
|
$scaModeValue = $scaValue -Or $scaValue2 -Or $scaPolicyValue
|
||
|
|
If ($scaModeValue -Eq 0)
|
||
|
|
{
|
||
|
|
$scaMode = "Disabled"
|
||
|
|
}
|
||
|
|
If ($scaModeValue -Eq 1)
|
||
|
|
{
|
||
|
|
$scaMode = "Enabled"
|
||
|
|
}
|
||
|
|
Write-Host
|
||
|
|
Write-Host "Status:" $scaMode
|
||
|
|
Write-Host
|
||
|
|
$tokenFiles = $null
|
||
|
|
$tokenPath = "${env:LOCALAPPDATA}\Microsoft\Office\16.0\Licensing"
|
||
|
|
If (Test-Path $tokenPath)
|
||
|
|
{
|
||
|
|
$tokenFiles = Get-ChildItem -Path $tokenPath -Filter "*authString*" -Recurse | Where-Object { !$_.PSIsContainer }
|
||
|
|
}
|
||
|
|
If ($null -Eq $tokenFiles)
|
||
|
|
{
|
||
|
|
Write-Host "No tokens found."
|
||
|
|
Return
|
||
|
|
}
|
||
|
|
If ($tokenFiles.Length -Eq 0)
|
||
|
|
{
|
||
|
|
Write-Host "No tokens found."
|
||
|
|
Return
|
||
|
|
}
|
||
|
|
$tokenFiles | ForEach `
|
||
|
|
{
|
||
|
|
$tokenParts = (Get-Content -Encoding Unicode -Path $_.FullName).Split('_')
|
||
|
|
$output = New-Object PSObject
|
||
|
|
$output | Add-Member 8 'ACID' $tokenParts[0];
|
||
|
|
$output | Add-Member 8 'User' $tokenParts[3];
|
||
|
|
$output | Add-Member 8 'NotBefore' $tokenParts[4];
|
||
|
|
$output | Add-Member 8 'NotAfter' $tokenParts[5];
|
||
|
|
Write-Output $output
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
function PrintLicensesInformation
|
||
|
|
{
|
||
|
|
Param(
|
||
|
|
[ValidateSet("NUL", "Device")]
|
||
|
|
[String]$mode
|
||
|
|
)
|
||
|
|
If ($mode -Eq "NUL")
|
||
|
|
{
|
||
|
|
$licensePath = "${env:LOCALAPPDATA}\Microsoft\Office\Licenses"
|
||
|
|
}
|
||
|
|
ElseIf ($mode -Eq "Device")
|
||
|
|
{
|
||
|
|
$licensePath = "${env:PROGRAMDATA}\Microsoft\Office\Licenses"
|
||
|
|
}
|
||
|
|
$licenseFiles = $null
|
||
|
|
If (Test-Path $licensePath)
|
||
|
|
{
|
||
|
|
$licenseFiles = Get-ChildItem -Path $licensePath -Recurse | Where-Object { !$_.PSIsContainer }
|
||
|
|
}
|
||
|
|
If ($null -Eq $licenseFiles)
|
||
|
|
{
|
||
|
|
Write-Host
|
||
|
|
Write-Host "No licenses found."
|
||
|
|
Return
|
||
|
|
}
|
||
|
|
If ($licenseFiles.Length -Eq 0)
|
||
|
|
{
|
||
|
|
Write-Host
|
||
|
|
Write-Host "No licenses found."
|
||
|
|
Return
|
||
|
|
}
|
||
|
|
$licenseFiles | ForEach `
|
||
|
|
{
|
||
|
|
$license = (Get-Content -Encoding Unicode $_.FullName | ConvertFrom-Json).License
|
||
|
|
$decodedLicense = [System.Text.Encoding]::UTF8.GetString([System.Convert]::FromBase64String($license)) | ConvertFrom-Json
|
||
|
|
$licenseType = $decodedLicense.LicenseType
|
||
|
|
If ($null -Ne $decodedLicense.ExpiresOn)
|
||
|
|
{
|
||
|
|
$expiry = [System.DateTime]::Parse($decodedLicense.ExpiresOn, $null, 'AdjustToUniversal')
|
||
|
|
}
|
||
|
|
Else
|
||
|
|
{
|
||
|
|
$expiry = New-Object System.DateTime
|
||
|
|
}
|
||
|
|
$licenseState = "Grace"
|
||
|
|
If ((Get-Date) -Gt (Get-Date $decodedLicense.Metadata.NotAfter))
|
||
|
|
{
|
||
|
|
$licenseState = "RFM"
|
||
|
|
}
|
||
|
|
ElseIf ((Get-Date) -Lt (Get-Date $expiry))
|
||
|
|
{
|
||
|
|
$licenseState = "Licensed"
|
||
|
|
}
|
||
|
|
$output = New-Object PSObject
|
||
|
|
$output | Add-Member 8 'File' $_.PSChildName;
|
||
|
|
$output | Add-Member 8 'Version' $_.Directory.Name;
|
||
|
|
$output | Add-Member 8 'Type' "User|${licenseType}";
|
||
|
|
$output | Add-Member 8 'Product' $decodedLicense.ProductReleaseId;
|
||
|
|
$output | Add-Member 8 'Acid' $decodedLicense.Acid;
|
||
|
|
If ($mode -Eq "Device") { $output | Add-Member 8 'DeviceId' $decodedLicense.Metadata.DeviceId; }
|
||
|
|
$output | Add-Member 8 'LicenseState' $licenseState;
|
||
|
|
$output | Add-Member 8 'EntitlementStatus' $decodedLicense.Status;
|
||
|
|
$output | Add-Member 8 'EntitlementExpiration' ("N/A", $decodedLicense.ExpiresOn)[!($null -eq $decodedLicense.ExpiresOn)];
|
||
|
|
$output | Add-Member 8 'ReasonCode' ("N/A", $decodedLicense.ReasonCode)[!($null -eq $decodedLicense.ReasonCode)];
|
||
|
|
$output | Add-Member 8 'NotBefore' $decodedLicense.Metadata.NotBefore;
|
||
|
|
$output | Add-Member 8 'NotAfter' $decodedLicense.Metadata.NotAfter;
|
||
|
|
$output | Add-Member 8 'NextRenewal' $decodedLicense.Metadata.RenewAfter;
|
||
|
|
$output | Add-Member 8 'TenantId' ("N/A", $decodedLicense.Metadata.TenantId)[!($null -eq $decodedLicense.Metadata.TenantId)];
|
||
|
|
#$output.PSObject.Properties | foreach { $ht = @{} } { $ht[$_.Name] = $_.Value } { $output = $ht | ConvertTo-Json }
|
||
|
|
Write-Output $output
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
function vNextDiagRun
|
||
|
|
{
|
||
|
|
$fNUL = ([IO.Directory]::Exists("${env:LOCALAPPDATA}\Microsoft\Office\Licenses")) -and ([IO.Directory]::GetFiles("${env:LOCALAPPDATA}\Microsoft\Office\Licenses", "*", 1).Length -GE 0)
|
||
|
|
$fDev = ([IO.Directory]::Exists("${env:PROGRAMDATA}\Microsoft\Office\Licenses")) -and ([IO.Directory]::GetFiles("${env:PROGRAMDATA}\Microsoft\Office\Licenses", "*", 1).Length -GE 0)
|
||
|
|
$rPID = $null -NE (GP "HKCU:\SOFTWARE\Microsoft\Office\16.0\Common\Licensing\LicensingNext" -EA 0 | select -Expand 'property' -EA 0 | where -Filter {$_.ToLower() -like "*retail" -or $_.ToLower() -like "*volume"})
|
||
|
|
$rSCA = $null -NE (GP "HKLM:\SOFTWARE\Microsoft\Office\ClickToRun\Configuration" -EA 0 | select -Expand "SharedComputerLicensing" -EA 0)
|
||
|
|
$rSCL = $null -NE (GP "HKLM:\SOFTWARE\Microsoft\Office\16.0\Common\Licensing" -EA 0 | select -Expand "SharedComputerLicensing" -EA 0)
|
||
|
|
|
||
|
|
if (($fNUL -Or $fDev -Or $rPID -Or $rSCA -Or $rSCL) -EQ $false) {
|
||
|
|
Return
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($All.IsPresent) {Write-Host}
|
||
|
|
Write-Host "$line2"
|
||
|
|
Write-Host "=== Office vNext Status ==="
|
||
|
|
Write-Host "$line2"
|
||
|
|
Write-Host
|
||
|
|
Write-Host "========== Mode per ProductReleaseId =========="
|
||
|
|
PrintModePerPridFromRegistry
|
||
|
|
Write-Host
|
||
|
|
Write-Host "========== Shared Computer Licensing =========="
|
||
|
|
PrintSharedComputerLicensing
|
||
|
|
Write-Host
|
||
|
|
Write-Host "========== vNext licenses ==========="
|
||
|
|
PrintLicensesInformation -Mode "NUL"
|
||
|
|
Write-Host
|
||
|
|
Write-Host "========== Device licenses =========="
|
||
|
|
PrintLicensesInformation -Mode "Device"
|
||
|
|
Write-Host "$line3"
|
||
|
|
Write-Host
|
||
|
|
}
|
||
|
|
#endregion
|
||
|
|
|
||
|
|
#region clic
|
||
|
|
|
||
|
|
<#
|
||
|
|
;;; Source: https://github.com/asdcorp/clic
|
||
|
|
;;; Powershell port: abbodi1406
|
||
|
|
|
||
|
|
Copyright 2023 asdcorp
|
||
|
|
|
||
|
|
Permission is hereby granted, free of charge, to any person obtaining a copy of
|
||
|
|
this software and associated documentation files (the "Software"), to deal in
|
||
|
|
the Software without restriction, including without limitation the rights to
|
||
|
|
use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
|
||
|
|
the Software, and to permit persons to whom the Software is furnished to do so,
|
||
|
|
subject to the following conditions:
|
||
|
|
|
||
|
|
The above copyright notice and this permission notice shall be included in all
|
||
|
|
copies or substantial portions of the Software.
|
||
|
|
|
||
|
|
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
||
|
|
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
|
||
|
|
FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
|
||
|
|
COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
|
||
|
|
IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
|
||
|
|
CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
|
||
|
|
#>
|
||
|
|
|
||
|
|
function BoolToWStr($bVal) {
|
||
|
|
("TRUE", "FALSE")[!$bVal]
|
||
|
|
}
|
||
|
|
|
||
|
|
function InitializePInvoke {
|
||
|
|
$Marshal = [System.Runtime.InteropServices.Marshal]
|
||
|
|
$Module = [AppDomain]::CurrentDomain.DefineDynamicAssembly((Get-Random), 'Run').DefineDynamicModule((Get-Random))
|
||
|
|
|
||
|
|
$Class = $Module.DefineType('NativeMethods', 'Public, Abstract, Sealed, BeforeFieldInit', [Object], 0)
|
||
|
|
$Class.DefinePInvokeMethod('SLIsWindowsGenuineLocal', 'slc.dll', 'Public, Static', 'Standard', [Int32], @([UInt32].MakeByRefType()), 'Winapi', 'Unicode').SetImplementationFlags('PreserveSig')
|
||
|
|
$Class.DefinePInvokeMethod('SLGetWindowsInformationDWORD', 'slc.dll', 22, 1, [Int32], @([String], [UInt32].MakeByRefType()), 1, 3).SetImplementationFlags(128)
|
||
|
|
$Class.DefinePInvokeMethod('SLGetWindowsInformation', 'slc.dll', 22, 1, [Int32], @([String], [UInt32].MakeByRefType(), [UInt32].MakeByRefType(), [IntPtr].MakeByRefType()), 1, 3).SetImplementationFlags(128)
|
||
|
|
|
||
|
|
if ($DllSubscription) {
|
||
|
|
$Class.DefinePInvokeMethod('ClipGetSubscriptionStatus', 'Clipc.dll', 22, 1, [Int32], @([IntPtr].MakeByRefType()), 1, 3).SetImplementationFlags(128)
|
||
|
|
$Struct = $Class.DefineNestedType('SubStatus', 'NestedPublic, SequentialLayout, Sealed, BeforeFieldInit', [ValueType], 0)
|
||
|
|
[void]$Struct.DefineField('dwEnabled', [UInt32], 'Public')
|
||
|
|
[void]$Struct.DefineField('dwSku', [UInt32], 6)
|
||
|
|
[void]$Struct.DefineField('dwState', [UInt32], 6)
|
||
|
|
$SubStatus = $Struct.CreateType()
|
||
|
|
}
|
||
|
|
|
||
|
|
$Win32 = $Class.CreateType()
|
||
|
|
}
|
||
|
|
|
||
|
|
function InitializeDigitalLicenseCheck {
|
||
|
|
$CAB = [System.Reflection.Emit.CustomAttributeBuilder]
|
||
|
|
|
||
|
|
$ICom = $Module.DefineType('EUM.IEUM', 'Public, Interface, Abstract, Import')
|
||
|
|
$ICom.SetCustomAttribute($CAB::new([System.Runtime.InteropServices.ComImportAttribute].GetConstructor(@()), @()))
|
||
|
|
$ICom.SetCustomAttribute($CAB::new([System.Runtime.InteropServices.GuidAttribute].GetConstructor(@([String])), @('F2DCB80D-0670-44BC-9002-CD18688730AF')))
|
||
|
|
$ICom.SetCustomAttribute($CAB::new([System.Runtime.InteropServices.InterfaceTypeAttribute].GetConstructor(@([Int16])), @([Int16]1)))
|
||
|
|
|
||
|
|
1..4 | % { [void]$ICom.DefineMethod('VF'+$_, 'Public, Virtual, HideBySig, NewSlot, Abstract', 'Standard, HasThis', [Void], @()) }
|
||
|
|
[void]$ICom.DefineMethod('AcquireModernLicenseForWindows', 1478, 33, [Int32], @([Int32], [Int32].MakeByRefType()))
|
||
|
|
|
||
|
|
$IEUM = $ICom.CreateType()
|
||
|
|
}
|
||
|
|
|
||
|
|
function PrintStateData {
|
||
|
|
$pwszStateData = 0
|
||
|
|
$cbSize = 0
|
||
|
|
|
||
|
|
if ($Win32::SLGetWindowsInformation(
|
||
|
|
"Security-SPP-Action-StateData",
|
||
|
|
[ref]$null,
|
||
|
|
[ref]$cbSize,
|
||
|
|
[ref]$pwszStateData
|
||
|
|
)) {
|
||
|
|
return $FALSE
|
||
|
|
}
|
||
|
|
|
||
|
|
[string[]]$pwszStateString = $Marshal::PtrToStringUni($pwszStateData) -replace ";", "`n "
|
||
|
|
Write-Host " $pwszStateString"
|
||
|
|
|
||
|
|
$Marshal::FreeHGlobal($pwszStateData)
|
||
|
|
return $TRUE
|
||
|
|
}
|
||
|
|
|
||
|
|
function PrintLastActivationHRresult {
|
||
|
|
$pdwLastHResult = 0
|
||
|
|
$cbSize = 0
|
||
|
|
|
||
|
|
if ($Win32::SLGetWindowsInformation(
|
||
|
|
"Security-SPP-LastWindowsActivationHResult",
|
||
|
|
[ref]$null,
|
||
|
|
[ref]$cbSize,
|
||
|
|
[ref]$pdwLastHResult
|
||
|
|
)) {
|
||
|
|
return $FALSE
|
||
|
|
}
|
||
|
|
|
||
|
|
Write-Host (" LastActivationHResult=0x{0:x8}" -f $Marshal::ReadInt32($pdwLastHResult))
|
||
|
|
|
||
|
|
$Marshal::FreeHGlobal($pdwLastHResult)
|
||
|
|
return $TRUE
|
||
|
|
}
|
||
|
|
|
||
|
|
function PrintIsWindowsGenuine {
|
||
|
|
$dwGenuine = 0
|
||
|
|
$ppwszGenuineStates = @(
|
||
|
|
"SL_GEN_STATE_IS_GENUINE",
|
||
|
|
"SL_GEN_STATE_INVALID_LICENSE",
|
||
|
|
"SL_GEN_STATE_TAMPERED",
|
||
|
|
"SL_GEN_STATE_OFFLINE",
|
||
|
|
"SL_GEN_STATE_LAST"
|
||
|
|
)
|
||
|
|
|
||
|
|
if ($Win32::SLIsWindowsGenuineLocal([ref]$dwGenuine)) {
|
||
|
|
return $FALSE
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($dwGenuine -lt 5) {
|
||
|
|
Write-Host (" IsWindowsGenuine={0}" -f $ppwszGenuineStates[$dwGenuine])
|
||
|
|
} else {
|
||
|
|
Write-Host (" IsWindowsGenuine={0}" -f $dwGenuine)
|
||
|
|
}
|
||
|
|
|
||
|
|
return $TRUE
|
||
|
|
}
|
||
|
|
|
||
|
|
function PrintDigitalLicenseStatus {
|
||
|
|
try {
|
||
|
|
. InitializeDigitalLicenseCheck
|
||
|
|
$ComObj = New-Object -Com EditionUpgradeManagerObj.EditionUpgradeManager
|
||
|
|
} catch {
|
||
|
|
return $FALSE
|
||
|
|
}
|
||
|
|
|
||
|
|
$parameters = 1, $null
|
||
|
|
|
||
|
|
if ([EUM.IEUM].GetMethod("AcquireModernLicenseForWindows").Invoke($ComObj, $parameters)) {
|
||
|
|
return $FALSE
|
||
|
|
}
|
||
|
|
|
||
|
|
$dwReturnCode = $parameters[1]
|
||
|
|
[bool]$bDigitalLicense = $FALSE
|
||
|
|
|
||
|
|
$bDigitalLicense = (($dwReturnCode -ge 0) -and ($dwReturnCode -ne 1))
|
||
|
|
Write-Host (" IsDigitalLicense={0}" -f (BoolToWStr $bDigitalLicense))
|
||
|
|
|
||
|
|
return $TRUE
|
||
|
|
}
|
||
|
|
|
||
|
|
function PrintSubscriptionStatus {
|
||
|
|
$dwSupported = 0
|
||
|
|
|
||
|
|
if ($winbuild -ge 15063) {
|
||
|
|
$pwszPolicy = "ConsumeAddonPolicySet"
|
||
|
|
} else {
|
||
|
|
$pwszPolicy = "Allow-WindowsSubscription"
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($Win32::SLGetWindowsInformationDWORD($pwszPolicy, [ref]$dwSupported)) {
|
||
|
|
return $FALSE
|
||
|
|
}
|
||
|
|
|
||
|
|
Write-Host (" SubscriptionSupportedEdition={0}" -f (BoolToWStr $dwSupported))
|
||
|
|
|
||
|
|
$pStatus = $Marshal::AllocHGlobal($Marshal::SizeOf([Type]$SubStatus))
|
||
|
|
if ($Win32::ClipGetSubscriptionStatus([ref]$pStatus)) {
|
||
|
|
return $FALSE
|
||
|
|
}
|
||
|
|
|
||
|
|
$sStatus = [Activator]::CreateInstance($SubStatus)
|
||
|
|
$sStatus = $Marshal::PtrToStructure($pStatus, [Type]$SubStatus)
|
||
|
|
$Marshal::FreeHGlobal($pStatus)
|
||
|
|
|
||
|
|
Write-Host (" SubscriptionEnabled={0}" -f (BoolToWStr $sStatus.dwEnabled))
|
||
|
|
|
||
|
|
if ($sStatus.dwEnabled -eq 0) {
|
||
|
|
return $TRUE
|
||
|
|
}
|
||
|
|
|
||
|
|
Write-Host (" SubscriptionSku={0}" -f $sStatus.dwSku)
|
||
|
|
Write-Host (" SubscriptionState={0}" -f $sStatus.dwState)
|
||
|
|
|
||
|
|
return $TRUE
|
||
|
|
}
|
||
|
|
|
||
|
|
function ClicRun
|
||
|
|
{
|
||
|
|
if ($All.IsPresent) {Write-Host}
|
||
|
|
Write-Host "Client Licensing Check information:"
|
||
|
|
|
||
|
|
$null = PrintStateData
|
||
|
|
$null = PrintLastActivationHRresult
|
||
|
|
$null = PrintIsWindowsGenuine
|
||
|
|
|
||
|
|
if ($DllDigital) {
|
||
|
|
$null = PrintDigitalLicenseStatus
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($DllSubscription) {
|
||
|
|
$null = PrintSubscriptionStatus
|
||
|
|
}
|
||
|
|
|
||
|
|
Write-Host "$line3"
|
||
|
|
if (!$All.IsPresent) {Write-Host}
|
||
|
|
}
|
||
|
|
#endregion
|
||
|
|
|
||
|
|
$Host.UI.RawUI.WindowTitle = "Check Activation Status"
|
||
|
|
|
||
|
|
if ($All.IsPresent) {
|
||
|
|
$B=$Host.UI.RawUI.BufferSize;$B.Height=3000;$Host.UI.RawUI.BufferSize=$B;clear;
|
||
|
|
}
|
||
|
|
|
||
|
|
$SysPath = "$env:SystemRoot\System32"
|
||
|
|
if (Test-Path "$env:SystemRoot\Sysnative\reg.exe") {
|
||
|
|
$SysPath = "$env:SystemRoot\Sysnative"
|
||
|
|
}
|
||
|
|
|
||
|
|
$wslp = "SoftwareLicensingProduct"
|
||
|
|
$wsls = "SoftwareLicensingService"
|
||
|
|
$oslp = "OfficeSoftwareProtectionProduct"
|
||
|
|
$osls = "OfficeSoftwareProtectionService"
|
||
|
|
$winApp = "55c92734-d682-4d71-983e-d6ec3f16059f"
|
||
|
|
$o14App = "59a52881-a989-479d-af46-f275c6370663"
|
||
|
|
$o15App = "0ff1ce15-a989-479d-af46-f275c6370663"
|
||
|
|
$cSub = ($winbuild -GE 19041) -And (Select-String -Path "$SysPath\wbem\sppwmi.mof" -Encoding unicode -Pattern "SubscriptionType")
|
||
|
|
$DllDigital = ($winbuild -GE 14393) -And (Test-Path "$SysPath\EditionUpgradeManagerObj.dll")
|
||
|
|
$DllSubscription = ($winbuild -GE 14393) -And (Test-Path "$SysPath\Clipc.dll")
|
||
|
|
$VLActTypes = @("All", "AD", "KMS", "Token")
|
||
|
|
$SLKeyPath = "Registry::HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SL"
|
||
|
|
$NSKeyPath = "Registry::HKEY_USERS\S-1-5-20\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SL"
|
||
|
|
|
||
|
|
'cW1nd0ws', 'c0ff1ce15', 'c0ff1ce14', 'ospp14', 'ospp15' | foreach {set $_ $null}
|
||
|
|
|
||
|
|
$OsppHook = 1
|
||
|
|
try {gsv osppsvc -EA 1 | Out-Null} catch {$OsppHook = 0}
|
||
|
|
|
||
|
|
if ($NT7 -Or -Not $NT6) {
|
||
|
|
try {sasv sppsvc -EA 1} catch {}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
try {sasv slsvc -EA 1} catch {}
|
||
|
|
}
|
||
|
|
|
||
|
|
DetectID $wslp $winApp ([ref]$cW1nd0ws)
|
||
|
|
DetectID $wslp $o15App ([ref]$c0ff1ce15)
|
||
|
|
DetectID $wslp $o14App ([ref]$c0ff1ce14)
|
||
|
|
|
||
|
|
if ($OsppHook -NE 0) {
|
||
|
|
try {sasv osppsvc -EA 1} catch {}
|
||
|
|
DetectID $oslp $o15App ([ref]$ospp15)
|
||
|
|
DetectID $oslp $o14App ([ref]$ospp14)
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($null -NE $cW1nd0ws)
|
||
|
|
{
|
||
|
|
echoWindows
|
||
|
|
GetID $wslp $winApp | foreach -EA 1 {
|
||
|
|
GetResult $wslp $wsls $_
|
||
|
|
Write-Host "$line3"
|
||
|
|
if (!$All.IsPresent) {Write-Host}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
elseif ($NT6)
|
||
|
|
{
|
||
|
|
echoWindows
|
||
|
|
Write-Host
|
||
|
|
Write-Host "Error: product key not found."
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($winbuild -GE 9200) {
|
||
|
|
. InitializePInvoke
|
||
|
|
ClicRun
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($c0ff1ce15 -Or $ospp15) {
|
||
|
|
CheckOhook
|
||
|
|
}
|
||
|
|
|
||
|
|
$doMSG = 1
|
||
|
|
|
||
|
|
if ($null -NE $c0ff1ce15) {
|
||
|
|
echoOffice
|
||
|
|
GetID $wslp $o15App | foreach -EA 1 {
|
||
|
|
GetResult $wslp $wsls $_
|
||
|
|
Write-Host "$line3"
|
||
|
|
if (!$All.IsPresent) {Write-Host}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($null -NE $c0ff1ce14) {
|
||
|
|
echoOffice
|
||
|
|
GetID $wslp $o14App | foreach -EA 1 {
|
||
|
|
GetResult $wslp $wsls $_
|
||
|
|
Write-Host "$line3"
|
||
|
|
if (!$All.IsPresent) {Write-Host}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($null -NE $ospp15) {
|
||
|
|
echoOffice
|
||
|
|
GetID $oslp $o15App | foreach -EA 1 {
|
||
|
|
GetResult $oslp $osls $_
|
||
|
|
Write-Host "$line3"
|
||
|
|
if (!$All.IsPresent) {Write-Host}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($null -NE $ospp14) {
|
||
|
|
echoOffice
|
||
|
|
GetID $oslp $o14App | foreach -EA 1 {
|
||
|
|
GetResult $oslp $osls $_
|
||
|
|
Write-Host "$line3"
|
||
|
|
if (!$All.IsPresent) {Write-Host}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($NT7) {
|
||
|
|
vNextDiagRun
|
||
|
|
}
|
||
|
|
|
||
|
|
ExitScript 0
|
||
|
|
:sppmgr:
|