[DmitriiV]

Вариант для текущего компьютера средствами WMI:

Код:

Set objCollection = GetObject("winmgmts:\\.\root\cimv2").ExecQuery("SELECT Name FROM Win32_OperatingSystem")
For Each objItem In objCollection
    strOS = objItem.Name
Next
If InStr(1, strOS, " Vista ", vbTextCompare) > 0 Or InStr(strOS, " 7 ") > 0 Then
    WScript.Echo "Выполняем действие для Vista/7."
Else
    WScript.Echo "Выполняем действие для прочих версий."
End If

Возможны и другие варианты, но здесь надо знать больше подробностей об условиях, в которых решается задача (и, может быть, о цели её решения).