↧
Kevin
** 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