API problems with: WNetVerifyPasswordA

[Electroman]

Is there any way to get round the problem of when a wrong password is put in here too many times it takes something like 4 min to reply.


Private Declare Function WNetVerifyPassword Lib "mpr.dll" _
Alias "WNetVerifyPasswordA" _
(ByVal lpszPassword As String, _
ByRef pfMatch As Long) As Long


Public Function VerifyWindowsLoginUserPassword(ByVal Password As String) As Boolean
Dim rtn As Long, Match As Long
rtn = WNetVerifyPassword(Password, Match)
If rtn Then
VerifyWindowsLoginUserPassword = False
Else
VerifyWindowsLoginUserPassword = (Match <> 0)
End If
End Function