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.
Step 1: On the Start screen, type cmd. Press and hold or right-click Command Prompt, and then tap or click Run as administrator.
Step 2: Run this VBScript together with cscript in the Windows Command Console. Type the path of the script at the command prompt, as follows:

Step 3: When the script runs successfully, you will receive a message that resembles the following.

Here are some code snippets for your references. To get the complete script sample, please click the download button at the beginning of this page.
Dim strPath,objExecObject
WScript.StdOut.Write("Please type the path of custom refresh image you want to save: ")
strPath = WScript.StdIn.ReadLine()
Dim strPath,objExecObject WScript.StdOut.Write("Please type the path of custom refresh image you want to save: ") strPath = WScript.StdIn.ReadLine()
Windows 8