Avatar billede Slettet bruger
25. januar 2003 - 01:46 Der er 15 kommentarer og
1 løsning

Validering af windows user/pass

Hey..jeg ville se om man kunne lave en login box som tog username,password, domain og testede det op mod min domain server, har kikket mange steder nu, men kan ikke få det til at fungere helt.. det enste som lykkeds for mig er at jeg får disablet min account.. men i så fald ved jeg at jeg er på rette vej :)

Dim dso As IADsOpenDSObject
Dim UserObj As IADs

Set dso = GetObject("LDAP:")
Set UserObj = dso.OpenDSObject("LDAP://OU=Exchange, DC=domain", "testuser", "testpass", ADS_SECURE_AUTHENTICATION)

Jeg er ikke helt sikker på hvad der skal stå i DC, som jeg har sat til at være mit domain.. nogen som kan hjælpe.. lige meget hvad jeg taster ind som user/pass kommer den ikke igennem... wrong username/password, og jeg ved at jeg har tastet rigtigt :)
Avatar billede Slettet bruger
25. januar 2003 - 01:48 #1
får også fejlen:
A referral was returned from the server.
Avatar billede tubber Juniormester
25. januar 2003 - 16:53 #2
Brug ADSI...

Jeg finder lige koden frem og så paster den.....
Avatar billede tubber Juniormester
25. januar 2003 - 16:54 #3
Option Explicit
Dim dso As IADsOpenDSObject
Dim domain As IADsDomain
Dim vUser As String
Dim vPass As String
Dim vDomain As String
Private Sub cmdClose_Click()
    Unload Me
    End
End Sub
Private Sub cmdVerify_Click()
On Local Error GoTo ErrorHandler
    vUser = txtUser.Text
    vPass = txtPass.Text
    vDomain = txtDomain.Text
    Set dso = GetObject("WinNT:")
    Set domain = dso.OpenDSObject("WinNT://" & vDomain & "", "" & vUser & "", "" & vPass & "", ADS_SECURE_AUTHENTICATION)
Exit Sub
ErrorHandler:
    If Err = -2147023570 Then MsgBox "Unknown User or Bad Password", , "Login Failure"
    If Err = -2147467259 Then MsgBox "Unknown Domain", , "Login Failure"
Exit Sub
End Sub
Private Sub txtUser_GotFocus()
txtUser.SelStart = 0
txtUser.SelLength = Len(txtUser.Text)
End Sub
Private Sub txtPass_GotFocus()
txtPass.SelStart = 0
txtPass.SelLength = Len(txtPass.Text)
End Sub
Private Sub txtDomain_GotFocus()
txtDomain.SelStart = 0
txtDomain.SelLength = Len(txtDomain.Text)
End Sub
Avatar billede tubber Juniormester
25. januar 2003 - 16:55 #4
Og du skal bruge refferencen : Active DS Type Library......

Skal du validere på en UNIX/Linux/BSD skal du skifte der hvor der står WinNT ud med UNIX
Avatar billede Slettet bruger
26. januar 2003 - 08:06 #5
lyder for vildt.. :) tester lige
Avatar billede Slettet bruger
26. januar 2003 - 08:17 #6
hmm :(
Ser ud til at virke hvis jeg indtaster de samme user pass som jeg allerede er logget ind på domainet med..
men ligeså snart jeg prøver en anden person så som administrator eller noget så får jeg:
Automation error
The credentials supplied conflict with an existing set of credentials
Avatar billede Slettet bruger
26. januar 2003 - 08:18 #7
og den kommer kun hvis jeg fjerner on error naturligvis.. er on error på så siger den nada
Avatar billede tubber Juniormester
26. januar 2003 - 11:44 #8
hmmmmm......skumler.....

Domain = Computernavn ?

Chekker lige lidt på min egen her:O)
Avatar billede tubber Juniormester
26. januar 2003 - 11:51 #9
hmmm

Har du en domaincontroler ? eller er det bare en workgroup du har ?

Kan da egenligt godt være det ikke virker i en workgroup....
Avatar billede tubber Juniormester
26. januar 2003 - 11:51 #10
Kan nemlig heller ikke få min til at virke lige nu......
Avatar billede Slettet bruger
26. januar 2003 - 13:43 #11
Jeg har et Windows 2000 domain, med Active Directory så ikke workgroup :)
Avatar billede Slettet bruger
26. januar 2003 - 13:44 #12
har prøvet at skrive domain som både pc navnet og domain.dk og det give samme udfald
Avatar billede tubber Juniormester
26. januar 2003 - 14:38 #13
prøv med domain uden domain.dk

Mener heller ikke et www.domain.dk
er det samme som domianname på en domain controler.....
Avatar billede tubber Juniormester
26. januar 2003 - 14:39 #14
du kunne evt. søge på ADSI på msdn.microsoft.com....
Avatar billede Slettet bruger
26. januar 2003 - 23:18 #15
tubber >> du kunne evt. søge på ADSI på msdn.microsoft.com....
har jeg gjort.. derfor er jeg her, og spørg om hvorfor det ikke virker :)
Avatar billede tubber Juniormester
27. januar 2003 - 00:54 #16
hehe ok :O)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester