ITravelInterfaceCanManageArea Property |
Namespace: SuperOffice.COM.SuperOfficeDB
CanManageArea
This text may be copied to the notepad, and saved as a *.vbs file. Remember to change the login information.
Dim objSO Dim objTI Set objSO = CreateObject("SuperOffice.Application") If not (objSO is nothing) Then Set objTI = objSO.Database.TravelInterface If objTI.CanManageArea Then MsgBox "The currently logged in associate may manage areas." Else MsgBox " The currently logged in associate may not have the correct permissions. Check log file for error message." End If Else MsgBox "Could not log in" End If Set objSO = Nothing