nulla di fatto....


ho scritto così....


code
---------------------
Private Const VER_PLATFORM_WIN32s = 0
Private Const VER_PLATFORM_WIN32_WINDOWS = 1
Private Const VER_PLATFORM_WIN32_NT = 2
Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128 ' Stringa di manutenzione utilizzata dai servizi di supporto tecnico
End Type

'per il sistema operativo |

Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long 'per sapere il sistema operativo


inserito in una routine
'per il sistema operativo -->
Dim PlatformName As String, WindowsVersion As String, BuildVersion As String

Call SysVersions32(PlatformName, WindowsVersion, BuildVersion)

Text1.Text = PlatformName
Text2.Text = WindowsVersion
Text3.Text = BuildVersion
'per il sistema operativo |||

-----------------



errore è il seguente
la variabile platformname
ha come valore window nt
mentre io ho un sistema operativo
windows 2000

forse platformname indica il server !!!