oSysInfo = CREATEOBJECT("SysInfo.sysinfo") DO CASE CASE oSysInfo.OSPlatform = 0 WAIT WINDOW [Win32s] CASE oSysInfo.OSPlatform = 1 WAIT WINDOW [Windows 95/98/ME] CASE oSysInfo.OSPlatform = 2 DO CASE CASE oSysInfo.OSVersion=5 WAIT WINDOW [Windows 2000] CASE oSysInfo.OSVersion=5.01 WAIT WINDOW [Windows XP] CASE oSysInfo.OSVersion<5 WAIT WINDOW [Windows NT] ENDCASE ENDCASE