Click or drag to resize

ISettingsWindowsClientUsers Property

Returns the number of users allowed to log into the windows client Requires login

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

Property Value

Type: Int32
Long – the number of users
Examples

WindowsClientUsers

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

VB
Dim objSO
Set objSO = CreateObject("SuperOfficeDB.Database")
If not (objSO is nothing) Then
    objSO.login "<userID>", "<password>"
    dbSettings = ojbSO.Settings

        msg = msg & "AudienceSites:" & dbSettings.AudienceSites & vbCrLf
        msg = msg & "CentralArchivePath:" & dbSettings.CentralArchivePath & vbCrLf
        msg = msg & "CentralDataSource:" & dbSettings.CentralDataSource & vbCrLf
        msg = msg & "CurrentArchivePath:" & dbSettings.CurrentArchivePath & vbCrLf
        msg = msg & "CurrentDataSource:" & dbSettings.CurrentDataSource & vbCrLf
        msg = msg & "CurrentTemplatePath:" & dbSettings.CurrentTemplatePath & vbCrLf
        msg = msg & "ExpanderKeyLicense:" & dbSettings.ExpanderKeyLicense & vbCrLf
        msg = msg & "ExpirationDate:" & dbSettings.ExpirationDate & vbCrLf
        msg = msg & "GetNumLicense(windows):" & dbSettings.GetNumLicense("windows") & vbCrLf
        msg = msg & "HasLicense(import):" & dbSettings.HasLicense("SuperOffice.import") & vbCrLf
        msg = msg & "LanguageCode:" & dbSettings.LanguageCode & vbCrLf
        msg = msg & "LocalArchivePath:" & dbSettings.LocalArchivePath & vbCrLf
        msg = msg & "LocalDataSource:" & dbSettings.LocalDataSource & vbCrLf
        msg = msg & "LoginUsers:" & dbSettings.LoginUsers & vbCrLf
        msg = msg & "NetServerClientUsers:" & dbSettings.NetServerClientUsers & vbCrLf
        msg = msg & "NetServerCollaborativeLicense:" & dbSettings.NetServerCollaborativeLicense & vbCrLf
        msg = msg & "NetServerEAILicense:" & dbSettings.NetServerEAILicense & vbCrLf
        msg = msg & "NetServerOverrides:" & dbSettings.NetServerOverrides.Length & vbCrLf
        msg = msg & "NotesLinkSites:" & dbSettings.NotesLinkSites & vbCrLf
        msg = msg & "OutlookMailLinkSites:" & dbSettings.OutlookMailLinkSites & vbCrLf
        msg = msg & "OutlookSynchronizerUsers:" & dbSettings.OutlookSynchronizerUsers & vbCrLf
        msg = msg & "ProgPath:" & dbSettings.ProgPath & vbCrLf
        msg = msg & "ReporterUsers:" & dbSettings.ReporterUsers & vbCrLf
        msg = msg & "SaintEnabled:" & dbSettings.SaintEnabled & vbCrLf
        msg = msg & "SaintLicense:" & dbSettings.SaintLicense & vbCrLf
        msg = msg & "SaintUpdateInRealTime:" & dbSettings.SaintUpdateInRealTime & vbCrLf
        msg = msg & "Satellites:" & dbSettings.Satellites & vbCrLf
        msg = msg & "SerialNumber:" & dbSettings.SerialNumber & vbCrLf
        msg = msg & "SuperofConfigPath:" & dbSettings.SuperofConfigPath & vbCrLf
        msg = msg & "SuperofIniPath:" & dbSettings.SuperofIniPath & vbCrLf
        msg = msg & "SuperofLogPath:" & dbSettings.SuperofLogPath & vbCrLf
        msg = msg & "SyncEngineUsers:" & dbSettings.SyncEngineUsers & vbCrLf
        msg = msg & "SynchronizerSites:" & dbSettings.SynchronizerSites & vbCrLf
        msg = msg & "TotalLogins:" & dbSettings.TotalLogins & vbCrLf
        msg = msg & "UpdatedTravelUsers:" & dbSettings.UpdatedTravelUsers & vbCrLf
        msg = msg & "WebUsers:" & dbSettings.WebUsers & vbCrLf
        msg = msg & "WindowsClientUsers:" & dbSettings.WindowsClientUsers & vbCrLf
    msgbox msg
else
    MsgBox "Unable to connect to database"
end if
Set objSO = Nothing

See Also