ISettingsNetServerEAILicense Property |
Namespace: SuperOffice.COM.SuperOfficeDB
NetServer EAI License
Dim objSO Dim a Dim objSettings Set objSO = CreateObject("SuperOfficeDB.Database") If Not (objSO Is Nothing) Then a = objSO.Login("<userID>", "<password>") Set objSettings = objSO.Database.Settings MsgBox "Is there a NetServer EAI licenses: " & objSettings.NetServerEAILicense Else MsgBox "Unable to connect to database" End If Set objSO = Nothing