zbezj 发表于 2025-3-10 20:11:55

Powershell代码转AU3的问题

求转成AU3，谢谢


function PrintDigitalLicenseStatus {
        try {
                . InitializeDigitalLicenseCheck
                $ComObj = New-Object -Com EditionUpgradeManagerObj.EditionUpgradeManager
        } catch {
                return $FALSE
        }

        $parameters = 1, $null

        if (.GetMethod("AcquireModernLicenseForWindows").Invoke($ComObj, $parameters)) {
                return $FALSE
        }

        $dwReturnCode = $parameters
        $bDigitalLicense = $FALSE

        $bDigitalLicense = (($dwReturnCode -ge 0) -and ($dwReturnCode -ne 1))
        CONOUT ("    IsDigitalLicense={0}" -f (BoolToWStr $bDigitalLicense))

        return $TRUE
}

haijie1223 发表于 2025-3-10 21:32:47

找了一圈，没搜到这个对象的资料

zbezj 发表于 2025-3-10 22:53:46

haijie1223 发表于 2025-3-10 21:32
找了一圈，没搜到这个对象的资料

这是C语言代码：

#include <windows.h>
#include <objbase.h>
#include <ocidl.h>
#include <stdio.h>
#include "clic.h"

#define BoolToWStr(bVal) ((bVal) ? L"TRUE" : L"FALSE")

BOOL InitializeDigitalLicenseCheck(IEditionUpgradeManager **m_IEditionUpgradeManager) {
    GUID guidEditionUpgradeManager = {
      0x17CCA47D, 0xDAE5, 0x4E4A,
      {0xAC, 0x42, 0xCC, 0x54, 0xE2, 0x8F, 0x33, 0x4A}
    };

    GUID guidIEditionUpgradeManager = {
      0xF2DCB80D, 0x0670, 0x44BC,
      {0x90, 0x02, 0xCD, 0x18, 0x68, 0x87, 0x30, 0xAF}
    };

    if(CoInitializeEx(NULL, COINIT_APARTMENTTHREADED))
      return FALSE;

    if(CoCreateInstance(
      &guidEditionUpgradeManager,
      0,
      CLSCTX_INPROC_SERVER,
      &guidIEditionUpgradeManager,
      (PVOID*)m_IEditionUpgradeManager
    )) {
      return FALSE;
    }

    return TRUE;
}

BOOL PrintStateData() {
    PWSTR pwszStateData = 0;
    UINT cbSize = 0;

    if(SLGetWindowsInformation(
      L"Security-SPP-Action-StateData",
      NULL,
      &cbSize,
      (PBYTE*)&pwszStateData
    )) {
      return FALSE;
    }

    for(INT i = 0; i < (cbSize / 2); i++) {
      if(pwszStateData == L';')
            pwszStateData = L'\n';
    }

    wprintf(L"%ws\n", pwszStateData);

    LocalFree(pwszStateData);
    return TRUE;
}

BOOL PrintLastActivationHRresult() {
    PDWORD pdwLastHResult = 0;
    UINT cbSize = 0;

    if(SLGetWindowsInformation(
      L"Security-SPP-LastWindowsActivationHResult",
      NULL,
      &cbSize,
      (PBYTE*)&pdwLastHResult
    )) {
      return FALSE;
    }

    wprintf(L"LastActivationHResult=0x%08x\n", *pdwLastHResult);

    LocalFree(pdwLastHResult);
    return TRUE;
}

BOOL PrintDigitalLicenseStatus() {
    IEditionUpgradeManager *m_IEditionUpgradeManager;
    DWORD dwReturnCode = 0;
    BOOL bDigitalLicense = FALSE;

    if(!InitializeDigitalLicenseCheck(&m_IEditionUpgradeManager))
      return FALSE;

    if(m_IEditionUpgradeManager->lpVtbl->AcquireModernLicenseForWindows(
      m_IEditionUpgradeManager,
      1,
      &dwReturnCode
    )) {
      return FALSE;
    }

    bDigitalLicense = (dwReturnCode != 1 && dwReturnCode <= INT_MAX);
    wprintf(L"DigitalLicense=%ws\n", BoolToWStr(bDigitalLicense));

    return TRUE;
}

BOOL PrintSubscriptionStatus() {
    SUBSCRIPTIONSTATUS *pStatus;
    DWORD dwSupported = 0;

    if(SLGetWindowsInformationDWORD(L"ConsumeAddonPolicySet", &dwSupported))
      return FALSE;

    wprintf(L"SubscriptionSupportedEdition=%ws\n", BoolToWStr(dwSupported));

    if(ClipGetSubscriptionStatus(&pStatus))
      return FALSE;

    wprintf(L"SubscriptionEnabled=%ws\n", BoolToWStr(pStatus->dwEnabled));

    if(pStatus->dwEnabled == 0) {
      LocalFree(pStatus);
      return TRUE;
    }

    wprintf(L"SubscriptionSku=%d\n", pStatus->dwSku);
    wprintf(L"SubscriptionState=%d\n", pStatus->dwState);

    LocalFree(pStatus);
    return TRUE;
}

