'Получить номер версии операционной системы

ver = CreateObject("WScript.Shell").RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentVersion")
msgbox ver

'Определить разрядность операционной системы

Function GetOSBitness()
    On Error Resume Next
    GetOSBitness = "x64"
    If oShell.ExpandEnvironmentStrings("%PROCESSOR_ARCHITECTURE%") = "x86" and oShell.ExpandEnvironmentStrings("%PROCESSOR_ARCHITEW6432%") = "%PROCESSOR_ARCHITEW6432%" then GetOSBitness = "x32"
End Function

'Определить семейство ОС (NT или Vista).

'NT - XP, 2003; Vista - собственно Vista и выше.

Function GetOSFamily()
    On Error Resume Next
    Dim ver: ver = CreateObject("WScript.Shell").RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentVersion")
    GetOSFamily = "Vista": if Left(ver,1) = "5" then GetOSFamily = "NT"
End Function