Accessing Employee ID via LDAP in a Classic ASP/VBScript application -


I am maintaining an old ASP / VBScript that I have / upgrade and its currently getting an app using the old has / depreciation of gathering instrument profile information - like below: 

  strNTUser = Request.ServerVariables ( "AUTH_USER") instead of strNTUser = (strNTUser, "\", "/") Set the strNTUserInfo = GetObject ("WinNT: //" + strNTUser) 'You get this idea' '

When I needed all the full name and description, it was ok. Now I need to access some additional profile information, but I have to use LDAP instead of WinNT. I was blind until I am Google, but for my life I can not connect my LDAP and connect my mind about getting the information that I need.

Update : What I need to do is get the first name, last name, and employee ID to get it based on AUTH_USER: I started that ADSI Or something similar would be required from the interface, but I am apparently an ADIOD and I am not getting any useful hint - alone help - from anything found on MSDN or TechNet. The more obvious help would be ...

I'm sure that maybe a little more efficient way to do this but here's the code I ended up using search trying much later, and the gnashing of teeth ... 

  dim strNTUser, strUser, strDN, strRootTDSE dim objRootDSE, objConnection, objCommand , objRecordSet, objUser, objNTUserInfo strNTUser = Request.ServerVariables ( "AUTH_USER") strUser = Middle (strNTUser, (instr (1, strNTUser, "\") + 1), lane (strNTUser)) set objConnection = Server.CreateObject ( " ADODB Connection ") set objCommand = Server.CreateObject (" ADODB.Command ") ObjConnection.Provider = "ADsDSOObject" objConnection.Open set "Active Directory Provider" objCommand.ActiveConnection = objConnection objCommand.Properties ("Page Size") = 1000 'ObjCommand.Properties ("SearchScope") = 2' ADS_SCSP_STEE Set ObjectivitySDE = GetObject set ( "LDAP: // Rutdisi") strRootTDSE = objRootDSE.Get ( "Difoltonmingcontekst") to objRootDSE = nothing JCommand.CommandText = _ "select Fistingu Number of LDAP: //" & amp; StraftTDSE & amp; "'" & "Amp" _ "Where the object class = 'user' and sAMAccountName = '' & amp; Strauss and amp;" ' "Set objRecordSet = objCommand.Execute when objRecordSet.EOF so objRecordSet.MoveFirst if not objRecordSet.BOF strDN = objRecordSet set .Fields ( "distinguished name"). value end objConnection = nothing set objCommand = nothing set objRecordSet = nothing ObjUser = GetObject ( "LDAP: //" and strDN) set 'I no longer receive details I can use the objuser to do '

I will accept any refactor code with pleasure, And because of this, now I have to reduce the "basic authentication" site to work.

As a side note, I've probably given up the hard code, so I can send it back I've got the original code for Open Source Project.


Comments

Post a Comment

Popular posts from this blog

python - Overriding the save method in Django ModelForm -

I'm having trouble overriding a ModelForm save method. I get this error I'm: Exception type: TypeErier Exception Value: Save () found an unexpected keyword argument 'committed' My intentions include a form 3 fields Submit several values ​​for, then create an object for each combination of those areas, and to save each object file models.py class collarsult type (models.Model): id = model. AutoField (db_column = 'icontact_result_code_type_id', primary_key = true) callResult = models.ForeignKey ( 'CallResult', db_column = 'icontact_result_code_id') campaign = models.ForeignKey ( 'campaign', db_column = 'icampaign_id') CALLTYPE = models.ForeignKey ( 'CALLTYPE', db_column = 'icall_type_id') agent = models.BooleanField (db_column = 'bagent', default = true) teamLeader = models.BooleanField (db_column = 'bTeamLeader', default = true) active = models.BooleanField (db_column = Django.form...
Read more

html - CSS autoheight, but fit content to height of div -

I have a div in which there are three children- div in the left and middle div: float: left while true: float: true because it is my layout Actually will spoil, I've used ClearFix Hack: .cf {zoom: 1; }. Cf: First,. Cf: {content: ""; Display: Table; }. Cf: After {clear: both; } It still works, but I want to be the right div an indicator. So it should fill 100% of the parent unit of height. How can I complete this? PS is the full code: & Lt; / Div & gt; & Lt; Div class = "mobile_content" & gt; & Lt; H5 & gt; {{Data.titel}} & lt; / H5> & Lt; Table & gt; & Lt; TR & gt; & Lt; Th & gt; Komponist: & lt; / Th & gt; & Lt; TD & gt; {{Data.komponist}} & lt; / TD & gt; & Lt; / TR & gt; & Lt; TR & gt; & Lt; Th & gt; Instrument: & lt; / Th & gt; & Lt; TD & gt; {{Data.instrumente}} & lt; / TD & gt; & Lt; / TR & gt;...
Read more

qt - How to prevent QAudioInput from automatically boosting the master volume to 100%? -

I have been trying to use Qt5 multimedia to record audio with QAudioInput, however, when I see If QAudioInput is started, it increases the master volume of my sound device to 100%. How can I prevent QAudioInput from changing the master volume? My current development platform is Linux with PalsAdio (with flat audio disabled). How can I use QAudioInput : QAudioDeviceInfo device_info = QAudioDeviceInfo :: defaultInputDevice (); QAudio format format; Format.setSampleRate (44100); Format.setChannelCount (1); Format.setSampleSize (16); Format.setCodec ("Audio / PCM"); Format.setSampleType (QAudioFormat :: SignedInt); Format.setByteOrder (QAudioFormat :: LittleEndian); Std :: cout & lt; & Lt; Device_info.deviceName (). ToUtf8 (). ConstData () & lt; & Lt; Std :: endl; QAudioInput * default_device = new QAudioInput (device_info, format); QIODevice * default_io_device = default_device-> Start (); a QAudioInput.setVolume () method is not you I ...
Read more