250 Part IV: Classes
DisplayWPAStatus.vbs
strComputer = "."
wmiNS = "\root\cimv2"
wmiQuery = "Select * from Win32_WindowsProductActivation"
Set objWMIService = GetObject("winmgmts:\\" & strComputer & wmiNS)
Set colItems = objWMIService.ExecQuery(wmiQuery)
For Each objItem in colItems
Wscript.Echo "ActivationRequired:
" & objItem.ActivationRequired
Wscript.Echo "IsNotificationOn: " & objItem.IsNotificationOn
Wscript.Echo "ProductID: " & objItem.ProductID
Wscript.Echo "RemainingEvaluationPeriod: " & objItem.RemainingEvaluationPeriod
Wscript.Echo "RemainingGracePeriod: " & objItem.RemainingGracePeriod
Wscript.Echo "ServerName: " & objItem.ServerName
Next
Summary
In this chapter, we looked at the operating system classes. Many classes and ...