' $System.Access Read UserList
$Office.Name - User Table
' If ($GID != 0) and ! $Groups.$GID
' If $Login.Group
' $GID = $Login.Group.ID
' Elif $Login.Groups.Count
' $GID = $Login.Groups.Head
' Else
' $GID = $Groups.Head
' EndIf
' EndIf
' If $GID
' Set $g = $Groups.$GID.Users
' Else
' Set $g = $Users
' EndIf
Number of Registered User : $Users.Count
' If $GID
( $Groups.$GID.Name : $Groups.$GID.Users.Count )
' EndIf
| Name | Email | URL | Contact |
' For Each $Item in $UserList.Items
$Item.Name
|
' Next
|---|
' For Each $User in $g
' If $User.ID = $Login.ID
 $User.Name |
' Else
 $User.Name |
' EndIf
$_User.Mail.MailTo
|
' If $User.URL = http://
|
' Else
$User.URL
|
' EndIf
$User.Tel
|
' Set $Card = $User.UserList
' For Each $Item in $UserList.Items
' $IID = $Item.ID
' If $Item.Type = Mail
$_Card.$IID.MailTo
|
' Elif ($Item.Type = URL) and ($Card.$IID = http://)
|
' Elif $Item.Type = URL
$Card.$IID
|
' Elif ($Item.Type = Image) and $Card.$IID
' $FID = $Card.$IID
' Set $f = $Card.Files.$FID
' $d = $f.Date
(image) |
' Else
$Card.$IID
|
' EndIf
' Next
' Next