RosettaCodeData/Task/Active-Directory-Search-for-a-user/VBScript/active-directory-search-for-a-user-3.vb
2013-04-11 11:14:19 -07:00

5 lines
123 B
VB.net

If objRS.RecordCount > 0 Then
For Each objUser in ObjRS
WScript.Echo objRS.Fields("DistinguishedName")
Next
End If