JS中使用COM访问Louts组件

从CSND上找到这么篇东东：

 

1.  总体思路：
3. 实现步骤：
4. 1，客户端注册NOTES COM控件。（regsvr32 c:/lotus/notes/DOMOBJ.TLB）regsvr32  c:/lotus/notes/nlsxbe.dll
5. 2，在公文数据库中，保存一些已经定制好的公文模板。已供新建公文时使用。
6. 3，表单上加入VBScript将附件从服务器拆离到本地，然后起用WORD。(Word的宏安全性设为中)
7. 4，公文模板中，WORD的文档的退出事件中加入VBA代码，实现文件上传到服务器。
9. 注：为避免启动COM时出现提示口令输入框，可以通过API制作一个DLL来避开。(参考：API例子的)
11. 相关代码：
12.  表单上的VBScript代码：
13. <SCRIPT LANGUAGE="VBScript">
14. Sub Button1_OnClick
15.     dim s, dir, db, doc, eo, no, word, worddoc
16.     Set s = CreateObject("Lotus.NotesSession")
17.     Call s.Initialize
18.     Set db = s.GetDatabase("sh_server","intranet/webtemp.nsf")
19.     Set doc = db.getDocumentByUNID("30C11B03D279463548256C7D000DDD74")
20.     Set eo = doc.getAttachment("普通公文.doc")
21.     Call eo.ExtractFile( "C:/Temp/test.doc")
22.   'Create the Word object:
23.   Set word = CreateObject("Word.Application") 'Create Word object
24.   Call word.documents.open( "C:/Temp/test.doc" ) 
25.   Set worddoc = word.activedocument 'Get a handle for the active document
26.   word.visible = True
27.     'Call eo.remove
28.     'Set ritem = doc.getFirstItem("rtfAttachment")
29.     'Set no = ritem.EmbedObject(1454, "" , "C:/Temp/test.doc" )
30.     'Call doc.save(True,False)administrator
31.     ad
32.     'MsgBox db.filename + " & " + db.server,, "Databases on " + db.server
33. End Sub
34. </SCRIPT>
35.  表单上的按钮代码：
36. <INPUT NAME="Button1" TYPE="BUTTON" VALUE="编辑正文">
39. Word模板上的VBA代码：
40. Private Sub Document_Close()
41.     ActiveDocument.Save
42.     Dim s, dir, db, doc, eo, no, word, worddoc
43.     Set s = CreateObject("Lotus.NotesSession")
44.     Call s.Initialize
45.     Set db = s.GetDatabase("sh_server", "intranet/webtemp.nsf")
46.     Set doc = db.GetDocumentByUNID("C47E90193C0E4D3248256C780006A73E")
47.     Set eo = doc.GetAttachment("普通公文.doc")
48.     Call eo.Remove
49.     Set ritem = doc.GetFirstItem("rtfAttachment")
50.     Set no = ritem.EmbedObject(1454, "", "C:/Temp/test.doc")
51.     Call doc.Save(True, False)
52.     MsgBox db.FileName + " 文件已上传至服务器！& " + db.Server, , "Databases on " + db.Server
53. End Sub

其他的都实现了，就是那个“提示口令输入框”还没能实现，现在是将密码直接写在JS中，查看源代码就可以看见了，安全性太差了。考虑用cookie来实现吧，还是不安全。这个DLL到底怎么写呐