none
解析代码 RRS feed

  • 问题

  • Call Install()

    If ExitCode <> 0 Then
       ExitCode = 1
    End If

    WScript.quit(ExitCode)  'Main process

    Sub Install()
    ShowTitle       'Show Server information
     
    ResetOpenFile_SecurityWarning
    BackupReg()     'Backup requirement registry keys
         g_bWarning = False
         g_OldInstances = GetInstalledInstances() 'Get already installed instances name from registry
      
      If not InitEnv() Then  'Initialize environment parameters
     ExitCode = 1
          ShowSummary
        Exit Sub
      End If

      If not GetInstances() Then 'Get instance name from all of the configuration files
     ExitCode = 2
          ShowSummary
        Exit Sub
      End If
      
      If not CheckInstances() Then 'Remove installed instances from g_Instances table, and keep no installed or need upgrade instances
        ExitCode = 3
     ShowSummary
        Exit Sub
      End If
      
      If not InstallInstances() Then 'Install(or upgrade) instances
        ExitCode = 4
     ShowSummary
        Exit Sub
      End If
      If not ApplyHotFix() Then 'Apply Hotfix, if have
        ExitCode = 5
     ShowSummary
        Exit Sub
      End If
      
      ShowSummary

      ResumeOpenFile_SecurityWarning
    2011年1月18日 7:20

全部回复

  • 请到合适的讨论区讨论问题以获得更好的答复,谢谢


    黄俊贤 Tommy Huang

    http://virtualtom.blog.51cto.com
    一起共同学习和交流,共同进步
    2011年3月25日 9:10
    版主