Create Pivot Table using VBScript in Excel

All,

I am creating a Pivot table in Excel using vbscript and I get the below error "Invalid Procedure call" while running the below script:

Set xlptCache = xlBook.PivotCaches
With xlptCache.Add(2)
.Connection = "OLEDB;Provider=MSOLAP.3;Data Source=MT000XSRPD91;Initial Catalog=ICE_CUBE_R21_2011_5_1;Integrated Security=SSPI"
.CommandType = 2
.CommandText = Array("Item")
.MaintainConnection = True
.CreatePivotTable TableDestination=xlBook.Worksheets("AP").Range("$a$1"), TableName="PivotTable3", DefaultVersion=xlPivotTableVersion12
End With

If someone could help me solve the above error that would be great!!!

Thanks in advance
Sathiya