permissions on Public Folders problem. but why do you want to use LDAP, use WMI and ADSI instead. > > Now I get the following error if it means anything: > > error '80072030' > > > -----Original Message----- > From: Jon Barnhardt [mailto:[EMAIL PROTECTED]] > Sent: Friday, August 16, 2002 4:27 PM > To: ActiveServerPages > Subject: RE: active directory password change > > > I got it to work on a local machine also now but I need to change users > within active directory. I dug up an article on msdn that I need to use > ldap to connect. > > I'm using a script that requests info from previous page but it fails on the > connection string. > > CsConnectString = "LDAP://CN="; & sUser & ",OU=users, " & "DC=whathere?, > DC=andhere?" > Response.Write "Connect string: " & sConnectString & "<br>" > > Set oUser = GetObject(sConnectString) > > > I found this on msdn's site but I'm stumped as to what to put in the DC > places. I think I have the rest dissected but the DC part. The example > showed the following: > > CsConnectString = "LDAP://CN="; & sUser & ",OU=users, " & "DC=mycompany, > DC=Com" > Response.Write "Connect string: " & sConnectString & "<br>" > > Set oUser = GetObject(sConnectString) > > Should I replace the mycomputer with the exact computer name ex: > www.mydomain.com or just the prefix www. The the last part has me > confused also what does DC=Com supposed to do. > > I might be rattling on and missing the main picture but I am running out of > time very fast and I am at wits end!! > > > > > > Thanks again > Jon > > If it helps here is all the code: > > > <%@ Language=VBScript %> > <% > > 'CALLOUT A > dim sUser, sPassword > dim oUser, sConnectString > 'END CALLOUT A > > 'CALLOUT B > sUser = request("txtUserName") > sPassword = request("txtPassword") > sNewPassword = request("txtNewPassword") > if sUser = "" then Response.Redirect "ChangePasswordEntry.asp" > 'END CALLOUT B > > Response.Write "User name is: " & sUser & " -- " & sPassword & "<br>" > > Response.Write "New Password is: " & sNewPassword & "<br>" > > 'CALLOUT] > CsConnectString = "LDAP://CN="; & sUser & ",OU=users, " & "DC=mycomputer, > DC=Com" > Response.Write "Connect string: " & sConnectString & "<br>" > > Set oUser = GetObject(sConnectString) > 'END CALLOUT C > > Response.Write "Logon user: " & Request.ServerVariables("LOGON_USER") & > "<br>" > Response.Write "User Password: " & Request.ServerVariables("AUTH_PASSWORD") > & "<br>" > > 'CALLOUT D > oUser.ChangePassword sPassword, sNewPassword > 'END CALLOUT D > > set oUser = Nothing > > %> > > -----Original Message----- > From: Nabil Al-Hage Ali [mailto:[EMAIL PROTECTED]] > Sent: Friday, August 16, 2002 3:47 PM > To: ActiveServerPages > Subject: RE: active directory password change > > > > <% > i used your code somehow and it works fine.. > > Call ChangeUser("test1","myServerName","test12" ," test1234") > response.write "Done" > > Sub ChangeUser( strUser,strDomain, strOldPassword, strNewPassword) > > Dim User > Set User = GetObject("WinNT://" & strDomain & "/" & strUser & > ",user") > User.ChangePassword strOldPassword,strNewPassword > User.Setinfo > Set User = nothing > > End Sub > > > > %> > > > > Sorry here is the error I get: > > > > error '80070056' > > /test/adpass.asp, line 25 > > > > > > -----Original Message----- > > From: Jon Barnhardt [mailto:[EMAIL PROTECTED]] > > Sent: Friday, August 16, 2002 1:01 PM > > To: ActiveServerPages > > Subject: RE: active directory password change > > > > I found a script that seems to do what I need but it errors on line 25 > whats > > wrong? Also does this script need to be on the actual box that active > > directory is on or another server that authenticates through it. > (Webserver > > authenticating through MDC box?) > > > > Here is the code: > > > > <% > > > > Dim strUser, strDomain, strFullname, strDesc, strOldPassword, > strNewPassword > > > > strUser = "mytestuser" > > strFullname = "MyFullname" > > strDesc = "MyDescription" > > strOldPassword = "passtest" > > strNewPassword = "MyNewPass" > > strDomain = "MyDomain" > > > > > > ChangeUser > > > "mytestuser","MyDomain","MyFullname","MyDescription","MyOldPass","MyNewPass" > > > > Sub > > > ChangeUser(strUser,strDomain,strFullname,strDesc,strOldPassword,strNewPasswo > > rd) > > Dim User > > Set User = GetObject("WinNT://" & strDomain & "/" & strUser & > ",user") > > User.Fullname = strDesc > > User.Description = strDesc > > User.ChangePassword "newpass","passtest" (Line 25) > > User.Setinfo > > Set User = nothing > > End Sub > > %> > > > > > > Thanks for any and all help beings I've never worked with ADSI before! > > > > > > Jon > > -----Original Message----- > > From: Andrew Haslett [mailto:[EMAIL PROTECTED]] > > Sent: Friday, August 16, 2002 12:10 AM > > To: ActiveServerPages > > Subject: RE: active directory password change > > > > definately possible and actually not that difficult to intercat with AD > > through the WEB. > > > > Search for ADSI on MSDN and you'll find heaps of articles. > > > > Cheers, > > Andrew > > > > -----Original Message----- > > From: Jon Barnhardt [mailto:[EMAIL PROTECTED]] > > Sent: Friday, 16 August 2002 9:01 AM > > To: ActiveServerPages > > Subject: active directory password change > > > > > > I was wondering if anyone has ever created a way to create new users via > the > > web in active directory services on a windows 2000 adv server box. Any > > suggestions or sample code would be greatly appreciated. > > We actually have to enable the 2000 users to change their passwords via > the > > web. We are caught in an unexpected upgrade in exchange server that has > to > > be completed by Monday and at that point 2000 email users will have their > > passwords reset to default. We lack the manpower to change their > passwords > > by hand so we need a way to enable them to do it themselves via the web. > > Thanks for any and all advice. > > > > Jon > > > > --- > > You are currently subscribed to activeserverpages as: > > [EMAIL PROTECTED] > > To unsubscribe send a blank email to > > %%email.unsub%% > > > > > > > > --- > > You are currently subscribed to activeserverpages as: > > [EMAIL PROTECTED] > > To unsubscribe send a blank email to > > %%email.unsub%% > > > > --- > > You are currently subscribed to activeserverpages as: > > [EMAIL PROTECTED] > > To unsubscribe send a blank email to > > %%email.unsub%% > > > > --- > > You are currently subscribed to activeserverpages as: > [EMAIL PROTECTED] > > To unsubscribe send a blank email to %%email.unsub%% > > > > --- > You are currently subscribed to activeserverpages as: > [EMAIL PROTECTED] > To unsubscribe send a blank email to > %%email.unsub%% > > --- > You are currently subscribed to activeserverpages as: > [EMAIL PROTECTED] > To unsubscribe send a blank email to > %%email.unsub%% > > --- > You are currently subscribed to activeserverpages as: [EMAIL PROTECTED] > To unsubscribe send a blank email to %%email.unsub%%
--- You are currently subscribed to activeserverpages as: [email protected] To unsubscribe send a blank email to [EMAIL PROTECTED]
