Share via


GetEnterpriseMode Method

Description

Returns the Enterprise Mode setting in MSP_WEB_ADMIN.WADMIN_ENABLE_ENTERPRISE for Microsoft Office Project Server 2003 using the Project Server security object.

Syntax

Function GetEnterpriseMode() As Long

Parameters

None.

Return Value

The GetEnterpriseMode method returns True (1) or False (0) as a Long (4-byte integer) value.

Example

The following example is for Microsoft Visual Basic 6.0.

Dim lResult as Long
Set oSec = CreateObject("PjSvrSecurity.PjSvrSecurity")
oSec.SetDBConnection "ProjectServer"
lResult = oSec.GetEnterpriseMode()
Set oSec = Nothing