Partilhar via


Como Criar um Pacote Através de um Modelo de Ficheiro de Definição de Pacote

O exemplo a seguir mostra como criar um pacote e programa utilizando um modelo de ficheiro de definição de pacote no Gestor de Configuração. O modelo de ficheiro de definição de pacote contém os valores predefinidos que são usados para criar SMS_Package e SMS_Program objetos. O exemplo a seguir utiliza a SMS_PDF_Package classe e o método para carregar as GetPDFData informações do modelo de ficheiro de definição de pacote e para criar um pacote e os programas relacionados.

Para criar um pacote usando um modelo de ficheiro de definição de pacote

  1. Configurar uma ligação com o Fornecedor DE SMS.

  2. Crie o novo objeto de embalagem utilizando a SMS_PDF_Package classe.

  3. Povoar quaisquer propriedades adicionais do pacote.

  4. Carregue a informação do programa e associe cada programa ao pacote.

Exemplo

O método exemplo a seguir cria um novo pacote utilizando um ficheiro de definição de pacote.

Para obter informações sobre a chamada do código de amostra, consulte o Código de Identificação do Gestor de Chamadas.


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  

O método exemplo tem os seguintes parâmetros:

Parâmetro Tipo Description
connection - VBScript: SWbemServices Uma ligação válida ao Fornecedor de SMS.
existingPDF_ID - VBScript: Integer Identificação do ficheiro de definição de pacote.
newPackageSourceFlag - VBScript: Integer A fonte do pacote.
newPackageSourcePath - VBScript: String O caminho para a fonte do pacote.

Programação Robusta

Para obter mais informações sobre o tratamento de erros, consulte Sobre erros do Gestor de Configuração.

Consulte também

Visão geral da distribuição de software SMS_SCI_Component Classe WMI do servidor