¿Qué versión de Windows Vista estamos ejecutando?

Existen más de 30 versiones distintas de Windows Vista. Mediante este script podemos saber qué versión estamos ejecutando. El script conecta con el servicio Instrumental de Administración de Windows (WMI) del equipo local y detecta la versión instalada del sistema operativo. También es capaz de determinar la versión de Windows Vista en una máquina remota de la red, si asignamos el nombre de la máquina en la variable strComputer en el encabezado del script.

Copia el siguiente contenido en el Bloc de notas (notepad) y guárdalo con extensión .VBS:


strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * From Win32_OperatingSystem")

For Each objItem in colItems
If Instr(objItem.Caption, "Vista") Then
Select Case objItem.OperatingSystemSKU
Case 0 strVersion = "Undefined."
Case 1 strVersion = "Ultimate Edition."
Case 2 strVersion = "Home Basic Edition."
Case 3 strVersion = "Home Basic Premium Edition."
Case 4 strVersion = "Enterprise Edition."
Case 5 strVersion = "Home Basic N Edition."
Case 6 strVersion = "Business Edition."
Case 7 strVersion = "Standard Server Edition."
Case 8 strVersion = "Datacenter Server Edition."
Case 9 strVersion = "Small Business Server Edition."
Case 10 strVersion = "Enterprise Server Edition."
Case 11 strVersion = "Starter Edition."
Case 12 strVersion = "Datacenter Server Core Edition."
Case 13 strVersion = "Standard Server Core Edition."
Case 14 strVersion = "Enterprise Server Core Edition."
Case 15 strVersion = "Enterprise Server IA64 Edition."
Case 16 strVersion = "Business N Edition."
Case 17 strVersion = "Web Server Edition."
Case 18 strVersion = "Cluster Server Edition."
Case 19 strVersion = "Home Server Edition."
Case 20 strVersion = "Storage Express Server Edition."
Case 21 strVersion = "Storage Standard Server Edition."
Case 22 strVersion = "Storage Workgroup Server Edition."
Case 23 strVersion = "Storage Enterprise Server Edition."
Case 24 strVersion = "Server For Small Business Edition."
Case 25 strVersion = "Small Business Server Premium Edition."
End Select
Wscript.Echo "Este equipo está ejecutando Windows Vista " & strVersion
Else
Wscript.Echo "En este equipo no se está ejecutando Windows Vista."
End If
Next

*
*