' List Windows Product Activation Status
 
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
Set colWPA = objWMIService.ExecQuery _
    ("Select * from Win32_WindowsProductActivation")
 
For Each objWPA in colWPA
    Wscript.Echo "Activation Required: " & objWPA.ActivationRequired
    Wscript.Echo "Description: " & objWPA.Description
    Wscript.Echo "Product ID: " & objWPA.ProductID
    Wscript.Echo "Remaining Evaluation Period: " & _
        objWPA.RemainingEvaluationPeriod
    Wscript.Echo "Remaining Grace Period: " & objWPA.RemainingGracePeriod
    Wscript.Echo "Server Name: " & objWPA.ServerName
Next

JyBMaXN0IFdpbmRvd3MgUHJvZHVjdCBBY3RpdmF0aW9uIFN0YXR1cwoKCnN0ckNvbXB1dGVyID0gIi4iClNldCBvYmpXTUlTZXJ2aWNlID0gR2V0T2JqZWN0KCJ3aW5tZ210czoiIF8KICAgICYgIntpbXBlcnNvbmF0aW9uTGV2ZWw9aW1wZXJzb25hdGV9IVxcIiAmIHN0ckNvbXB1dGVyICYgIlxyb290XGNpbXYyIikKClNldCBjb2xXUEEgPSBvYmpXTUlTZXJ2aWNlLkV4ZWNRdWVyeSBfCiAgICAoIlNlbGVjdCAqIGZyb20gV2luMzJfV2luZG93c1Byb2R1Y3RBY3RpdmF0aW9uIikKCkZvciBFYWNoIG9ialdQQSBpbiBjb2xXUEEKICAgIFdzY3JpcHQuRWNobyAiQWN0aXZhdGlvbiBSZXF1aXJlZDogIiAmIG9ialdQQS5BY3RpdmF0aW9uUmVxdWlyZWQKICAgIFdzY3JpcHQuRWNobyAiRGVzY3JpcHRpb246ICIgJiBvYmpXUEEuRGVzY3JpcHRpb24KICAgIFdzY3JpcHQuRWNobyAiUHJvZHVjdCBJRDogIiAmIG9ialdQQS5Qcm9kdWN0SUQKICAgIFdzY3JpcHQuRWNobyAiUmVtYWluaW5nIEV2YWx1YXRpb24gUGVyaW9kOiAiICYgXwogICAgICAgIG9ialdQQS5SZW1haW5pbmdFdmFsdWF0aW9uUGVyaW9kCiAgICBXc2NyaXB0LkVjaG8gIlJlbWFpbmluZyBHcmFjZSBQZXJpb2Q6ICIgJiBvYmpXUEEuUmVtYWluaW5nR3JhY2VQZXJpb2QKICAgIFdzY3JpcHQuRWNobyAiU2VydmVyIE5hbWU6ICIgJiBvYmpXUEEuU2VydmVyTmFtZQpOZXh0