按键精灵_注册大漠错误修正

Set dm = createobject("dm.dmsoft")
//TracePrint dm.ver()
If dm.Ver() <> "3.1233" Then 
Set dm = nothing
set ws=createobject("Wscript.Shell")
ws.run "regsvr32 E:\Downloads\大漠插件3.1233\dm.dll /s"
Set ws = nothing
Delay 1500
TracePrint "注册"
End If 
If len(dm.Ver()) = 0 Then 
    MsgBox "注册未成功，请检查您的系统是否禁用了VBS脚本权限"
    Else 
    MsgBox "注册成功，当前的版本号："&dm.Ver()
End If