Quantcast
Channel: West Wind Message Board Messages
Viewing all articles
Browse latest Browse all 10393

Re: wwapi:logonuser()

$
0
0
Re: wwapi:logonuser()
FoxPro Programming
Re: wwapi:logonuser()
04/08/2012
07:22:32 AM
3H30FT7AR Show this entire thread in new window
Gratar Image based on email address
From:
Kevin Emmrich
To:
Attachments:
None
But -- If I do use a "real" user name, then it will fail with a wrong password. But if I enter a bogus user name and password, it lets it pass.

Kevin


I am testing out logonuser() on my Vista machine and no matter what I pass, I get a true back:

** let's see about using LogOnUser() m.lcUserName = alltrim(thisform.cUserid) && I put in "hello" m.lcPassword = alltrim(thisform.cPassword) && i put in "there" -- and hello/there is not a user m.lcDomain = alltrim(thisform.cDomain) o=createobject("wwapi") llNTAuthenticate = o.LogonUser(m.lcUsername,m.lcPassword,m.lcDomain) *!* llNTAuthenticate = thisform.zLogonUser(alltrim(thisform.cUserId), alltrim(thisform.cPassword)) If llNTAuthenticate =dialog("Info","User ID and Password accepted -- "+alltrim(sys(0)) +" -- against domain " + m.lcDomain,"NT Security Check") Else lcError = o.GetSystemErrorMsg () =dialog("warning","User ID and Password REJECTED -- "+ lcError + chr(013) +"Workstation needs to be desiganted to 'Act as Part of the Operating System'.","NT Security Check Failed") Endif release o

Seems to work OK on 2003 and 2008, though -- what is happening here?

Thanks in advance,

Kevin


Viewing all articles
Browse latest Browse all 10393

Trending Articles