Serveur licence flexlm

Version imprimable

04/09/2007, 09h49
Link61

Serveur licence flexlm

Bonjour,

J’ai un serveur de licence autocad (flexlm) sous windows, je me suis fait un .bat pour voir les licences utilisées qui ressemble a ca (v:\flexlm\lmutil lmstat -c v:\flexlm\license\frfleprn0001.lic –a) et souvent j’ai des licences qui restent bloquées. J’arrive a les debloquer a la main mais je voudrais faire cela en automatique (genre tous les soir a 23h killer toutes les licences). Quelqu’un pourrais me dire comment faire ?
Merci par avance
04/09/2007, 09h53
shawn12

Comment on "kille des licences" ? Il faut supprimer des fichiers, les déplacer ? Arreter un processus ?
04/09/2007, 10h04
Link61

Arreter un processus je pense.
Quand une licence est prise par un poste elle a un n° et pour les killer a la main je me suis fait un autre .bat (v:\flexlm\lmutil lmremove -c v:\flexlm\license\frfleprn0001.lic -h 51300INVBUN_11_0F FRFLEPRN0001 27000 121) dans mon ex le n° est 121. Et donc quand plusieur licences sont bloquées je doit changer ce n° pour chaque licences.
04/09/2007, 16h30
shawn12

Tu peux peut etre utiliser l'operateur FOR dans ton fichier .bat

Jette un coup d'oeil ici : http://www.hotline-pc.org/batch.htm à la section "Les structures de contrôles"

Bonsoir,
tu peux simplement parcourir les Process et juste tuer les process commencant par "FRFLEPRN0001 27000" (Si c'est bien ca le nom)
Donc ca donne ca en vbs :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Option Explicit
Dim objWMIService, objProcess, colProcess
Dim strComputer, strList, strProcessToKill
Dim intCpt
strProcessToKill ="calc.exe" 'Nom du process"
strComputer = "."  'Nom de l'ordinateur serveur ou il y a les process. (tu peux laisser le .  pour le local

 
intCpt = 0
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _ 
& strComputer & "\root\cimv2") 
Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process")
For Each objProcess in colProcess
if Left(objProcess.Name,2) = Left(strProcessToKill,2) then
'On test que le début du process est identique à celui du process 
'Left(strProcessToKill,2, tu peux mettre juste strProcess si tu met le début qui est commun à tout tes process de licence. Il faut ajuster le nombre du  Left(objProcess.Name,2) . on prend que les deux premieres lettres du process et on vérifier qu'elle soit identique. 
 
objProcess.Terminate() 'tue le process
intCpt = 1 + intCpt
end if
Next
WSCript.Echo intCpt & " Process Kill"
WScript.Quit

Voila globalement !!
Par contre met bien le nom de ton process.
Cdt