vb获得系统数

Question

我的电脑安了三个系统，XP是安装在C盘的，后来又在E盘安了win7，在F盘安了vista。我现在想写一个vb的小程序，可以在三种系统下都能得到正确的系统数，也就是三个。
我查看了C盘下面的boot.ini，里边只有XP系统，而且win7和vista的系统启动项都不是靠boot.ini来实现的。
请问，我怎么做能够得到正确的系统数？
最好能有源码提示

Answer 1

Private Sub Command1_Click()
Dim buf As String, msg As String, idx As Integer
idx = 1
Do
    buf = Environ(idx)
    msg = msg & buf & vbCrLf
    idx = idx + 1
Loop Until buf = ""MsgBox msgEnd Sub

Answer 2

楼上的貌似没听懂我的意思，我要的不是系统变量，要的是操作系统的信息，比如XP、vista等等