Table of contents
TOC
Collapse the table of content
Expand the table of content

Application.GetProjectServerVersion Method (Project)

office 365 dev account|Last Updated: 6/12/2017
|
1 Contributor

This method checks the version of the Project Server for the active project. The method can also be used to check whether a particular server URL points to a valid and functioning Project Server.

Syntax

expression. GetProjectServerVersion( ** ServerURL** )

expression A variable that represents an Application object.

Parameters

NameRequired/OptionalData TypeDescription
ServerURLRequiredStringA string representing the URL of the Project Server whose version needs to be checked.

Return Value

PjServerVersionInfo

Remarks

If the ServerURL argument does not point to a valid and functioning Project Server, the method returns a trappable error (error code 1004).

Example

The following sample returns an XML stream representing the following settings from Project Server: ProjectServerSettingsRequest, AdminDefaultTrackingMethod, AdminTrackingLocked, ProjectIDInProjectServer, ProjectManagerHasTransactions, ProjectManagerHasTransactionsForCurrentProject, TimePeriodGranularity, and GroupsForCurrentProjectManager.

Sub mpsVersion() 
 URL = ActiveProject.ServerURL 
 If Application.GetProjectServerVersion(URL) = pjServerVersionInfo_P10 Then 
 ActiveProject.MakeServerURLTrusted 
 xmlStream = Application.GetProjectServerSettings( _ 
 RequestXML:="<ProjectServerSettingsRequest>" _ 
 &; "<AdminDefaultTrackingMethod /><AdminTrackingLocked />" _ 
 &; "<ProjectIDInProjectServer />" _ 
 &; "<ProjectManagerHasTransactions />" _ 
 &; "<ProjectManagerHasTransactionsForCurrentProject />" _ 
 &; "<TimePeriodGranularity /><GroupsForCurrentProjectManager />" _ 
 &; "</ProjectServerSettingsRequest>") 
 MsgBox xmlStream 
 Else 
 MsgBox "This macro returns information from Project " _ 
 &; "Server. Please choose 'Collaborate using Project " _ 
 &; "Server' and specify a valid Project Server URL " _ 
 &; "for this project in Collaboration Options (Collaborate menu)." 
 Exit Sub 
 End If 
End Sub
© 2018 Microsoft