04-05-2012, 08:16 AM
Code:
createSingleObj("Browser","CreationTime:=0,title:=AOL.*")
Public Function createSingleObj(t,arrPV)
Set o = Description.Create
o("micclass").Value = t
arrPV = Split(arrPV,",")
For iLoop = 0 to UBound(arrPV)
Prop= Split(arrPV(iLoop),":=")(0)
Val= Split(arrPV(iLoop),":=")(1)
o(Prop).Value = Val
Next
Set createSingleObj = o
End Function
Please check the format. "CreationTime:=0,title:=AOL.*"
This is how you need to send your property value pairs