I am trying to get a database full of PID's.
If anyone feel like helping me out run my UDF and post your result if it's not a already in there.
 Code:
Function PIDCheck
  $pid = Right(ReadValue('HKLM\SYSTEM\Setup\Pid','Pid'),3)
  Select
    Case $pid = "000"
      $PidCheck = "Other (includes some retail, upgrade and evaluation versions)"
    Case $pid = "007"
      $PidCheck = "Retail"
    Case $pid = "009"
      $PidCheck = "Not for resale - bundle"
    Case $pid = "011"
      $PidCheck = "Upgrade (XP Home?)"
    Case $pid = "OEM"
      $PidCheck = "OEM (This does not specify royalty or normal OEM)"
    Case $pid = "271"
      $PidCheck = "Volume License"
    Case $pid = "296"
      $PidCheck = "MSDN"
    Case $pid = "308"
      $PidCheck = "Microsoft Action Pack subscription"
    Case $pid = "347"
      $PidCheck = "Microsoft Action Pack subscription"
    Case $pid = "335"
      $PidCheck = "Retail"
    Case $pid => "640" AND $pid <= "652"
      $PidCheck = "Volume License (usually generated via 270 CID in setupp.ini)"
    Case $pid = "699"
      $PidCheck = "Volume Windows XP Tablet Edition"
    Case $pid = "071"
      $PidCheck = "Unknown"
    Case 1
      $PidCheck = "Your PID is new, please post it: " + $pid
  EndSelect
EndFunction

? PIDCheck