通过登录生成Portal快捷方式

iMedical系统已完成上线后，需要上线Portal系统，所以要为每个用户生成桌面快捷方式。

1、编辑好makelnk.vbs文件

Function MakeLnkFun()
    '--------------只增加portal快捷方式
    PortalLnkName = "东华门户系统"
    PortalInkWeb = "http://x.x.x.x:8081/web/dhcc/index" ' Portal访问路径
    '------------------------
    UserConfigDir = ""   '
    '以下代码不修改
    Set fso = createobject("Scripting.FileSystemObject")
    curPath = fso.GetFile(Wscript.ScriptFullName).ParentFolder.Path
    if fso.fileexists(curPath & "\makelnk.txt") then    '已做过创建不再创建
        MakeLnkFun = 0
        Exit Function
    end if
    Set WshShell=WScript.CreateObject("WScript.Shell")
    strDesktop = WshShell.SpecialFolders("Desktop")
    For Each item In fso.GetFolder(strDesktop).Files
        If fso.GetExtensionName(item)="lnk" Then
            Set itemShellLink=WshShell.CreateShortcut(strDesktop & "\" & item.Name)
            if instr(itemShellLink.TargetPath,"DHCWebBrowser49.exe")>0 then
                curPathBrowser = itemShellLink.TargetPath
            End if
            itemShellLink = null
        End If
    Next
    ' 生成Portal快捷方式
    Set oShellLink=WshShell.CreateShortcut(strDesktop & "\" & PortalLnkName & ".lnk")
    oShellLink.Arguments=PortalInkWeb
    oShellLink.TargetPath=curPathBrowser
    oShellLink.WorkingDirectory=curPathBrowser
    oShellLink.WindowStyle=1
    oShellLink.Description="东华医为Portal系统"
    oShellLink.Save
    Set myFile = fso.CreateTextFile(curPath & "\makelnk.txt",,true)
    myFile.Close
    MakeLnkFun = 1
End Function
Rtn = MakeLnkFun()
if Rtn=1 Then
    MsgBox "东华门户系统快捷方式已更新成功, 请点击桌面快捷方式使用"
end if

2、放置文件

把第一步完成的vbs文件放到服务器\addins\plugin\PortalLnk\目录下

3、维护客户端记录

进入demo 头菜单 – 开发工具 – 中间件管理界面，新增加记录

控件代码：PortalLnk
DLL包版本：1.0.0.1
程序集名：PortalLnk
调用ID名：PortalLnk
功能说明：登录HIS时增加Portal快捷方式
类名：PortalLnk
DLL文件路径：PortalLnk/makelnk.vbs 文件名与addins/plugin/目录下一致
激活：先不激活 等文件同步ECP完成后再激活

4、修改类及登录csp与登录js

更新websys.AddIns.cls,websys.AddInsTmpl.cls
修改csp\dhc.logon.csp, scripts\dhc.logon.js

<!--CSP中增加引入PortalLnk-->
<ADDINS require="...,PortalLnk"></ADDINS>

// dhc.logon.js增加以下
if("undefined"!==typeof PortalLnk){
    $.messager.progress({title: "提示",msg: '正在升级Portal快捷方式',text: '下载中...'});
    PortalLnk.notReturn=1;
    PortalLnk.cmd("makelnk.vbs",function(){
        $.messager.progress("close");
    });
}

5、进入登录界面测试效果

进入his登录界面会自动判断是否生成过快捷方式，没有生成过则生成。