通过

Application.GetProjectServerVersion Method

  • 项目
Project Developer Reference

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.

Visual Basic for Applications 
  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

See Also