home *** CD-ROM | disk | FTP | other *** search
/ PC World 2003 January / PCWorld_2003-01_cd.bin / Akce / Program / Millennium6.msi / Binary.vbsCheck.C7B142CC_E86A_4FE2_BBF0_20116E3E407B < prev    next >
Text File  |  2002-11-28  |  2KB  |  63 lines
  1. Session.Property("INSTALL_MDAC")="0"
  2. Session.Property("OS_NOTSUPPORTED")="0"
  3.  
  4. 'Minimum Required Configuration for MDAC 2.6 install
  5. '98 with Y2K update2 and IE 4.01SP2 or later
  6. '98 SE
  7. '95
  8. 'Me
  9. 'NT4 SP5(or greater) and IE 4.01 SP2 or later
  10. '2K
  11.  
  12.  
  13. Dim vVerNT, vVer9x, vWindowsBuild, vSPLevel, vY2kUpd, vIEInstalled
  14.  
  15. vVerNT = Session.Property("VersionNT") 
  16. vVer9x = Session.Property("Version9X") 
  17. vWindowsBuild = Session.Property("WindowsBuild") 
  18. vSPLevel = Session.Property("ServicePackLevel") 
  19. vY2kUpd = Session.Property("Y2K_UPDATE2_98") 
  20. vIEInstalled = Session.Property("IEINSTALLED") 
  21.  
  22. Dim bIEInstalled
  23.  
  24. If (Len(vIEInstalled) > 2) Then
  25. bIEInstalled = True
  26. else
  27. bIEInstalled = False
  28. End if
  29.  
  30. Dim bY2kUpdInstalled
  31.  
  32. If (Len(vY2kUpd) > 2) Then
  33. bY2kUpdInstalled = True
  34. else
  35. bY2kUpdInstalled = False
  36. End if
  37.  
  38. If ( (vVerNT = "500") Or (vVer9x >= "490") Or (vVer9x = "410" And vWindowsBuild = "2222") Or (vVerNT >= "400" And vSPLevel >= "5" And bIEInstalled) Or (vVer9x = "410" And vWindowsBuild = "1998" And bY2kUpdInstalled And bIEInstalled) Or (vVer9x = "400" And bY2kUpdInstalled And bIEInstalled) ) Then
  39.  
  40. Session.Property("INSTALL_MDAC")="1"
  41.  
  42. ElseIf (vVerNT = "501") Then
  43. ' If it is XP do not install
  44. Else
  45.  
  46. Session.Property("OS_NOTSUPPORTED")="1"
  47. End If
  48.  
  49. Dim vAlwyasInstall, vVerInstalled, vSetupVer
  50.  
  51. vAlwyasInstall = Session.Property("ALWAYS_INSTALL_MDAC") 
  52. vVerInstalled = Session.Property("MDACVERINSTALLED") 
  53. vSetupVer = Session.Property("MDAC_SETUP_VER") 
  54.  
  55. 'check to see if MDAC 2.7 is already installed
  56.  
  57. If (Session.Property("INSTALL_MDAC") = "1") Then
  58.  If (vAlwyasInstall <> "1") Then
  59.   If (vVerInstalled >= vSetupVer) Then
  60.    Session.Property("INSTALL_MDAC") = "0"
  61.   End If
  62.  End If
  63. End If