Utilice VB para determinar si la computadora tiene un sistema operativo Vista
Función de declaración pública GetVersionExA Lib "kernel32" _
(lpVersionInformation As OSVERSIONINFO) Como entero
Tipo público OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion mientras
dwMinorVersion mientras
dwBuildNumber mientras
dwPlatformId mientras '1 = Windows 95.
'2 = Windows NT
szCSDVersion As String * 128
Tipo de fin
Función pública getVersion() As Long
Dim osinfo como OSVERSIONINFO
Dim retvalue como entero
osinfo.dwOSVersionInfoSize = 148
osinfo.szCSDVersion = Space$(128)
retvalue = GetVersionExA(osinfo)
getVersion = osinfo.dwPlatformId
Función final
función Version_ Vista()
si getversion=2 entonces msgbox "NT"
finalizar función