SInt32 LoadPDF(
	 String PDFFileName,
	 String PDFFile,
	 UInt32 PDFID,
	 String RequiredIconNames[]
);

	Const ForReading = 1
   
	Dim fs, f						 ' File system object and file object.
	Dim clsPDF As SWbemObject		 ' SMS_PDF_Package class definition.
	Dim ReturnCode As Long			' Return code value from LoadPDF method.
	Dim PDFID As Long				 ' Package definition file identifier generated from LoadPDF.
	Dim PDFContent As String		' Package definition file file content.
	Dim ReqIconNames() As Variant	 ' Required icon names from LoadPDF.
	Dim Icon() As Byte				' Icon used as input to LoadIconForPDF method.
	Dim i, j As Integer
	Dim FileSize As Integer		 ' Size of the icon file.


	Set Services = GetObject("winmgmts:\root\sms\<sitecode>")

	' Open the package definition file file and read the content into a string.
	Set fs = CreateObject("Scripting.FileSystemObject")
	Set f = fs.OpenTextFile(<path\filename>, ForReading)
	PDFContent = f.ReadAll
	f.Close

	' Load the package definition file into the package definition file store. Use the PDFID and ReqIconNames 
	' Variables in the LoadIconForPDF method.
	Set clsPDF = Services.Get("SMS_PDF_Package")
	ReturnCode = clsPDF.LoadPDF(<path\filename>, _
								PDFContent, _
								PDFID, _
								ReqIconNames)
							
	' You must load all the icons for the package definition file if the package definition file contains icons.
	For i = LBound(ReqIconNames) To UBound(ReqIconNames)
		Open <path> & ReqIconNames(i) For Binary Access Read As #1
		FileSize = LOF(1) - 1
		ReDim Icon(FileSize)
		For j = 0 To FileSize
			Get #1, , Icon(j)
		Next
		Close #1
	
		clsPDF.LoadIconForPDF PDFID, ReqIconNames(i), Icon
	Next