FUNCTION LogonUser ************************************************************************ * wwAPI :: LogonUser ********************************* *** Function: Check whether a username and password is valid *** Assume: Account checking must have admin rights *** Pass: Username, Password and optionally a server *** Return: .T. or .F. ************************************************************************ LPARAMETERS lcUsername, lcPassword, lcServer IF EMPTY(lcUsername) RETURN .F. ENDIF IF EMPTY(lcPassword) lcPassword = "" ENDIF IF EMPTY(lcServer) lcServer = "." ENDIF #define LOGON32_LOGON_INTERACTIVE 2 #define LOGON32_LOGON_NETWORK 3 #define LOGON32_LOGON_BATCH 4 #define LOGON32_LOGON_SERVICE 5 #define LOGON32_PROVIDER_DEFAULT 0 DECLARE INTEGER LogonUser in WIN32API ; String lcUser,; String lcServer,; String lcPassword,; INTEGER dwLogonType,; Integer dwProvider,; Integer @dwToken lnToken = 0 lnResult = LogonUser(lcUsername,lcServer,lcPassword,; LOGON32_LOGON_NETWORK,LOGON32_PROVIDER_DEFAULT,@lnToken) DECLARE INTEGER CloseHandle IN WIN32API INTEGER CloseHandle(lnToken) RETURN IIF(lnResult=1,.T.,.F.) ENDFUNC * wwAPI :: LogonUser>