Udtræk af windows aktiveringstatus til script.

Er mit spørgsmål ikke defineret præcist nok?
Eller er der ingen der kan svare?

Beklager har været lidt inaktiv.
Jeg fandt selv svaret. Man kan trække aktiveringsstatus ud fra WMI.
Hvis nogen skulle være i tvivl, er det et VB Script.
Det eneste der mangles er en funktion til at tjekke hvilken Windows version scriptet køres på.

if bWinXP Then

    Set objWMIService = GetObject("winmgmts:\\.\root\CIMv2")
    Set colItems = objWMIService.ExecQuery( _
    "select * from Win32_WindowsProductActivation",,48)

    For Each objItem in colItems
       
        if (objItem.ActivationRequired=0) then
            sActivationState="Activated"
        End If
    next
Else
    'Hvis det er en Vista eller 7
    Set objWMIService = GetObject("winmgmts:\\.\root\CIMv2")
    Set colItems = objWMIService.ExecQuery( _
    "select * from SoftwareLicensingproduct",,48)

    For Each objItem in colItems
        if objItem.LicenseStatus=1 then
            sActivationState="Activated"
        End If
    next
   
End If