Application.GetProjectServerVersion method (Project)

Artikel
10/17/2024

Mit dieser Methode wird die Version von Project Server für das aktive Projekt überprüft. Mit dieser Methode können Sie auch überprüfen, ob eine bestimmte Server-URL auf einen gültigen und funktionsfähigen Server mit Project Server verweist.

Syntax

Ausdruck. GetProjectServerVersion( _ServerURL_ )

expression Eine Variable, die ein Application-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
ServerURL	Erforderlich	String	Eine Zeichenfolge für die URL des Servers mit Project Server, dessen Version überprüft werden muss.

Rückgabewert

PjServerVersionInfo

Hinweise

Wenn das ServerURL-Argument nicht auf einen gültigen und funktionsfähigen Server mit Project Server verweist, wird durch die Methode ein auffangbarer Fehler zurückgegeben (Fehlercode 1004).

Beispiel

Im folgenden Beispiel wird ein XML-Stream für die folgenden Einstellungen von Project Server zurückgegeben: ProjectServerSettingsRequest, AdminDefaultTrackingMethod, AdminTrackingLocked, ProjectIDInProjectServer, ProjectManagerHasTransactions, ProjectManagerHasTransactionsForCurrentProject, TimePeriodGranularity und 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 und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über