FiveTech Software tech support forums

... in this code .. nView = 3 //nView := 3 Do Case Case nVIEW = 1 PRINTER oPRINT FROM USER ; PREVIEW MODAL ; NAME "Request Print Routine "+xLOGIN IF EMPTY( oPRINT:hDC ) MsgStop ( "Printer not Ready !" ) CLOSE DATABASES oDlg:END() RETURN(NIL) ENDIF Case nVIEW = 2 PRINTER oPRINT ...

Validating a user is not difficult .. first of all I use the function WnetGetUser: xLOGIN := UPPER( WNetGetuser() )+space(15) // fivewin functionxLOGIN := SUBSTR(xLOGIN,1,15)  Take the results of xLogin and search your user table .. ...

To All I use the WNetGetUser() function to extract the logged in User Id on the workstation and save it to a Public variable xLogin .. I use xLogin to find the UserID stored in my security table to assign permissions as you saw earlier .. If there is no match .. I force a manual login. ...

... problem. Sorry for the attached code .. I have tried to condense it. Rick Lipkin SC Dept of Health, USA //------------------------------- IF xLOGIN = "UNKNOWN" yLOGIN := WNetGetUser() // FiveWin function yLOGIN := UPPER( yLOGIN ) oSAY := NIL cSAY := NIL cWELCOME := "WELCOME to the PMO Strategic ...

... substitute the same image in .jpg format rather than bitmap .. Rick Lipkin SC Dept of Health, USA //----- main menu -------// xMESSAGE := "User "+xLOGIN+" Rights "+cRIGHTS+ ; " Default= "+cDEFA+" Rdd= "+cRDD+ ; " Revision "+DTOC(dEXE)+; " -r"+str(nSCR1,4)+" x "+STR(nSCR2,4) DEFINE ICON oICO RESOURCE ...

... the code snipit I inserted : IF xADMIN = 'Y' MENUITEM "&Change Agency .." ; ACTION( _ChgAgen(), ; cRIGHTS := _Rights(), ; xMESSAGE := ("User "+xLOGIN+" Rights "+cRIGHTS+ ; " Default= "+xDEFA+" Rdd= "+cRDD+ ; " Revision "+DTOC(dEXE)+; " Agency\Mp= "+ALLTRIM(xAGENCY)+"\"+alltrim(xPOOL)+; " -r"+str(nSCR1,4)+" ...

... "Utilities Programs" IF xADMIN = 'Y' MENUITEM "&Login Diff User .." ; ACTION( _Log_in(), ; cRIGHTS := _Rights(), ; xMESSAGE := ("User "+xLOGIN+" Rights "+cRIGHTS+ ; " Default= "+xDEFA+" Rdd= "+cRDD+ ; " Revision "+DTOC(dEXE)+; " Agency\Mp= "+ALLTRIM(xAGENCY)+"\"+alltrim(xPOOL)+; " -r"+str(nSCR1,4)+" ...

Bryon

I find this works because it looks at the credentials of the workstation profile. In Microsoft the workstation profile and the AD network id should be the same and syncronized..

Works from Win98 thru Vista

xLOGIN := WNetGetUser() // FiveWin function

Rick Lipkin
SC Dept of Health, USA

To All I have a message bar : xMESSAGE := "User "+xLOGIN+" Rights "+cRIGHTS+ ; " Default= "+cDEFA+" Rdd= "+cRDD+ ; " Revision "+DTOC(dEXE)+; " -r"+str(nSCR1,4)+" x "+STR(nSCR2,4) SET MESSAGE OF oWind ; to xMESSAGE CLOCK How can I update the message ...

... Id='+xUSERID+';Password='+xPASSWORD ) CATCH oErr MsgInfo( "Error in Opening USERINFO table" ) RETURN(.F.) END TRY oRs:Find("USERID = '"+xLOGIN+"'" ) IF oRs:eof oRs:MoveFirst() ENDIF DEFINE WINDOW oUser ; FROM 2,2 to 25,65 ; of oWndMDI ; TITLE "USERINFO Records Browse" ; MENU BuildMenu(oRs) ...