Item

Beschreibung:

Gibt einen Benutzer zurück. Es muss die Index-Nummer des Eintrages übergeben werden. Der Index geht von 1 bis Count.

Parameter:

Parametername

Typ

Beschreibung

Index

Long

Index-Nummer.

Rückgabewert:

User

Beispiel VBScript:

Dim oUsers : Set oUsers = cRM.CurrentProject.Users

Dim nUserCount : nUserCount = oUsers.Count

Dim oUser

Dim nCounter : nCounter = 0

Dim nCurrentlyLoggedIn : nCurrentlyLoggedIn = 0

 

For nCounter = 1 To nUserCount

 

    Set oUser = oUsers.Item(nCounter)

   

    If (oUser.IsLoggedIn = True) Then

        nCurrentlyLoggedIn = nCurrentlyLoggedIn + 1

    End If

   

    Set oUser = Nothing

 

Next

 

Call cRM.DialogMessageBox("Aktuelle Anzahl angemeldeter Benutzer: " & CStr(nCurrentlyLoggedIn), "Users.Item", vbOkOnly)

 

Set oUsers = Nothing

Beispiel C#-Script:

Users users = cRM.CurrentProject.Users;

long loggedInUserCount = 0;

 

foreach (User user in users)

{

    if (user.IsLoggedIn == true)

    {

        loggedInUserCount++;

    }

}

 

cRM.DialogMessageBox("Aktuelle Anzahl angemeldeter Benutzer: " + loggedInUserCount.ToString(), "Users.Item", 0);

 

users.Dispose();