Hi all,

Anyone know a quick and dirty way in VB to read how many licenses are consumed on a server with floating licenses. We have a license server hosting 5 DA2 licenses. I want on the client side to see how many of these licenses are in use.

Thanks för an excellent forum!
/Henrik

Hello Dr. Henrik,

I'm not a VB script type of writer but I would think ther would be away to incorporate a LUM i4blt command to do the trick. Example: i4blt -s -lc-n "'your server'" -p "the product name". I think this command will give you the data your looking for. If not the LUM documentation "Using License Management Runitme" available on LUM's website has move information on the flags you can use with the i4blt command.

Regards,

Rick Jones
IBM PLM Technical Support  Americas

Hi Rick,

Sounds like a great idea. I could pull the dos prompt data into VB and decode it.
But I need some guidance to get the parameters in place:

You sad:
i4blt -s -lc -n "'your server'" -p "the product name"

My computer name (which is the lum server) is: HEKIWXP02
My license name is: DA2

I tried:
i4blt -s -lc -n HEKIWXP02 -p DA2

I got:
ADM-10102: Product da2 not found
I guess that would be to easy.
Any ideas what I'm doing wrong?

Hi Henki
try this script :

rem ----------------------------------------------------------------
rem Build Log filename
rem Format : yyyymmdd_hhHmm
rem ----------------------------------------------------------------

c:
mkdir c:\Temp\TempName2
cd c:\Temp\TempName2

date /t > date1.txt

for /f "tokens=1,2,3 delims=/ " %%i in (date1.txt) do set DATE1=%%k%%j%%i

time /t > heure1.txt

for /f "tokens=1,2 delims=: " %%i in (heure1.txt) do set HEURE1=%%iH%%j

set logname=%DATE1%_%HEURE1%

cd ..

rmdir /S /Q C:\Temp\TempName2

rem ----------------------------------------------------------------

C:
IF NOT EXIST "network_path\DE2_FOLLOW-UP" mkdir network_path\DE2_FOLLOW-UP


rem ----------------------------------------------------------------
rem *** Generate Log file from LUM ***

i4blt.exe -lp -n "HEKIWXP02" -p"'AM2-Catia Dsgn & Adv Mach 2 Cfg'"> network_path\DE2_FOLLOW-UP\DE2_%logname%.log
rem *** END ***
rem ----------------------------------------------------------------

by replacing the 'AM2-Catia dsgn & Adv Mach 2 Cfg' by the complete DS description of the DA licence

best regards