Windows 정품인증 상태 확인 방법

* 손쉬운 방법 : slmgr.vbs 이용.

How to use the Windows Server License Manager Script - slmgr.vbs

http://www.windowsnetworking.com/articles_tutorials/windows-server-license-manager-script-slmgrvbs.html

slmgr.vbs 내 중요부분

' Used for dli/dlv
private const L_MsgLicenseStatusUnlicensed_1          = "License Status: Unlicensed"
private const L_MsgLicenseStatusLicensed_1            = "License Status: Licensed"

-----------------------------------------------------

    For Each objProduct in GetProductCollection(ProductIsPrimarySkuSelectClause & ", " & _
                            "ProductKeyID, OfflineInstallationId, " & _
                            "ProcessorURL, MachineURL, UseLicenseURL, ProductKeyURL, " & _
                            "GracePeriodRemaining, LicenseStatus, LicenseStatusReason, EvaluationEndDate, " & _
                            "VLRenewalInterval, VLActivationInterval, KeyManagementServiceMachine, " & _
                            "KeyManagementServicePort, DiscoveredKeyManagementServiceMachineName, " & _
                            "DiscoveredKeyManagementServiceMachinePort, KeyManagementServiceProductKeyID," & _
                            "TokenActivationILID, TokenActivationILVID, TokenActivationGrantNumber," & _
                            "TokenActivationCertificateThumbprint, TokenActivationAdditionalInfo, TrustedTime", _
                            EmptyWhereClause)
중략...
            ls = objProduct.LicenseStatus

            If ls = 0 Then
                LineOut GetResource("L_MsgLicenseStatusUnlicensed_1")

            ElseIf ls = 1 Then
                LineOut GetResource("L_MsgLicenseStatusLicensed_1")
-----------------------------------------------------

Function GetProductCollection(strSelect, strWhere)
    Dim colProducts

    On Error Resume Next

    If strWhere = EmptyWhereClause Then
        Set colProducts = g_objWMIService.ExecQuery("SELECT " & strSelect & " FROM " & ProductClass)
        QuitIfError()
    Else
        Set colProducts = g_objWMIService.ExecQuery("SELECT " & strSelect & " FROM " & ProductClass & " WHERE " & strWhere)
        QuitIfError()
        End If

    set GetProductCollection = colProducts   
End Function

--------------------------------------------------------

    'If this is the local computer, set everything and return immediately
    If g_strComputer = "." Then
        Set g_objWMIService = GetObject("winmgmts:\\" & g_strComputer & "\root\cimv2")
        Set g_objRegistry = GetObject("winmgmts:\\" & g_strComputer & "\root\default:StdRegProv")

        If Not g_serviceConnected Then
            g_serviceConnected = True
        End If
        Exit Function
    End If

위 코드의 중요부분에서 C++으로 변환부분 찾아냄.

-----------------------------------------

Connecting to WMI Objects

http://technet.microsoft.com/en-us/library/bb684728.aspx

Making WMI Queries In C++

http://www.codeproject.com/Articles/10539/Making-WMI-Queries-In-C