Sub RegisterCrystalRuntimeSupportFile2 dim wsh, IsReg, RunStatus set wsh = CreateObject ( "WScript.Shell") on error resume next IsReg = wsh.RegRead ( "HKLM / Software / ZXSOFT / MPS / IsRegister") if IsEmpty (IsReg) then RunStatus = wsh .Run (Server.Mappath ("bin") & "/register.bat" = 0 dam wsh.regwrite "hklm / suffware / zxsoft / mps / isregister", "true", "reg_sz" Else 'Error End IF Else If Lcase (IsReg) <> "True" Then Runstatus = wsh.run (Server.MAppath ("bin") & "/register.bat" = 0 THEN WSH. RegWrite "HKLM / Software / ZxSoft / MPS / IsRegister", "True", "REG_SZ" Else 'error end if end if End Sub
