Определение версии операционной системы Windows в VBScript

[Sparkman]

Всем доброго времени суток.
Так как раздела для VBScript нет (да и вопросов по нему мало), пишу здесь.
Вопрос в теме - как узнать версию операционной системы семейства Windows.
В частности интересует переход: 2000 - XP.

В инетрнетах нашел следующее решение:

		Dim strComputer, oWMIService, colOSInfo, oOSProperty, strCaption, strOSFamily
		strComputer = "."
		Set oWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
		Set colOSInfo = oWMIService.ExecQuery("Select * from Win32_OperatingSystem")
		'I hate looping through just to get one property. But dunno another way!
		For Each oOSProperty in colOSInfo 
		  strCaption = oOSProperty.Caption 
		Next
		If InStr(1,strCaption, "Vista", vbTextCompare) Then strOSFamily = "Vista"
		If InStr(1,strCaption, "2008", vbTextCompare) Then strOSFamily = "2008"
		If InStr(1,strCaption, "XP", vbTextCompare) Then strOSFamily = "XP"
		If InStr(1,strCaption, "2003", vbTextCompare) Then strOSFamily = "2003"
		If InStr(1,strCaption, "2000", vbTextCompare) Then strOSFamily = "2000"
		If strOSFamily = "" Then 
		    msgbox "No known OS found. (Script can detect Windows 2000, 2003, XP, Vista, 2008.)" 
		Else 
		    msgbox "OS Family = " & strOSFamily
		End If

Скрипт работает, но только, по-моему, определять версию ОС по caption не вполне корректно.
Может у кого есть другие более верные решения?