获取局域网用户名及局域网名称

最新推荐文章于 2021-07-03 20:40:23 发布

weixin_33861800

最新推荐文章于 2021-07-03 20:40:23 发布

阅读量339

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/wangzj12/p/10334640.html

本文介绍了一段使用VBA代码获取局域网中计算机的用户名及所在工作组名称的方法。通过WMI（Windows Management Instrumentation）接口，可以轻松地在VBA环境中读取Win32_ComputerSystem类的属性，包括当前登录用户的名称和所属的工作组。

获取局域网用户名及局域网名称

Sub test1()
  Set Sy = GetObject("winmgmts:").InstancesOf("Win32_ComputerSystem")
    For Each WG In Sy
       MsgBox "工作组" & WG.Workgroup
    Next
End Sub

Sub test2()
  Set Sy = GetObject("winmgmts:").InstancesOf("Win32_ComputerSystem")
    For Each WG In Sy
       MsgBox WG.UserName
MsgBox WG.PrimaryOwnerName
    Next
End Sub