#define LOGON32_PROVIDER_DEFAULT 0 #define LOGON32_LOGON_INTERACTIVE 2 #define LOGON32_LOGON_NETWORK 3 #define LOGON32_LOGON_BATCH 4 #define LOGON32_LOGON_SERVICE 5 #define LOGON32_LOGON_UNLOCK 7 DECLARE integer LogonUser IN AdvApi32.DLL; string szUsername,; string lpszDomain,; string lpszPassword,; integer dwLogonType,; integer dwLogonProvider,; integer @phToken DECLARE integer ImpersonateLoggedOnUser IN AdvApi32.DLL integer hToken local nToken nToken = 0 LogonUser(“UserID”, “Domain”, “Password”) ,LOGON32_LOGON_INTERACTIVE, LOGON32_PROVIDER_DEFAULT, @nToken) IF nToken # 0 ImpersonateLoggedOnUser(nToken) WAIT WINDOW "Logged in Successfully..." Nowait ELSE WAIT WINDOW "Can not log in to the server..." EndIf