Beschreibung:
Zählt wie viele Benutzer aktuell im Projekt eingeloggt sind.
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
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();
TypeScript:
import {
cRM,
User,
Users
} from "./sdk/combitCRM.SDK.WindowsClient.v13";
const users : Users = cRM.CurrentProject.Users;
const userCount : number = users.Count;
let currentlyLoggedIn : number = 0;
for (let i = 1; i <= userCount; i++) {
const user : User = users.Item(i);
if (user.IsLoggedIn) {
currentlyLoggedIn++;
}
}
cRM.DialogMessageBox(
`Aktuelle Anzahl angemeldeter Benutzer: ${currentlyLoggedIn}`,
"Users.Item",
0
);