Poder Hacer login de windows desde VB

[misterpc27]

Bueno si a alguien le interesa aki esta el codigo de comprobacion de password de un usuario

Private Const NERR_BASE As Long = 2100
Private Const NERR_PasswordCantChange As Long = (NERR_BASE + 143)
Private Const NERR_PasswordHistConflict As Long = (NERR_BASE + 144)
Private Const NERR_PasswordTooShort As Long = (NERR_BASE + 145)
Private Const NERR_PasswordTooRecent As Long = (NERR_BASE + 146)

Private Declare Function NetUserChangePassword Lib "netapi32.dll" (ByVal sDomain As String, ByVal sUserName As String, ByVal sOldPassword As String, ByVal sNewPassword As String) As Long


Public Function ValidateSysPassword(ByVal sPassword As String, Optional ByVal sUserName As String, Optional ByVal sDomain As String) As Boolean
If Len(sUserName) = 0 Then
sUserName = Environ$("USERNAME")
End If
If Len(sDomain) = 0 Then
sDomain = Environ$("USERDOMAIN")
End If

Select Case NetUserChangePassword(StrConv(sDomain, vbUnicode), StrConv(sUserName, vbUnicode), StrConv(sPassword, vbUnicode), StrConv(sPassword, vbUnicode))

Case 0, NERR_PasswordCantChange, NERR_PasswordHistConflict, NERR_PasswordTooShort, NERR_PasswordTooRecent

ValidateSysPassword = True

End Select
End Function


Saludos...
Y Gracias..