http://qs1969.pair.com?node_id=836260


in reply to How to determine Windows Edition

You can also try my Sys::Info module for a more detailed information:
use Sys::Info; print Sys::Info->os->name( edition => 1, long => 1 );
Sample output: Windows Vista Home Premium Edition Service Pack 2 build 6002