home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / DOS / Programa / AGSPC1B2.ZIP / IEMSI_.PPS < prev    next >
Encoding:
Text File  |  1996-08-08  |  1.0 KB  |  37 lines
  1. ;----------------------------------------------------------------------------
  2. ;
  3. ;  IEMSI Example
  4. ;
  5. ;  Make sure you include the files IEMSI.MSG and IEMSI.CFG in your app
  6. ;  as they are needed by the iemsi library
  7. ;
  8. ;----------------------------------------------------------------------------
  9. #ppe
  10. #libpath ..\..\lib
  11. #use iemsi
  12.  
  13. ; launch IEMSI detection
  14.  
  15. Iemsi()
  16.  
  17. ; Here you could simply write your login PPE, we will just report infos
  18. ; returned by IEMSI...
  19.  
  20. If (!IEMSI_OK) Then
  21.     PrintLn "User does not have IEMSI capabilities"
  22. Else
  23.     PrintLn "IEMSI tells that the user's name is ", IEMSI_ClientName
  24.     If (U_RecNum(Upper(IEMSI_ClientName)) <> -1) Then
  25.         Print "and that his password is "
  26.         If (IEMSI_ClientPassword = "") Then
  27.             PrintLn "not in the packet..."
  28.         Else
  29.             PrintLn """", IEMSI_ClientPassword, """"
  30.         Endif
  31.     Else
  32.         Println "He's new on this system!"
  33.     Endif
  34.     If (IEMSI_CrkTerminate) PrintLn "He is using a cracked version of terminate! :)"
  35. Endif
  36.  
  37.