StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

PO
primarykey
Id
13562754
data
AcceptedAnswerId
0
AnswerCount
0
ClosedDate
CommentCount
0
CommunityOwnedDate
CreationDate
2012-11-26T10:20:11.267
FavoriteCount
0
LastActivityDate
2012-11-26T10:56:25.607
LastEditDate
2012-11-26T10:56:25.607
LastEditorUserId
819415
OwnerUserId
819415
ParentId
13515016
PostTypeId
2
Score
0
ViewCount
0
LastEditorDisplayName
text
Body
<p>I managed to write the VBScript which does what I wanted, so I will share it here. The script probably needs a very good cleanup, but for now it does the job so I'm hoping it can help other people too.</p> <pre><code>' Get OU strOU1 = "OU=here,DC=mydomain,DC=com" strOU2 = "OU=there,DC=yourdomain,DC=com" Dim samid Dim ldap_command ' Create connection to AD ' Set objConnection = CreateObject("ADODB.Connection") objConnection.Open "Provider=ADsDSOObject;" ' Create command ' Set objCommand1 = CreateObject("ADODB.Command") objCommand1.ActiveConnection = objConnection objCommand1.Properties("Page Size") = 1000 ' Execute command to get all users in OU ' objCommand1.CommandText = _ "<LDAP://" & strOU1 & ">;" & _ "(&(objectclass=user)(objectcategory=person));" & _ "adspath,distinguishedname,sAMAccountName;subtree" Set objRecordSet = objCommand1.Execute ' Show info for each user in OU ' Do Until objRecordSet.EOF ' Show required info for a user ' samid = objRecordSet.Fields("sAMAccountName").Value WScript.Echo "Processing " & objRecordSet.Fields("sAMAccountName").Value Set objCommand2 = CreateObject("ADODB.Command") ldap_command = _ "<LDAP://" & strOU2 & ">;" & _ "(&(objectclass=user)(objectcategory=person)" & _ "(sAMAccountName=" & samid & "));" & _ "adspath,distinguishedname,sAMAccountName;subtree" objCommand2.CommandText = ldap_command objCommand2.ActiveConnection = objConnection objCommand2.Properties("Chase referrals") = &H40 Set objRecordSet2 = objCommand2.Execute If objRecordSet2.RecordCount = 0 Then Wscript.Echo "The sAMAccountName is not in use." Else Wscript.Echo "This ID is in use" End If ' Move to the next user ' objRecordSet.MoveNext Loop </code></pre>
Tags
Title
singulars
PostAcceptedAnswerId
1. This table or related slice is empty.
PostParentId
1. POFind if users from one domain exist in another
  singulars
  PostTypePostTypeId
  PTQuestion
PostTypePostTypeId
1. PTAnswer
UserLastEditorUserId
1. USNullPointer
UserOwnerUserId
1. USNullPointer
plurals
PostLinksPostIdRelatedPostId
1. This table or related slice is empty.
PostLinksRelatedPostIdPostId
1. This table or related slice is empty.
PostsAcceptedAnswerId
1. POFind if users from one domain exist in another
  singulars
  PostTypePostTypeId
  PTQuestion
PostsParentIdCreationDate
1. This table or related slice is empty.
VotesPostIdCreationDate
1. VO
  singulars
  PostPostId
  PO
  UserUserId
  This table or related slice is empty.
  VoteTypeVoteTypeId
  VTAcceptedByOriginator
CommentsPostId
1. This table or related slice is empty.

Querying!

Guidance

A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.