Newbie VB6 DLL ASP Question...Help Please

[Cranger]

Not necessarily looking for someone to write the code, but have been looking for examples and I can not find. I want to take the below code and make it a DLL so I can call it from VB or ASP applications. Any help greatly appreciated.

Dim strUserName
Dim strPassword

On Error GoTo displaymessage:

Set oADsNamespace = GetObject("LDAP:")
Set oADsObject = oADsNamespace.OpenDSObject("LDAP://domainname.local", "domainname\" & strUserName, strPassword, 0)

If (Err.Number = 0) Then
MsgBox "USER AUHTENTICATED!"
Exit Sub
End If

displaymessage:
MsgBox "Invalid Username or Password

 

[BobRodes]

Open VB. Select "ActiveX DLL" when asked for a type of project. Put your code in the class moduel there, inside a method declaration, such as ValidateLogin.

If you need more help, post back with more specific questions.

HTH

Bob

 

[Cranger]

Thanks.

I guess I am getting lazy and anxious in my old age. I just got the VB call working and finished the ASP call earlier. I am good to go.