Feeds:
Posts
Comments

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
Next
   
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 “
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 »


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 »


Recently recieved a question asking for guidance on using special charachters in Project Server (task / project name / any other place), So thought would share the same with all
We donot recommend using any special charachter except spaces & underscore, reason being project server interfacing / working with multiple system in conjunction like OLAP, AD, SMTP, SQL, NTFS, sharepoint so special charachters valid in one system might still interfere with other systems, though PS takes care of most of them by giving an error message before you could save it into the system, but stiill some of them are not accounted for, one example being Lookup tables, though some of the charachters are allowed but still would suggest avoid them as much as possible 🙂  

 have a look at the blog : http://blogs.msdn.com/b/lduff/archive/2006/06/30/652913.aspx

Read Full Post »


Sub resourceCount()
Dim ts As Tasks
   
    Set ts = ActiveProject.Tasks
    Dim t As Task
   
    For Each t In ts
        If Not t Is Nothing Then
            If Not t.Summary Then
              If t.Resources.Count() > 5 Then
                MsgBox (“Resource Count Exceeded – ” + CStr(t.Resources.Count()))
              End If
                ‘MsgBox (t.Resources.Count())
                 t.Text2 = CStr(t.Resources.Count())
            End If
       End If
    Next t
End Sub

Read Full Post »

Older Posts »