BOOL PrintIsWindowsGenuine() {
    DWORD dwGenuine = 0;
    PCWSTR ppwszGenuineStates[] = {
      L"SL_GEN_STATE_IS_GENUINE",
      L"SL_GEN_STATE_INVALID_LICENSE",
      L"SL_GEN_STATE_TAMPERED",
      L"SL_GEN_STATE_OFFLINE",
      L"SL_GEN_STATE_LAST"
    };

    if(SLIsWindowsGenuineLocal(&dwGenuine))
      return FALSE;

    if(dwGenuine < 5) {
      wprintf(L"IsWindowsGenuine=%ws\n", ppwszGenuineStates);
    } else {
      wprintf(L"IsWindowsGenuine=%d\n", dwGenuine);
    }

    return TRUE;
}

int WINAPI wWinMain(
    HINSTANCE hInstance,
    HINSTANCE hPrevInstance,
    PWSTR pCmdLine,
    int nCmdShow
) {
    BOOL bError = FALSE;

    if(!PrintStateData())
      bError = TRUE;

    if(!PrintLastActivationHRresult())
      bError = TRUE;

    if(!PrintDigitalLicenseStatus())
      bError = TRUE;

    if(!PrintSubscriptionStatus())
      bError = TRUE;

    if(!PrintIsWindowsGenuine())
      bError = TRUE;

    exit(bError);
}

haijie1223 发表于 2025-3-11 08:12:45

zbezj 发表于 2025-3-10 22:53
这是C语言代码：

需要完整项目，缺少 "clic.h"

zbezj 发表于 2025-3-11 21:12:35

haijie1223 发表于 2025-3-11 08:12
需要完整项目，缺少 "clic.h"

这是源代码

haijie1223 发表于 2025-3-11 23:41:30

zbezj 发表于 2025-3-11 21:12
这是源代码
如此这般？
#NoTrayIcon
#AutoIt3Wrapper_UseX64 = y
Global Const $CLSD_EditionUpgradeManager = "{17CCA47D-DAE5-4E4A-AC42-CC54E28F334A}"
Global Const $IID_IEditionUpgradeManager = "{F2DCB80D-0670-44BC-9002-CD18688730AF}"
Global Const $TaskList = 'InitializeWindow HRESULT(HWND);' & _
                'UpdateOperatingSystem HRESULT(PTR;DWORD);' & _
                'ShowProductKeyUI HRESULT(DWORD);' & _
                'UpdateOperatingSystemWithParams HRESULT(PTR;BOOL;BOOL;BOOL;BOOL;DWORD);' & _
                'AcquireModernLicenseForWindows HRESULT(DWORD;DWORD*);' & _
                'AcquireModernLicenseWithPreviousId HRESULT(PTR;DWORD*);'
ConsoleWrite(PrintDigitalLicenseStatus() & @CRLF)
Func PrintDigitalLicenseStatus()
        Local $om_IEditionUpgradeManager = ObjCreateInterface($CLSD_EditionUpgradeManager, $IID_IEditionUpgradeManager, $TaskList)
        If Not IsObj($om_IEditionUpgradeManager) Then Return False
        Local $dwReturnCode = 0
        If $om_IEditionUpgradeManager.AcquireModernLicenseForWindows(1, $dwReturnCode) = 0 Then Return $dwReturnCode <> 1 And $dwReturnCode < 2147483647
        Return False
EndFunc   ;==>PrintDigitalLicenseStatus

zbezj 发表于 2025-3-12 20:01:54

haijie1223 发表于 2025-3-11 23:41
如此这般？

执行的结果不对，并且不知道为啥执行上面代码后还会弹出一个系统设置的窗口。这是c代码编译后的exe，它的执行结果是对的

haijie1223 发表于 2025-3-12 21:48:25

zbezj 发表于 2025-3-12 20:01
执行的结果不对，并且不知道为啥执行上面代码后还会弹出一个系统设置的窗口。这是c代码编译后的exe，它的 ...

代码更新了，6楼自己测试

zbezj 发表于 2025-3-12 21:53:30

haijie1223 发表于 2025-3-12 21:48
代码更新了，6楼自己测试

这次好像对了，多谢大佬

6FINGERS 发表于 2025-3-16 18:22:57

发哥还是一如即往的热心
页: [1]
查看完整版本: Powershell代码转AU3的问题