Urgente conecion de power con windows
Publicado por Urgente coneccion con windows (12 intervenciones) el 30/08/2004 21:22:23
Esta función me permite validar el usuario, dominio y password de windows pero con windows 2000, tengo problemas, me pueden ayudar, gracias.
//Valida usuario, dominio y password de Windows NT.
//FUNCTION Boolean LogonUserA (string lpszUsername, String lpszDomain, string lpszPassword, Long dwLogonType, Long dwLogonProvider, REF uLong phToken) LIBRARY "advapi32.dll"
//FUNCTION ulong GetLastError() LIBRARY "kernel32.dll"
uLong l_token=0, l_ret
Boolean lb_yes
String ls_result, ls_error
lb_yes = LogonUserA(gstr_us.nombre, gstr_us.dominio, gstr_us.password,2,0,l_token )
if (lb_yes) then
//ls_result = "Conección Satisfactoria"
CloseHandle(l_token)
else
ls_error = string(GetLastError())
//ls_result = "Conección a Fallado"
end if
return lb_yes
//Valida usuario, dominio y password de Windows NT.
//FUNCTION Boolean LogonUserA (string lpszUsername, String lpszDomain, string lpszPassword, Long dwLogonType, Long dwLogonProvider, REF uLong phToken) LIBRARY "advapi32.dll"
//FUNCTION ulong GetLastError() LIBRARY "kernel32.dll"
uLong l_token=0, l_ret
Boolean lb_yes
String ls_result, ls_error
lb_yes = LogonUserA(gstr_us.nombre, gstr_us.dominio, gstr_us.password,2,0,l_token )
if (lb_yes) then
//ls_result = "Conección Satisfactoria"
CloseHandle(l_token)
else
ls_error = string(GetLastError())
//ls_result = "Conección a Fallado"
end if
return lb_yes
Valora esta pregunta
0