Only on Experts-Exchange: Sign-up for a free-trial and we'll send you your permanent license!
Here is what you get: 30 Nodes | Unlimited Sensors | No Time Restrictions | Absolutely FREE!
Act now. This offer ends July 14, 2017.
Sub GetAttribs intCount = 1 objCommand.CommandText = FormatLDAPString (UserOUString, "user", strFilter, strFields) 'WScript.Echo "Executing Query..." Set objRS = objCommand.Execute 'WScript.Echo "Records found: " & objRS.RecordCount '================================================================ With objRS .MoveFirst Do Until .EOF strADUsername = .Fields("sAMAccountName").Value ‘more items listed if full script (23 total) '=========================================== 'Step: Write to SQL or Txt '=========================================== ' ....... '=========================================== 'Step: End Loops '=========================================== intCount = intCount + 1 .MoveNext Loop End With objRS.Close
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.