Notes 免输入用户密码登入脚本

文件命令以*.vbs
脚本如下：（修改脚本中id and password即可）

password = "123456" 'Notes密码
name = "lkf" '名字拼音
id = "123456" '工号

set ws = createobject("wscript.shell")

if Not ws.appactivate(name) then

' ws.appactivate id
' ws.appactivate "Work"
' ws.appactivate "Notes"
' ws.appactivate "Logout"


ws.sendkeys "%"
if Not ws.appactivate("Lotus Notes") then
' ws.popup "No",1
createobject("InternetExplorer.application").navigate("mailto:")
end if

wscript.sleep 50
' delaysendkeys "{enter}"
delaysendkeys password
delaysendkeys "{enter}"
end if

function delaysendkeys(s)
ws.sendkeys s
wscript.sleep 50
end function