共用方式為

如何使用封裝定義檔案範本建立封裝

  • 發行項

下列範例示範如何在 Configuration Manager 中使用套件定義檔案範本來建立套件和程式。 套件定義檔案範本包含用來建立 SMS_Package 和 SMS_Program 物件的預設值。 下列範例會使用 SMS_PDF_Package 類別和 GetPDFData 方法來載入封裝定義檔案範本資訊，以及建立封裝和相關程式。

使用套件定義檔案範本建立套件

  1. 設定與 SMS 提供者的連線。

  2. 使用 SMS_PDF_Package 類別建立新的封裝物件。

  3. 填入任何其他套件屬性。

  4. 載入程式資訊，並將每個程式與封裝產生關聯。

範例

下列範例方法會使用封裝定義檔來建立新的封裝。

如需呼叫範例程式碼的相關資訊，請參閱呼叫Configuration Manager程式碼片段。


Sub SWDCreatePDFPackage(connection, existingPDF_ID, newPackageSourceFlag, newPackageSourcePath)  
    ' The PDF_ID must be passed in.  
    ' The PDF_ID can be identified through the SMS_PDF_Package class.  

    Dim newPDFPackage  
    Dim returnCode  
    Dim newPackage  
    Dim newPackagePath  
    Dim packageID  
    Dim program  
    Dim arrayOfPrograms  

    ' Package Creation  
    ' ----------------       
    ' Create new SMS_PDF_Package instance.  
    Set newPDFPackage = connection.Get("SMS_PDF_Package")  

    ' Load the Package Definition File data using the GetPDFData method.  
    returnCode = newPDFPackage.GetPDFData(existingPDF_ID, newPackage, arrayOfPrograms)  

    ' Assign any additional package properties.  
    newPackage.PkgSourceFlag = newPackageSourceFlag  
    newPackage.PkgSourcePath = newPackageSourcePath  

    ' Save the package path and get the Package ID.  
    Set newPackagePath = newPackage.Put_  
    packageID = newPackagePath.Keys("PackageID")  

    ' Program Creation   
    ' -----------------      
    ' Enumerate through the program array and create the programs.  
    For Each program In arrayOfPrograms  
        program.PackageID = packageID  
        program.Put_  
    Next  

End Sub

範例方法具有下列參數：

參數 Type 描述
connection - VBScript： SWbemServices SMS 提供者的有效連線。
existingPDF_ID - VBScript： Integer 封裝定義檔的識別碼。
newPackageSourceFlag - VBScript： Integer 封裝來源。
newPackageSourcePath - VBScript： String 封裝來源的路徑。

健全的程式設計

如需錯誤處理的詳細資訊，請參閱關於Configuration Manager錯誤。

另請參閱

伺服器WMI 類別SMS_SCI_Component軟體發佈概觀