Click or drag to resize

IAdminTotalWebUsers Property

Total number of Web user licenses

Namespace:  SuperOffice.COM.SuperOfficeDB
Assembly:  SuperOfficeDB.Interop (in SuperOfficeDB.Interop.dll) Version: 8.0.0.0
Syntax
int TotalWebUsers { get; }

Property Value

Type: Int32
Long - number
Examples

Check lisence status

This text may be copied to the notepad, and saved as a *.vbs file. Remember to change the login information.

VB
set objso = CreateObject("superofficedb.database")
if objso.login("USERNAME", "PASSWORD") then
    set admin = objso.Admin
        msg = msg & "************* Database license info *************" & vbCrLf
        msg = msg & "Total Asynch Users: " &  admin.TotalAsynchUsers & vbcrlf 
        msg = msg & "Number of Asynch Users Left: " &  admin.NumAsynchUsersLeft & vbcrlf  
        msg = msg & "Total Intellisync Users: " &  admin.TotalIntellisyncUsers & vbcrlf 
        msg = msg & "Number ofIntellisync Users Left: " &  admin.NumIntellisyncUsersLeft & vbcrlf 
        msg = msg & "Total Netserver Users: " &  admin.TotalNetserverUsers & vbcrlf  
        msg = msg & "Number of Netserver Users Left: " &  admin.NumNetserverUsersLeft & vbCrLf
        msg = msg & "Total Outlook Synchronizer Users: " &  admin.TotalOutlookSynchronizerUsers & vbcrlf  
        msg = msg & "Number of Outlook Synchronizer Users Left: " &  admin.NumOutlookSynchronizerUsersLeft & vbcrlf 
        msg = msg & "Total ReporterSDK Users: " &  admin.TotalReporterSDKUsers & vbcrlf
        msg = msg & "Number of ReporterSDK Users Left: " &  admin.NumReporterSDKUsersLeft & vbcrlf 
        msg = msg & "Total Users: " &  admin.TotalUsers & vbcrlf 
        msg = msg & "Number of Users Left: " &  admin.NumUsersLeft & vbcrlf 
        msg = msg & "Total Web Users: " &  admin.TotalWebUsers & vbcrlf  
        msg = msg & "Number of Web Users Left: " &  admin.NumWebUsersLeft & vbcrlf 
        msg = msg & "Total Win Users: " &  admin.TotalWinUsers & vbcrlf
        msg = msg & "Number of Win Users Left: " &  admin.NumWinUsersLeft & vbcrlf
    msgbox msg, ,"SuperCOM"
else
    MsgBox "Unable to connect to database"
end if
Set objSO = Nothing

See Also