ISettingsSyncEngineUsers Property |
Namespace: SuperOffice.COM.SuperOfficeDB
SyncEngineUsers
This text may be copied to the notepad, and saved as a *.vbs file. Remember to change the login information.
Dim objSO Set objSO = CreateObject("SuperOfficeDB.Database") If not (objSO is nothing) Then objSO.login "USERNAME", "PASSWORD" msg = msg & "Number of Sync engine users " & objSO.Settings.SyncEngineUsers & vbcrlf msg = msg & "Number of windows client users " & objSO.Settings.WindowsClientUsers & vbcrlf msg = msg & "Number of total logins " & objSO.Settings.TotalLogins & vbcrlf msg = msg & "Location of SuperOffice logfile " & objSO.Settings.SuperOfLogPath & vbcrlf msg = msg & "Number of Outlook Mail Link sites " & objSO.Settings.OutlookMailLinkSites & vbcrlf msg = msg & "Number of Notes Link sites " & objSO.Settings.NotesLinkSites & vbcrlf msg = msg & "License expires " & objSO.Settings.ExpirationDate & vbcrlf msgbox msg else MsgBox "Unable to connect to database" end if Set objSO = Nothing