如何获取windows所有用户及组名称

[mjdwcn]

如何获取windows所有用户及组名称

[CloneCenter]

看看这个链接里面给的例子能否解决：
http://www.cnblogs.com/ww21xx/articles/93864.html

[anticlimax]

Dim objSWbemLocator As SWbemLocator
Dim objSWbemServices As SWbemServices
Dim objSWbemObjectSet As SWbemObjectSet
Dim objSWbemObject As SWbemObject
Dim strComputer As String, strNameSpace As String, strClass As String

Public Function GetAllUser()
strComputer = "." '计算机名，.为本机
strNameSpace = "root\cimv2" '指定命名空间为root\cimv2
strClass = "Win32_UserAccount" '指定类为Win32_Service
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator") '建立1个WBEM对象的引用指针
Set objSWbemServices = objSWbemLocator.ConnectServer(strComputer, strNameSpace) '连接到指定计算机、命名空间的WMI，返回一个对 SWbemServices 对象的引用
Dim i As Long
Dim tmpu As String
Set objSWbemObjectSet = objSWbemServices.ExecQuery("SELECT * FROM " & strClass) '通过WQL查询，返回指定类的所有
For Each objSWbemObject In objSWbemObjectSet
With objSWbemObject
tmpu = IIf(tmpu = "", .Name, tmpu & ";" & .Name)
' Debug.Print .AccountType & .installdate & .Name & "-" & .PasswordChangeable & .Status & .Domain & .SIDType & "哈哈" & .PasswordRequired & .SID & .PasswordExpires & .Description
End With
Next
GetAllUser = tmpu
End Function

[害怕飞的鸟]

楼上的方法貌似可行，关注

[神之泪花]

路过,关注.....