zbjsy

Can this have multi student groups listed in it? As I have a Student group that has all the other student groups added to it but this does not work

did you have to do anything different on 2008? in process of migrating from 2003 to 2008 r2

not sure if you realise, but you can run vlc player from a remote share, this is what we do, and just copy a link to users desktop on login, or part of mand profile for students. Makes it far easier to update, just update the remote share and all computers on latest version,, simples!

any luck with this?

we use spiceworks, its a good product but resource hungry

the pop up that you display is that just a static page you created with links or something more fancy?

i cant see that it works with websense or does web content filtering?

i like that

Currently we have wireless access points which go back to two Cisco POX 515e firewalls, which change from one vlan to another, before passiing onto a isa /websense box that goes out to the internet. It is filtered, but all traffic comes from the second firewall address, and thus captiv portal addons for isa will not work, as doesn't see the client ip address. It's a complicated solution that was inherited. Ideally we are looking for a new solution that does web filtering, or that can link/talk to websense. Cybernerd, whats a meru controller?

What solutions do you use? Want to have a captiv portal, which hooks up with active-directory username/password to stop freeloaders using our public wifi. Also needs to be filtered, ideally with websense (what we currently use Any recommendations?

i've modified ours quite a bit as dont want people to use the word password, so you may gave to take that bit out, but here you go: reset/reset_pass.asp JavaScriptHeader = "function formValidation(form)" & vbNewLine JavaScriptHeader = JavaScriptHeader & "{" & vbNewLine JavaScriptHeader = JavaScriptHeader & "if(notpassword(form.NewPass))" & vbNewLine JavaScriptHeader = JavaScriptHeader & "{" & vbNewLine JavaScriptHeader = JavaScriptHeader & "if(minLength(form.NewPass)){" & vbNewLine JavaScriptHeader = JavaScriptHeader & "return true;" & vbNewLine JavaScriptHeader = JavaScriptHeader & "} else {" & vbNewLine JavaScriptHeader = JavaScriptHeader & "alert(""Your password must be at least 6 characters long"");" & vbNewLine JavaScriptHeader = JavaScriptHeader & "document.form.NewPass.focus();" & vbNewLine JavaScriptHeader = JavaScriptHeader & "}" & vbNewLine JavaScriptHeader = JavaScriptHeader & "} else {" & vbNewLine JavaScriptHeader = JavaScriptHeader & "alert(""You cannot use the word password as a new password"");" & vbNewLine JavaScriptHeader = JavaScriptHeader & "document.form.NewPass.focus();" & vbNewLine JavaScriptHeader = JavaScriptHeader & "}" & vbNewLine JavaScriptHeader = JavaScriptHeader & "return false;" & vbNewLine JavaScriptHeader = JavaScriptHeader & "}" & vbNewLine JavaScriptHeader = JavaScriptHeader & "function notEmpty(elem)" & vbNewLine JavaScriptHeader = JavaScriptHeader & "{" & vbNewLine JavaScriptHeader = JavaScriptHeader & "if(elem.value.length == 0){" & vbNewLine JavaScriptHeader = JavaScriptHeader & "return false;" & vbNewLine JavaScriptHeader = JavaScriptHeader & "} else {" & vbNewLine JavaScriptHeader = JavaScriptHeader & "return true;" & vbNewLine JavaScriptHeader = JavaScriptHeader & "}" & vbNewLine JavaScriptHeader = JavaScriptHeader & "}" & vbNewLine JavaScriptHeader = JavaScriptHeader & "function notpassword(elem)" & vbNewLine JavaScriptHeader = JavaScriptHeader & "{" & vbNewLine JavaScriptHeader = JavaScriptHeader & "if(elem.value.toLowerCase() == 'password'){" & vbNewLine JavaScriptHeader = JavaScriptHeader & "return false;" & vbNewLine JavaScriptHeader = JavaScriptHeader & "} else {" & vbNewLine JavaScriptHeader = JavaScriptHeader & "return true;" & vbNewLine JavaScriptHeader = JavaScriptHeader & "}" & vbNewLine JavaScriptHeader = JavaScriptHeader & "}" & vbNewLine JavaScriptHeader = JavaScriptHeader & "function minLength(elem)" & vbNewLine JavaScriptHeader = JavaScriptHeader & "{" & vbNewLine JavaScriptHeader = JavaScriptHeader & "if(elem.value.length > 5){" & vbNewLine JavaScriptHeader = JavaScriptHeader & "return true;" & vbNewLine JavaScriptHeader = JavaScriptHeader & "} else {" & vbNewLine JavaScriptHeader = JavaScriptHeader & "return false;" & vbNewLine JavaScriptHeader = JavaScriptHeader & "}" & vbNewLine JavaScriptHeader = JavaScriptHeader & "}" & vbNewLine

First name: givenName Surname: sn Email address: mail Make sure the accounts have first name and last name filled in when you view them in ad users and computers!

It's easy to do, but you need to remember to edit the code after every update. edit: moodle\auth\ldap\auth.php search for : function get_userinfo($username) { at end of this you will see : $this->ldap_close(); return $result; add before : $result['country'] = 'GB'; $result['city'] = 'CHANGE TO WHAT YOU WANT';

http://www.edugeek.net/forums/edugeek-self-service-password-reset/2022-self-service-password-reset.html

yes but it seems only the page in the reset folder.

managed to get it working, seems that page doesnt like the variables used, if you manually set them in that, min length etc it works. can supply code if needed.

anyone have it working?

Does anyone elses form check not work on the reset page? reset/ It seems to be allowing any combination from no password at all! Help

I downloaded from : http://sspr.googlecode.com/files/SSPR%202.2.2.zip and had no problems

oUser.LockoutTime = 0 oUser.SetInfo oUser.Put "PwdLastSet", 0 oUser.SetInfo oUser.Put "userAccountControl", 544 oUser.SetInfo just to expand, I found that if I didn't have "oUser.SetInfo" after each setting it wouldn't always unlock, strange I know, and only works using an ldap connection.

here you go, change your resetpass function to this, and change value NetBiosName Function ResetPass 'Begin Password Reset Code Dim usr, oUser, oFlags Err.Clear 'Connect to Active Directory, reset and expire password Set objLogon = Server.CreateObject("LoginAdmin.ImpersonateUser") objLogon.Logon ImpersonateUser, ImpersonateUserPass, FQDN 'START OF CODE FOR LDAP ' Constants for the NameTranslate object. Const ADS_NAME_INITTYPE_GC = 3 Const ADS_NAME_TYPE_NT4 = 3 Const ADS_NAME_TYPE_1779 = 1 ' Specify the NetBIOS name of the domain and the NT name of the user, Change NetBiosName to your NetBiosName. strNTName = "NetBiosName" & "\" & strusername ' Use the NameTranslate object to convert the NT user name to the ' Distinguished Name required for the LDAP provider. Set objTrans = CreateObject("NameTranslate") ' Initialize NameTranslate by locating the Global Catalog. objTrans.Init ADS_NAME_INITTYPE_GC, "" ' Use the Set method to specify the NT format of the object name. objTrans.Set ADS_NAME_TYPE_NT4, strNTName ' Use the Get method to retrieve the RPC 1779 Distinguished Name. strUserDN = objTrans.Get(ADS_NAME_TYPE_1779) 'END OF CODE FOR LDAP to replace Getobject("WinNt: 'Set oUser = GetObject("WinNT://" & FQDN & "/" & strusername & ",user") ' Bind to the user object in Active Directory with the LDAP provider. Set oUser = GetObject("LDAP://" & strUserDN) If Err.number <> 0 Then PageContent(0) = "Error: Unable to bind to container" Else 'Commented out the commands below as they were causing conflicts 'oFlags = oUser.Get("UserFlags") 'PageContent(0) = "Resetting password for " & strusername & " ... " On Error Resume Next oUser.SetPassword( NewPassword ) If (Err.number <> 0) Then If AdminName = "" Then PageContent(0) = PageContent(0) & "An unexpected error occurred in the execution of this page Please report the following information to an " AdminName = "Administrator" Else PageContent(0) = PageContent(0) & "An unexpected error occurred in the execution of this page Please report the following information to " End If Select Case AdminLinkType Case 1 'No link PageContent(0) = PageContent(0) & AdminName Case 2 'Mailto: PageContent(0) = PageContent(0) & "" & AdminName & "" Case 3 'Web Link PageContent(0) = PageContent(0) & "" & AdminName & "" Case Else PageContent(0) = PageContent(0) & AdminName End Select PageContent(0) = PageContent(0) & " Page Error Object Error Number: " & Err.Number & " Error Description: " & Err.Description & " Source: " & Err.Source & " LineNumber: " & Err.HelpContext & "" Else 'oUser.Put "PasswordExpired", CLng(1) 'Commented out the above command, as it did not work with LDAP, the below command does. It forces the user to the Change their password the next time they logon oUser.LockoutTime = 0 oUser.SetInfo oUser.Put "PwdLastSet", 0 oUser.SetInfo oUser.Put "userAccountControl", 544 oUser.SetInfo Set oUser = Nothing PageContent(0) = "Resetting password for " & strusername & " ... " PageContent(0) = PageContent(0) & "Your password is now " & NewPassword & "" If PwdType <> 5 Then PageContent(0) = PageContent(0) & " please logon and change this." End If PageContent(0) = PageContent(0) & " Press Ctrl-Alt-Del and Log Off..." 'Create an ADO recordset object Set rsRegisterUser = Server.CreateObject("ADODB.Recordset") 'Initialise the strSQL variable with an SQL statement to query the database If removeOnReset Then 'Remove user from SSPR database strSQL = "DELETE FROM tblmain WHERE username='" & strusername & "';" Else 'Reset failed reset counter strSQL = "UPDATE tblmain SET counter='0' WHERE username='" & strusername & "';" End If 'rsRegisterUser.Open strSQL, adoCon adoCon.Execute strSQL 'rsRegisterUser.Close Set rsRegisterUser = Nothing Set adoCon = Nothing End If End If

woo! can now unlock accounts

Only just seen your script today so have been playing around with it. Have problems with the unlock accounting as well, just can't get it to work. I can unlock accounts via a vbs script, but can't seem to unlock account via .asp, even using the same commands v.annoying!