How can I determine what the avtivation status of a pc is? I need to know which of the following describes a particular computer:

Needs Activation

Activated

Exempt (VLK)

Exempt (Royalty OEM)

I can determine if a computer was activated by checking for the existance of WPA.BAK but this doesn't mean that it is still activated.

I can determine if a volume license was used by checking for the channel ID of 640 in the PID

Try this VBS script

Save As WindowsActivationStatus.Vbs

strComputer = "."
Dim ActivationReport
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
  Set colWPA = objWMIService.ExecQuery("Select * from Win32_WindowsProductActivation")
	For Each objWPA in colWPA
	 ActivationReport = ("Activation Required : " & objWPA.ActivationRequired &_
	 vbCrLf & "Description : " & objWPA.Description & vbCrLf & "Product ID : " & objWPA.ProductID &_
	 vbCrLf & "Remaining Evaluation Period : " & objWPA.RemainingEvaluationPeriod &_
	 vbCrLf & "Remaining Grace Period : " & objWPA.RemainingGracePeriod & vbCrLf & "Server Name: " & objWPA.ServerName)
	Next
  CreateObject("Wscript.Shell").Popup Space(5) & "Windows Activation Status" & vbCrLf & ActivationReport,10,"Status", 0 + 32

That's neat.

That text must be copied and pasted into a Notepad document. Not a wordprocessor document.

It worked ok for me.

Thanks,

Andromeda43