列出域中所有电脑的本地用户组及用户名单

On Error Resume Next

Const ADS_SCOPE_SUBTREE = 2

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection

objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE 

objCommand.CommandText = "SELECT Name FROM 'LDAP://dc=windows,dc=microsoft,dc=com' WHERE objectCategory='computer'"  

Set objRecordSet = objCommand.Execute

objRecordSet.MoveFirst

Do Until objRecordSet.EOF
  Wscript.Echo "Computer Name: " & objRecordSet.Fields("Name").Value
  strComputer = objRecordSet.Fields("Name").Value
  Set colGroups = GetObject("WinNT://" & strComputer & "")
  colGroups.Filter = Array("group")

    For Each objGroup In colGroups
      Wscript.Echo objGroup.Name 
      For Each objUser in objGroup.Members
        Wscript.Echo vbTab & objUser.Name
      Next
    Next

  objRecordSet.MoveNext

Loop

Bookmark this post: