SCOM Knowledge Articles For Troubleshooting Project Server 2010 Errors

SCOM Knowledge Articles

• Project Active Directory connection failed
• Project Active Directory exception occurred during synchronization
• Project Active Directory nested foreign security principal could not be resolved
• Project Active Directory nested object could not be resolved
• Project Active Directory PWA group could not be resolved
• Project Active Directory top-level group has no members
• Project Creating Report Center Web failed
• Project Cube Build Service Analysis Services server connection failure
• Project Cube Build Service Analysis Services server lock time out
• Project Cube Build Service attempt to overwrite failed
• Project Cube Build Service Decision Support Object is not installed
• Project notification XSLT transformation error
• Project Failure creating a Project workspace
• Project General Data Access Layer error connecting to database
• Project General Data Access Layer error while getting connection strings
• Project notification e-mail delivery failed
• Project notification XSLT transformation error
• Project Queue general percentage SQL retries per day
• Project Queue general percentage SQL retries per hour
• Project Queue jobs average wait time per day
• Project queue jobs percentage jobs failed per day
• Project queue jobs percentage failed per hour
• Project Queue System restarting due to unexpected error
• Project Reporting server side event has failed
• Project Server event handler could not be found
• Project Server event service could not be found
• Project SQL user view refresh message was not queued
• Project user view was truncated
• Project Windows SharePoint Services format error
• Project Winproj average time taken for project open
• Project Winproj average percentage of incremental save to full save
• Project workspace user synchronization failed

Refer to Technet For Latest Inclusions : http://technet.microsoft.com/en-us/library/ff678247.aspx

Read Full Post »

Get Micorosft Product Lifecycle Support Information

received a question recently thought would share with all :), Especially for those who haven’t planned upgradation to Project Server 2010, be aware that MS Project Server & MS Portfolio Server main stream support end date is 4 /10/2010, though extended support end date is far enough, hence Plan your upgrade accordingly 🙂

For other MS product life cycle refer to : http://support.microsoft.com/lifecycle/search/default.aspx?sort=PN&alpha=project&Filter=FilterNO

Read Full Post »

Create & Baseline Multiple Projects Based on Template Using VBA macro

Last time i had a request stating someone need to create bulk projects based on a template with custom info, reason being multiple projects of same nature short term projects, hence rather than creating them manually, here is a macro to help create them automatically :),
Decide naming convention for projects as you wish 

Sub CreateProj()
  Application.Alerts = False
For x = 1 To 5 Step 1
    FileNew Template:=””, FileNewWorkpane:=True
    FileOpenEx Name:=”C:\Program Files\Microsoft Project 2007\Templates\1033\Engineering.mpt”,   ReadOnly:=False, FormatID:=”MSProject.MPT”
    ProjectSummaryInfo Start:=”Mon 9/1/10″
    BaselineSave All:=True, Copy:=0, Into:=0
    ‘SetTaskField Field:=”% Complete”, Value:=”10%”
    FileSaveAs Name:=”<>\Engineering” & x, FormatID:=””
    Publish WssUrl:=”http://ServerName/PWA/Engineering” & x
    FileCloseEx pjSave, False, True
Next
   
End Sub

Read Full Post »

Open Multiple Project Files From Within MS Project and Do the Required Operation

Recently i was asked on how to open project files one by one do the required operations followed by  save >> publish >> close the files, so here is the code which does this

Sub TestingFileOpenClose()

Dim Conn As ADODB.Connection
Dim Cmd As ADODB.Command
Dim Recs As ADODB.Recordset
‘Connect to Project Server Reporting DB, Get Project Names
Conn.ConnectionString = “driver={SQL Server) server=SQLSERVER;uid=username;pwd=password;database=ProjectServer_Reporting “
Conn.Open

With Cmd
    .ActiveConnection = Conn
    .CommandText = “Select ProjectName From MSP_EpmProjects_UserView”
    .CommandType = adCmdText
End With

 With Recs
    .CursorType = adOpenStatic
    .CursorLocation = adUseClient
    .LockType = adLockOptimistic
    .Open cmdCommand
  End With
Dim PrjName As String

If Recs.EOF = False Then
   Recs.MoveFirst
   For x = 1 To CInt(Recs.RecordCount)
    Application.Alerts = False
    PrjName = “<>\” + Recs.Fields(0)
    FileOpenEx Name:=PrjName, ReadOnly:=False
    ‘////////Do Your Operation here//////////
‘///Eg. Modify Project level Custom Field value
‘ ProjectSummaryInfo CustomFieldDateValue:=”Mon 8/1/2010″ 
    FileSave
    Publish
    FileCloseEx
    PrjName = “”
    Recs.MoveNext
   Next x
   Recs.Close
   Conn.Close
End Sub

Read Full Post »

Flag Difference between 2 columns in MS Project using VB Macro

Recently i was working with a huge project plan, typically 7000 line items, and the original plan was sent out by one of my vendor, obvious – Calendar was local resources were local 😦 i had to push this plan to my Project Server, and you could imagine all the dates were changed :(, now around 10 times i did tried to use the MS Project comparison tool, but to no avail everytime the tool hanged and MS Project Crashed, tested this Project Comparison tool on 3 different machine but each n everytime it failed, hence since in my case there were no task added or removed so it was bit easier for me, else i had to write a recursive macro 🙂
So my work was to compare the dates difference between Start / Finish, i inserted Start1 / Finish1 columns in MSP in the Project Server Saved Plan, copied both the columns from original Vendor Plan and pasted it so i had my data, executed the macro and viola though it took some time, but atleast it gave me what i wanted

Sub CalculateVariance()
Dim ts As Tasks
Set ts = ActiveProject.Tasks

Dim t As Task
Set t = ActiveSelection.Tasks

For Each t In ts
    If Not t Is Nothing Then
        If Not t.Summary Then
            If t.Duration <> t.Duration1 Then
                t.Notes = t.Notes & “|Duration Variance|”
            End If
            If t.Start <> t.Start1 Then
                t.Notes = t.Notes & “|Start Date Variance|”
            End If
            If t.Finish <> t.Finish1 Then
                t.Notes = t.Notes & “|Finish Variance|”
            End If
        End If
    End If
Next t
End Sub

  

Read Full Post »