You have to read the version information from the windows registry
Public Const HKEY_LOCAL_MACHINE = &H80000002
Sub VersionValue
Dim sVersion as String
Globalscope.BasicLibraries.LoadLibrary("ImportWizard")
OpenRegKey(HKEY_LOCAL_MACHINE,"Software\\Microsoft\\Windows\\CurrentVersion\\")
sVersion = _ QueryValue(HKEY_LOCAL_MACHINE,"Software\\Microsoft\\Windows\\CurrentVersion\\","ProductName")
If sVersion <> "" Then
Print sVersion
Else
OpenRegKey(HKEY_LOCAL_MACHINE,"SOFTWARE\\Microsoft\\Windows_ NT\\CurrentVersion\\")
sVersion = QueryValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Microsoft\\Windows_ NT\\CurrentVersion","ProductName")
Print sVersion
EndIf
End Sub