AUTENTICANDO USUARIOS NO WINDOWS 98

WILLIANJUNIOR 16/09/2005 09:18:01
#104562

Pessoal, usando o windows 2000 ou superior, eu uso o código abaixo para validar o usuário:

Dim strADsPath As String
Dim strADsNamespace As String

Dim objUserContainer As IADsContainer
Dim objADsNameSpace As Object
Dim objUserInformation As IADsUser

strADsPath = "WinNT://" & strDomain

Set objUserContainer = GetObject(strADsPath)

strADsNamespace = Left(strADsPath, InStr(strADsPath, ":"))
Set objADsNameSpace = GetObject(strADsNamespace)

Set objUserContainer = objADsNameSpace.OpenDSObject(strADsPath, strUserName, strPassword, 0)

Mas eu necessito de fazer a autenticação no windows 98. Para isso, estou referenciando o Active DS Type Library.
Conto com a ajuda de vocês!!
Abraços e obrigado...