Application.GetProjectServerVersion method (Project)

Article
01/19/2022

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

Name	Required/Optional	Data type	Description
ServerURL	Required	String	A 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

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.

Share via