The following is a VB.NET sample that retrieves the administration information.

GetAdminInfo (Visual Basic)

Copy Code

Dim oCompanyService As SAPbobsCOM.CompanyService Dim oCompanyAdminInfo As AdminInfo Dim sAddress As String 'get company service oCompanyService = oCompany.GetCompanyService 'get admin info oCompanyAdminInfo = oCompanyService.GetAdminInfo 'set company name oCompanyAdminInfo.CompanyName ="My Company" 'set Company color 'Sets the number of the background color for active windows '(e.g Red=8,Orange=7) oCompanyAdminInfo.CompanyColor = 8 'set phone number oCompanyAdminInfo.PhoneNumber1 ="6666666" 'set email oCompanyAdminInfo.EMail ="MyMail@mail.com" 'update the admin info oCompanyService.UpdateAdminInfo(oCompanyAdminInfo)