home *** CD-ROM | disk | FTP | other *** search
- Function OnErrorClose()
- '{
- Dim nStatus, sRegWizDir
-
- nStatus = FallBackToFactorySettings()
-
- If REGWIZ_ONREBOOT = nStatus Or REGWIZ_NEXTRUN = nStatus Then
- '{
- sRegWizDir = gobjOS.GetObjectModuleFile (CLSID_MCREGWIZ_EXE)
- If "" <> sRegWizDir Then
- '{
- sRegWizDir = gobjFS.GetShortPathName (sRegWizDir)
-
- If gobjFS.IsFile (sRegWizDir) Then
- '{
- Call gobjReg.RegSetValue ( REGKEY_RUN, REGKEY_MCREGWIZ, CStr(sRegWizDir) )
- '}
- End If
- '}
- End If
- '}
- End If
-
- Call SetWizardStatus (nStatus)
-
- Call LogDetails ( "Error Page : call close window." )
- Call CloseWindow()
- '}
- End Function
-
- Function OnErrorBodyLoad()
- '{
- Dim nErrorCode
-
- Call SetExternalObject(gobjExternal)
- Call SetWizardStatus(REGWIZ_ONREBOOT)
-
- nErrorCode = Clng(gobjExternal.GetParam ( PROP_ERROR_CODE ))
-
- Select Case nErrorCode
- '{
- Case MCINST_ADMIN_REQUIRED
- divErrorMsg.innerHTML = ERR_ADMIN_RIGHTS_REQD
- '}
- End Select
- '}
- End Function