@H_404_6@
我一直在使用Win32 :: GetOSVersion()perl函数来获取目标的操作系统版本.但是,此API调用仅支持
Windows Server 2012.
http://search.cpan.org/~jdb/Win32-0.52/Win32.pm
OS ID MAJOR MINOR ---------- --- ----- ----- Win32s 0 - - Windows 95 1 4 0 Windows 98 1 4 10 Windows Me 1 4 90 Windows NT 3.51 2 3 51 Windows NT 4 2 4 0 Windows 2000 2 5 0 Windows XP 2 5 1 Windows Server 2003 2 5 2 Windows Server 2003 R2 2 5 2 Windows Home Server 2 5 2 Windows Vista 2 6 0 Windows Server 2008 2 6 0 Windows 7 2 6 1 Windows Server 2008 R2 2 6 1 Windows 8 2 6 2 Windows Server 2012 2 6 2
解决方法
还有一些其他方法可以获取原始数据,然后您可以解析这些数据以适合您的应用程序,例如：
#!/usr/bin/perl use strict; use warnings; my $ver = `ver`; print "output of ver command: $ver\n"; my $reg = `reg query "HKLM\\Software\\Microsoft\\Windows NT\\CurrentVersion" /v "ProductName"`; # alternatively query for 'CurrentVersion' rather than 'ProductName' above print "output of registry query: $reg\n";