Anzahl in Gruppe angemeldeter Benutzer

[Mathias Gindler]

Hallo zusammen,

 

ich suche gerade erfolglos nach einer Möglichkeit, die Anzahl der in einer Gruppe angemeldeten Benutzer in einem ECR-Skript auszuwerten. Es würde mir bereits die Info reichen, ob überhaupt jemand angemeldet ist oder nicht.

Irgendwo hatte ich da mal einen Code (glaube ich), finde ihn aber nicht mehr :-(

 

Hintergrund dafür (vielleicht hat ja jemand noch eine bessere Idee):

Kunde hat künftig den Server in der Cloud stehen. Wenn in der Gruppe niemand angemeldet ist, kann ich davon ausgehen, dass die Verbindung vom Standort zum Swyx-Server nicht vorhanden ist und muss dann die Rufe an eine alternative Nummer (Handy) leiten.

 

Vielen Dank fürs Mitdenken :-)

 

Mathias

[Mathias Gindler]

Hallo,

 

ich antworte mir mal selbst, da ich mir gerade aus dem hier von Tom was gebastelt habe:

 

 

 

Ein paar Parameter geändert, und schon kommt das dabei heraus:

    '----------------------------------------------------------------
    ' IsAllGroupUsersLoggedOff
    '
    ' Checks if at least one memeber of the given group is busy.
    '
    ' Parameter
    '     sGroup        name or umber of group
    '
    ' Return
    '     boolean  
	'
	'
	' basiert auf IsAtLeastOneMemberOfGroupBusy
    '----------------------------------------------------------------
    Function IsAllGroupUsersLoggedOff(ByVal sGroup)
     
        PBXScript.OutputTrace "-------------> IsAllGroupUsersLoggedOff ( sGroup: " & sGroup & " )"
     
        Dim bReturn
        bReturn = True
     
        On Error Resume Next
     
        Dim oPBXConfig
        Set oPBXConfig = CreateObject("IpPBxSrv.PBXConfig")
        oPBXConfig.Initialize(PBXUser)
     
        Dim oUsers
        Set oUsers = oPBXConfig.GetUserByAddress(sGroup)
     
        If Err <> 0 Then
     
            PBXScript.OutputTrace "Empty group!"
     
        Else
     
            Dim oUser
            For Each oUser In oUsers
                PBXScript.OutputTrace "State of user " & oUser.Name & ": " & oUser.State
                If oUser.State > 1 Then bReturn = False
            Next
     
        End If
     
        oUsers = Nothing
        oPBXConfig = Nothing
     
        IsAllGroupUsersLoggedOff = bReturn
     
        PBXScript.OutputTrace "<------------- IsAllGroupUsersLoggedOff ( return: " & CStr(bReturn) & " )"
     
    End Function

 

Funktioniert bestens 🙂