ADSI Problemer

Er det fordi du ikke kan finde de brugerkonti der er på domænet - eller fordi du har dem, men ikke kan validere op i mode dem (bare for at få det smukt udskåret i pap for min skyld;o)

Wops - så at der var 200 pts på spil - så er dit spørgsmål nok ikke så simpelt som jeg troede/håbede :o(

Jeg har ikke en konkret løsning. Men prøv at se denne side.

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wss/wss/_hosting_createuserthroughadsi.asp

/webcon

Det er nok nærmere dette link du skal bruge:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wss/wss/_hosting_addusertogroup.asp

/webcon

Webcon >>Det er desværre ikke lige det jeg er ude efter. De 2 eksempler viser hvordan man henter en liste af bruger fra en Exchange server.

Det jeg blot vil er at validere et brugernavn og en adgangskode som en bruger har indtastet.

Det er faktisk det sammen som Windows Authentication under MS IIS 5.

Følgende virker i VB
Du skal have ref. Active DS Type Library

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

'De efterfølgende markere bare teksten ved tab skifte
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

'Hvis din Domain Controler er en unix/bsd så skal du hvor der
'står winnt ud med unix....

/Tubber

Tusind tak tubber - Gider du at svare på spørgsmålet så du kan få dine point ;-)

Er hermed gjort :O)

Og jeg siger mange tak for besvarelsen ;-)