I am sharing the script that has been posted in the past and I added a few
extra lines to end. You do have to have the RBase Plugin's for this to work
(at least the last 5 lines). I compile my app's and use RBTI Installer for
easy distribution and control of exe names. So I would replace
vRBG_Compiled1|Name_Comiled.EXE with vRBG_Compiled1|coserv.exe
coserv.exe being the name of my compiled app. I also kept the RBG##.exe for
by own use.
I personally made a form and made it a little pretty and gave a
"Right-Click" option on by "Main Menu" screen at Startup. The tech's and my
other employees that are not computer savvy prefer this method.
End Result: Even if I fixed the problem and it was a "Microsoft Users Issue"
I still have to show these people that the problem is resolved or they think
if it rains out it is because there is more than 1 session/app running.
This gives them the POWER! and ability to monitor it and leave me to do
other things. I will mention that two users looked at me and were shocked
by the user count. They refreshed it and then walked around the office
counting and we are at half the staff today. They are now thinking more
about multi-users and the load on the system. Maybe they will close running
programs also.
I am still working and tweaking a few items and trying to add a few
commands. And would appreciate any input you might have. No return at the
bottom (this runs in a form).
SET VAR vtdrives TEXT = (CVAL('Drives'))
SET VAR vtmulti2 TEXT = (CVAL('multi'))
SET VAR vtcurdrir TEXT = (CVAL('CURRDIR'))
SET VAR vtcurdrv TEXT = (CVAL('CURRDRV'))
SET VAR vtdbpath TEXT = (CVAL('DBPATH'))
SET VAR vtfspace DOUBLE = (ISTAT('DISKSPACE'))
SET VAR vtfspace2 INTEGER = (.vtfspace / 1000000000)
SET VAR vtfspace2 TEXT = ((CTXT(.vtfspace2) + ' /gig'))
SET VAR vtfreemem INTEGER = ((ISTAT('MAXFREE')) / 1000)
SET VAR vtstatic TEXT = (CVAL('STATICDB'))
SET VAR vtfastlck TEXT = (CVAL('FASTLOCK'))
SET VAR vtquals TEXT = (CVAL('QUALCOLS'))
SET VAR vtsctratch TEXT = (CVAL('SCRATCH'))
SET VAR vtbuild TEXT = ('Build:'&(CVAL('BUILD')))
SET VAR vtversion TEXT = ('Version:'&(CVAL('VERSION BUILD')))
SET VAR vtconnections TEXT = (CVAL('CONNECTIONS'))
PLUGIN RInstanceCount.rbl vRBG76|RBG##.EXE
PLUGIN RInstanceCount.rbl vNHI3|RScheduler##.EXE
PLUGIN RInstanceCount.rbl vRBG_Compiled1|Name_Comiled.EXE
PLUGIN RInstanceCount.rbl vRBG_Compiled2|Name_Comiled.EXE
PLUGIN RInstanceCount.rbl vRBG_Compiled3|Name_Comiled.EXE
Paul
