2009/10/11
Perlで書く 2009.10.11 Vol.244
===================================================================== Perlで書く 2009.10.11 Vol.244 [WAZA]WindowsのOSバージョンの取得 http://www2u.biglobe.ne.jp/~MAS/perl/ ===================================================================== ●WindowsのOSバージョンの取得 Win32モジュールのGetOSVersionで取得できます。 --------------------------------------------------------------------- use strict; use warnings; use Win32; my ($string, $major, $minor, $build, $id, $spmajor, $spminor, $suitemask, $producttype) = Win32::GetOSVersion(); print "Major: $major", "\n"; print "Minor: $minor", "\n"; print "Build: $build", "\n"; print "SP : $spmajor", "\n"; print ['', 'Workstation', 'Domaincontroller', 'Server']->[$producttype], "\n"; --------------------------------------------------------------------- ●関連項目 ・OS名の取得 http://www2u.biglobe.ne.jp/~MAS/perl/waza/osname.html ・WindowsのOS名の取得 http://www2u.biglobe.ne.jp/~MAS/perl/waza/winosname.html ===================================================================== ■雑記 特にありません。 ===================================================================== Perlで書く(マガジンID：0000109251) 配信数：836 発行者：MAS 本メールマガジンに関するご意見・お問い合わせは t-masuda@mvd.biglobe.ne.jp までお寄せ下さい。 解除 http://www2u.biglobe.ne.jp/~MAS/perl/magazine.html 検索 http://www2u.biglobe.ne.jp/~MAS/perl/search/index.html バックナンバー http://archive.mag2.com/0000109251/index.html RSS http://archive.mag2.com/0000109251/rss10.xml 本メールマガジンは「まぐまぐ」 http://www.mag2.com/ を利用して発行 しています。 =====================================================================
