home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2007 November / PCWNOV07.iso / shared / regwiz.cab / RegWizUI.dll / HTML / ERROR.VBS < prev    next >
Encoding:
Text File  |  2005-07-13  |  975 b   |  47 lines

  1. Function OnErrorClose()
  2. '{
  3.     Dim nStatus, sRegWizDir
  4.  
  5.     nStatus = FallBackToFactorySettings()
  6.  
  7.     If REGWIZ_ONREBOOT = nStatus Or REGWIZ_NEXTRUN = nStatus Then
  8.     '{
  9.         sRegWizDir = gobjOS.GetObjectModuleFile (CLSID_MCREGWIZ_EXE)
  10.         If "" <> sRegWizDir Then
  11.         '{
  12.             sRegWizDir = gobjFS.GetShortPathName (sRegWizDir)
  13.             
  14.             If gobjFS.IsFile (sRegWizDir) Then
  15.             '{
  16.                 Call gobjReg.RegSetValue ( REGKEY_RUN, REGKEY_MCREGWIZ, CStr(sRegWizDir) )
  17.             '}
  18.             End If
  19.         '}
  20.         End If
  21.     '}
  22.     End If
  23.  
  24.     Call SetWizardStatus (nStatus)
  25.     
  26.     Call LogDetails ( "Error Page : call close window." )
  27.     Call CloseWindow()
  28. '}
  29. End Function
  30.  
  31. Function OnErrorBodyLoad()
  32. '{
  33.     Dim nErrorCode
  34.  
  35.     Call SetExternalObject(gobjExternal)
  36.     Call SetWizardStatus(REGWIZ_ONREBOOT)
  37.  
  38.     nErrorCode = Clng(gobjExternal.GetParam ( PROP_ERROR_CODE ))
  39.  
  40.     Select Case nErrorCode
  41.     '{
  42.         Case MCINST_ADMIN_REQUIRED
  43.             divErrorMsg.innerHTML = ERR_ADMIN_RIGHTS_REQD
  44.     '}
  45.     End Select
  46. '}
  47. End Function