info function sample and more system information

REM /**
REM  * infoFunction.bbj
REM  * @author VANDEN
REM  */
tc! = bbjapi().getThinClient()
tc!=BBjAPI().getThinClient()
        txt$=txt$+tc!.toString()
        txt$=txt$+""+
:       "+++BBx Betriebssystem (0,0):           "+info(0,0)+
:       "+++BBx Betriebssystem Version (0,1):   "+info(0,1)+
:       "+++Server Basis Port ID (0,2):         "+info(0,2)+
:       "+++Client Basis Port ID ( tc!.getClientPortID() ): "+tc!.getClientPortID()+
:       "+++CPU ID (1,0):                       "+info(1,0)+
:       "+++server JVM unque ID (1,5) :         "+hta(info(1,5))+
:       "+++client JVM unque ID (1,6) :         "+hta(info(1,6))+
:       "+++Current User Slot Number (2,4):     "+str(dec(info(2,4)))+
:       "+++license Version (2,7):              "+str(dec(info(2,7)))+
:       "+++unique Task ID 4byte (3,0):         "+str(dec(info(3,0)))+
:       "+++unique Task ID 8byte (3,1):         "+str(dec(info(3,1)))+
:       "+++Username (3,2):                     "+info(3,2)+
:       "+++Login Beschreibung (3,3):           "+info(3,3)+
:       "+++Hostname (3,4):                     "+info(3,4)+""+
:       "+++Aktivierungsschlüssel (3,5):        "+info(3,5)+
:       "+++GUI System (6,0):                   "+info(6,0)
        x=msgbox( cast(BBjString,txt$).replace("+++",$0d0a$) )
     
for i=0 to 99999
    if (i>0 and mod(i,20)=0) input "press enter to continue",a$
    ?"INFO(7,"+str(i)+") = "+info(7,i,err=*break)
next i
   
end

Benefit from the best Windows Desktop app in the world and use Strokey.Net!