@@@@如何控制某人能进某域！！

[win32c]

控制某人能进某域如何用代码实现，我是这样实现的！
\'在Script中用程序控制谁能进入某个域：
Dim session As New notessession
\'得到的值是一组列表，下面这个公式也是一种在程序中取当前用户名的方法
user=Evaluate(|@name([Abbreviate];@username)|)　
Dim ws As New notesuiworkspace
Dim uidoc As notesuidocument
Set uidoc=ws.currentdocument
tempuser=uidoc.fieldgettext(\"测试1\")
author=uidoc.fieldgettext(\"author\")
If((tempuser=\"\") Or (tempuser=user(0)) Or (user(0)=author))Then
Msgbox \"ok，你可以进入！\"
Else
Msgbox \"no,你不可以进入\"
Call uidoc.gotofield(\"out\")//不过这，如果我进入别的域如何实现！
End If

[win32c]

是C/S的！

[d2chaofan]

BS不能用吧？
用区段不简单些吗