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