objRecordSet = objCommand.Executeline.
>strUserName = "Kolosov" > objConnection = CreateObject("ADODB.Connection") > objConnection.Open("Provider=ADsDSOObject;") > > objCommand = CreateObject("ADODB.Command") > objCommand.ActiveConnection = objConnection > objRootDSE = GetObject("LDAP://RootDSE") > strDNSDomain = objRootDSE.Get("defaultNamingContext") > objCommand.CommandText = "<LDAP://"+strDNSDomain+">;(&(objectCategory=person)(objectClass=user)(sAMAccountName=" + strUserName + "));samAccountName;subtree" > > objRecordSet = objCommand.Execute > > IF objRecordset.RecordCount = 0 > ?"sAMAccountName: " + strUserName + " does not exist." > ELSE > ?strUserName + " exists." > ENDIF > > objRecordSet.MoveFirst > Do WHILE NOT objRecordSet.EOF > strDN = objRecordSet.Fields("distinguishedName") > strSAM = objRecordSet.Fields("sAMAccountName") > ?strSAM.value + ' ' + strDN.value + '' > objRecordSet.MoveNext > ENDDO > > objConnection.Close>
>>objRecordSet = objCommand.Execute() >>>>