vba에서 윈도우버전 알아내는 법...펌

Sub os_version_know()
Dim osVer As String
osVer = Application.OperatingSystem
Debug.Print osVer
a = Split(osVer)
Select Case a(3)
Case "6.01": sr = "windows 7"
Case "6.00": sr = "windows vista"
Case "5.01": sr = "windows xp"
End Select
MsgBox "current computer OS version is   " & sr
End Sub

Sub test()
MsgBox Application.OperatingSystem
End Sub

 

5.0.xxxx : 윈도우 2000
5.1.xxxx : 윈도우 XP
5.2.xxxx : 윈도우 서버 2003
6.0.xxxx : 윈도우 비스타 (윈도우 서버 2008)
6.1.xxxx : 윈도우 7 (윈도우 서버 2008 R2)
6.2.xxxx : 윈도우 8 (윈도우 서버 2012)