excel 插入计算机用户名,excel中获取计算机登陆的用户名

Sub NetworkInfo()

Dim wshnetwork, info As String

Set wshnetwork = CreateObject("WScript.Network") '获取当前电脑用户信息'

info = "Domain = " & wshnetwork.UserDomain '用户域信息'

info = info & Chr(10) & "Computer Name = " & wshnetwork.computername 'result is UpperCase '用户计算机名'

info = info & Chr(10) & "User Name = " & wshnetwork.UserName '用户名'

MsgBox info

End Sub

Public Function GetDisplayName()As String

Set objDomain = CreateObject("ADSystemInfo")

Set objUser = GetObject("LDAP://" & objDomain.UserName)

GetDisplayName = objUser.DisplayNameEnd Function

EndFunction

excel 插入计算机用户名,excel中获取计算机登陆的用户名相关推荐

计算机毕业论文2500,中职计算机论文范文关于中职计算机毕业论文模板范文2500字...
<任务驱动教学法在中职计算机基础课程教学中的应用分析> 该文是关于中职计算机相关论文如何写与驱动教学法和计算机和基础和课程和教学和分析相关毕业论文模板范文. 摘要:随着科学技术的发展,我 ...
中职计算机英语视频,中职计算机微课视频一等奖(中职英语微课)
<微课在中职<计算机应用基础>课程中的应用本文是一篇关于计算机应用论文和<计算机应用基础>写作技巧的范文,也是一篇关于微课和中等职业学校论文的范文.[摘要]本文以中职学校 ...
中一级计算机word2010测试题,中一级计算机WORD2010测试题(经修改)
1 1 中文 Word2010 是 A 字处理软件 B 系统软件 C 硬件 D 操作系统 2 在 Word2010 文档窗口进行最小化操作 A 会将指定的文档关闭 B 文档的窗口和文档都没关闭 C 会 ...
中职计算机教改方案,中职计算机教改论文
中职教学在我国的教育史上曾经占有着不容忽视的地位,相较于其他教育教学,中职教育在教学过程中更注重对学生今后就业能力的培养,因此曾深受广大学生的追捧.下面是小编为大家整理的中职计算机教改论文,供大家参考 ...
计算机知识枯燥乏味,中职计算机基础知识研究
版权声明:以上文章中所选用的图片及文字来源于网络以及用户投稿,由于未联系到知识产权人或未发现有关知识产权的登记,如有知识产权人并不愿意我们使用,如果有侵权请立即联系:55525090@qq.com,我 ...
中职计算机专业课导入,中职计算机课堂导入的探索
摘要:"课堂导入"是课堂活动中第一个重要的教学环节,其中心任务主要在于激发学生的学习兴趣和情感,产生学习动机,把学生引入到课堂情境中.它是整个教学过程的开端,起着提纲挈领的作用. ...
职业教育计算机教育美育,中职计算机职业素质教育
摘要: 社会在不断进步发展,当下日益激烈的职业竞争的实质是知识和素质的竞争.面对各类矛盾和不利的因素,教师们应该整合教学的现状,改进教学方法,分析当下的职业形式,努力提高学生的基本素质,使其与用人单位 ...
中职语文与计算机专业教学,中职计算机教案
计算机实作课也叫上机课,就是在学生学习和掌握了一定的理论基础之后,或是在观看了教师的教学演示之后,自己在计算机上亲手操作,真正做到能懂会用.但众所周知,中等职业学校的学生(以下简称中职生)的学习积极性 ...
中一级计算机word2010测试题,中一级计算机WORD2010测试题(经修改).doc
中一级计算机WORD2010测试题(经修改) 1.中文Word2010 是( ) A.字处理软件 B.系统软件 C.硬件 D.操作系统 2.在Word2010文档窗口进行最小化操作( ) A.会将指定 ...
中职计算机论文参考文献,中职计算机论文范文中职计算机论文参考文献范文2500字...
<中职计算机项目课程教学资源库建设> 该文是中职计算机类有关论文参考文献范文和课程教学和资源库和计算机有关本科论文怎么写. 摘要:在信息时代,网络技术和信息工具已经进入到我们的生活中,对 ...

excel 插入计算机用户名,excel中获取计算机登陆的用户名

excel 插入计算机用户名,excel中获取计算机登陆的用户名相关推荐

最新文章

热门文章