利用程序获取计算机名称及登陆用户名代码,Domino代码库,德仔网

代码语言

代码分类

【Domino】利用程序获取计算机名称及登陆用户名

作者: / 发布于2016/4/13/ 716

Declare Function GetComputerName Lib "kernel32.dll" Alias "GetComputerNameA" (Byval lpBuffer As String,nSize As Integer)As Long
Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA"(Byval t$,Byval ttt$,Byval siz&)As Long
Dim lpBuffer As String
    Dim nSize As Integer
    nSize=48
    Call GetComputerName(lpBuffer,nSize)
    Print tt$
    Dim ttt As String
    Dim t As String
    t=""
    Call WNetGetUser(0,ttt,8)
    Print ttt

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

同语言下

.LotusDomino页面自动注册用户
.多 Notes 文档中附件批量汇总到 Notes 文档中
.多 Notes 文档中附件批量导出到本地系统
.使用lotusscript获得群组中的用户列表_lotus notes
.利用程序增加角色
.关闭计算机
.检验数字域
.利用程序获取计算机名称及登陆用户名
.清理收件夹的代理Code for CleanupInbox agent
.邮箱中显示中文等价名

可能有用的

.LotusDomino页面自动注册用户
.多 Notes 文档中附件批量汇总到 Notes 文档中
.多 Notes 文档中附件批量导出到本地系统
.使用lotusscript获得群组中的用户列表_lotus notes
.利用程序增加角色
.关闭计算机
.检验数字域
.利用程序获取计算机名称及登陆用户名
.清理收件夹的代理Code for CleanupInbox agent
.邮箱中显示中文等价名

贡献的其它代码Label