ASP中对注册表的操作

最新推荐文章于 2018-11-06 17:45:39 发布

ylhyh

最新推荐文章于 2018-11-06 17:45:39 发布

阅读量1k

点赞数

文章标签： asp

本文链接：https://blog.csdn.net/ylhyh/article/details/198239

版权

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,true)
        if RunStatus=0 then
            wsh.Regwrite "HKLM/Software/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,true)
        if RunStatus=0 then
             wsh.Regwrite "HKLM/Software/ZXSOFT/MPS/IsRegister","True","REG_SZ"
        else
             'Error
        end if
     end if
End Sub