Archive for February, 2011

SCOM Knowledge Articles

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

Read Full Post »

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 »

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
End Sub

Read Full Post »

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 “

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
   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″ 

    PrjName = “”
   Next x
End Sub

Read Full Post »

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 »

Older Posts »