Cherche moyen de surveiller la consommation de licences citrix

xenapp
1

Bonjour,



je cherche un script ou un moyen de surveiller la consommation de licences citrix





merci pour vos reponses

2

il faudra faire un script WMI

tu cherches quoi exactement?

3

En fait je cherche un moyen de m alerter sur la consommation de licences



Par exemple alerte si 90 % de licences utilisés ou alerte si utilisation de plus de 900 licences sur 1000

4

ya dejà la possibilité de définir des alertes dans la console de gestion des licences

5

oui mais il est nécessaire de vérifier dans la licence management console



J’aimerais créé une alerte par mail ou autre qui ne necessite pas de vérifier dans la console réguliérement

6

est il possible dinterroger le sereur de licences avec les objets mfcom ?

7

Il existe ce script que je n’ai pas testé :



This is how I do it. I have the script below scheduled to run every couple of minutes. It will email you when license usage hits the limit (or whatever limit you set). An SMTP server is required.

' Script : CitrixLicCount.vbs
' Description : Check Licenses in use
' Author : Super Pippo
' Date : 7.10.2005
' Revision :
' Argument : none
'
smtpServer = "your SMTP server"
sRecipients = "recipient"
sFrom = "sender"
sSL = "Citrix Licensing Warning"
Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSendUsingPort = 2 '//This is for network, for a localhost smtp server use 1
Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPServerPort = "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
Public countLicenses
WarningLimit = 1000 'choose the limit that triggers the alarm

CheckMPSLicUsage

Function CheckMPSLicUsage
CommandLine = "c:program filescitrixlicensinglslmstat -a"
Set objShell = CreateObject("WScript.Shell")
Set oExec = objShell.Exec(CommandLine)
countLicenses = 0

Do Until oExec.StdOut.AtEndOfStream
Input = oExec.StdOut.ReadLine
if InStr(Input, "MPSCLIENT") Then
countLicenses = countLicenses + 1
end if
Loop

End Function

if countLicenses WarningLimit Then
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

With Flds
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = smtpServer
.Update
End With

With iMsg
Set .Configuration = iConf
.To = sRecipients
.CC = sCopy
.From = sFrom
.Sender = sSender
.Subject = sSL
.TextBody = "Citrix Licensing server is using " & countLicenses & " licenses."
.Send
End With

Set iMsg = Nothing
Set iConf = Nothing

End if


http://www.brianmadden.com/Forum/Topic/35819
8

Bonjour,

"bm" wrote:
est il possible dinterroger le serveur de licences avec les objets mfcom ?

WMI...

On Error Resume Next



Const wbemFlagReturnImmediately = &h10

Const wbemFlagForwardOnly = &h20

StrLicencesInfo = ""



arrComputers = Array(inputbox("serveur de licences:"))





For Each strComputer In arrComputers

  Set objWMIService = GetObject("winmgmts:" & strComputer & "rootCitrixLicensing")

  Set colItems = objWMIService.ExecQuery("SELECT * FROM Citrix_GT_License_Pool", "WQL", _

    wbemFlagReturnImmediately + wbemFlagForwardOnly)



    For Each objItem In colItems

      StrLicencesInfo = StrLicencesInfo & VBCRLF &  objItem.PLD & ": " & objItem.InUseCount & "/" & objItem.Count

    Next

Next



wscript.echo StrLicencesInfo
9

Effectivement, c’est plus pratique en WMI.



Par contre Laurent, il faut que tu vire les balises de code, cela déconne.

10

c’est marrant … c’est-y pas que ce j’avais dit tout en haut ? ok… j’avais pas donné de script mais ya des exemples sur www.citrix.com/cdn

11

Merci pour les scripts je vais tester cela