I tried the following, but id doesnt work.

Declared in Module1.bas:

Declare Function LogonUser Lib "ADVAPI32.DLL" Alias "LogonUserA" (ByVal
lpszUsername As String, ByVal lpszDomain As String, ByVal lpszPassword
As String, ByVal dwLogonType As Long, ByVal dwLogonProvider As Long,
phToken As Long) As Long

in the load of form1:

Dim Username As String, Domain As String
Dim Password As String, Type1 As Long
Dim Provider As Long, token As Long
Dim x As Long

Username = "Steve"
Domain = "stars"
Password = "miller"
Type1 = 0
Provider = 0
token = 0
x = LogonUser(Username, Domain, Password, Type1, Provider, token)

X comes back as 0, which means it was unsuccessful.
I even tried using "\\stars" for the domain and still get 0 for X.

Can anyone provide a working example?

Thanks!
Steve Miller

You need to have the SeTcbPrivilege ("Act as part of the operating system")
to call LogonUser(). Otherwise, LogonUser() returns 0 and GetLastError()
returns 1314 (ERROR_PRIVILEGE_NOT_HELD).

Call AdjustTokenPrivilege() on your process's handle.
--
Damit Senanayake
ICQ#: 6930718
#include <stdio.h>
#include <ctype.h>
void main(){ const char*
s="\x044\x061\x06D\x069\x074\x020\x069\x073\x020\x040\x020\x061\x06C\x074\x0
61\x076\x069\x073\x074\x061\x02E\x06E\x065\x074"; char d[24]; for(int
i=0;i<25;i++) {d[i]=toascii(s[i]);} puts(d);}

Thanks,

John Granade

kirk