Sub CreateDriverPackage(connection, driverId, newPackageName, newPackageDescription,  newPackageSourcePath)

	Dim newPackage
	Dim driver 
	Dim packageSources
	Dim refreshDPs
	Dim content 
	Dim path
	Dim contentIds
	Dim index
	Dim item
   
	' Create the new driver package object.
	Set newPackage = connection.Get("SMS_DriverPackage").SpawnInstance_

	' Populate the new package properties.
	newPackage.Name = newPackageName
	newPackage.Description = newPackageDescription
	newPackage.PkgSourceFlag = 2 ' Storage direct
	newPackage.PkgSourcePath = newPackageSourcePath

	' Save the package.
	path=newPackage.Put_

	' Get the newly created package (Do this to call AddDriverContent).
	Set newPackage=connection.Get(path)

	' Get the driver
	Set driver = connection.Get("SMS_Driver.CI_ID=" & driverId )

	' Get the driver content.
	Set content = connection.ExecQuery("Select * from SMS_CIToContent where CI_ID=" & driverId)

	If content.Count = 0 Then
		Wscript.Echo "No content found"
		Exit Sub
	End If

	' Create Array to hold driver content identifiers.
	contentIds = Array()
	ReDim contentIds(content.Count-1)
	index = 0
  
	For Each item In content		 
		contentIds(index) = item.ContentID 
		index = index+1	 
	Next
	 
	' Create sources path Array.
	packageSources = Array(driver.ContentSourcePath)
	refreshDPs = False

	' Add the driver content.
	Call newPackage.AddDriverContent(contentIds,packageSources,refreshDPs)
	wscript.echo "Done"

End Sub

public void CreateDriverPackage(
	WqlConnectionManager connection, 
	int driverId, 
	string newPackageName, 
	string newPackageDescription, 
	string newPackageSourcePath)
{
	try
	{
		if (Directory.Exists(newPackageSourcePath) == false)
		{
			throw new DirectoryNotFoundException("Package source path doesn't exist");
	}

		// Create new package object.
		IResultObject newPackage = connection.CreateInstance("SMS_DriverPackage");

		IResultObject driver = connection.GetInstance("SMS_Driver.CI_ID=" + driverId);

		newPackage["Name"].StringValue = newPackageName;
		newPackage["Description"].StringValue = newPackageDescription;
		newPackage["PkgSourceFlag"].IntegerValue = (int)PackageSourceFlag.StorageDirect;
		newPackage["PkgSourcePath"].StringValue = newPackageSourcePath;

		// Save new package and new package properties.
		newPackage.Put();

		newPackage.Get();

		// Get the content identifier.
		List<int> contentIDs = new List<int>();
		IResultObject content = connection.QueryProcessor.ExecuteQuery("Select * from SMS_CIToContent where CI_ID=" + driverId);

		foreach (IResultObject ro in content)
		{
			contentIDs.Add(ro["ContentID"].IntegerValue);
	}

		// Get the package source.
		List<string> packageSources = new List<string>();
		packageSources.Add(driver["ContentSourcePath"].StringValue);

		Dictionary<string, Object> inParams = new Dictionary<string, object>();

		inParams.Add("bRefreshDPs", true);
		inParams.Add("ContentIDs", contentIDs.ToArray());
		inParams.Add("ContentSourcePath", packageSources.ToArray());

		newPackage.ExecuteMethod("AddDriverContent", inParams);
}
	catch (SmsException ex)
	{
		Console.WriteLine("Failed to create package. Error: " + ex.Message);
		throw;
}
}