RosettaCodeData/Task/Active-Directory-Search-for-a-user/VBScript/active-directory-search-for-a-user-2.vb

If objRS.RecordCount = 1 Then
  WScript.Echo objRS.Fields("DistinguishedName")
End If