Find Serial Key of OS intalled - VBScript

Set SNSet = GetObject("winmgmts:").InstancesOf ("win32_OperatingSystem")

For each SN in SNSet
MsgBox "The serial number for the installed OS is: " & SN.SerialNumber
Next