Script Download: QueryWindowsActivationStatus(VBScript).zip
http://gallery.technet.microsoft.com/scriptcenter/Script-to-list-activation-8172c04d

This VBScript sample shows how list Windows 8 activation status on local computer or remote computer.

In a large enterprise environment, it is difficult to examine the activation status of each computer one by one. 

image image
image

You can find more All-In-One Script Framework script samples at http://aka.ms/onescriptingallery