Sub AddSmpFolder( connection, _
	context, 		_
	directory, 		_
	 maxClients, 	_
	 minDiskSpace, 	_
	 minDiskSpaceUnit, _
	siteCode)


	Dim InParams
	Dim smpSettings
	Dim found

	 ' Format the directories string.
	 smpSettings = "Directory=" + directory + ";MaxClients=" + _
	 CStr(maxClients) + ";MinDiskSpace=" + CStr(minDiskSpace) + _
	 ";MinDiskSpaceUnit=" + CStr(minDiskSpaceUnit) + ";"

	 Set InParams = connection.Get("SMS_SiteControlFile").Methods_("RefreshSCF").InParameters.SpawnInstance_
InParams.SiteCode = siteCode
connection.ExecMethod "SMS_SiteControlFile", "RefreshSCF", InParams, , context

	
	Query = "SELECT * FROM SMS_SCI_SysResUse " & _
			"WHERE RoleName = 'SMS State Migration Point' " & _
			"AND SiteCode = '" & siteCode & "'"


	found = false

	Set SCIComponentSet = connection.ExecQuery(Query, , , context)
					 
	For Each SCIComponent In SCIComponentSet
		For Each vProperty in SCIComponent.PropLists

			WScript.Echo vProperty.PropertyListName
			
			if   vProperty.PropertyListName = "Directories" Then

				Dim  directories
				Dim i
			
				found = true
			
				' Resize the array to accommodate the new directory.
				ReDim  directories(UBound (vProperty.Values)+1)
				 
				for i  = 0 to UBound(vProperty.Values) 
					directories(i) = vProperty.Values(i)
				Next
			 
				directories(ubound (directories))= smpSettings
				vProperty.Values = directories			
		 
			End If  
		
		Next  
	 
			' Update the component in your copy of the site control file. Get the path
			 ' to the updated object, which could be used later to retrieve the instance.
			 Set SCICompPath = SCIComponent.Put_( , context)
	Next
					
	' Commit the change to the actual site control file.
	Set InParams = connection.Get("SMS_SiteControlFile").Methods_("CommitSCF").InParameters.SpawnInstance_
	InParams.SiteCode = siteCode
   connection.ExecMethod "SMS_SiteControlFile", "CommitSCF", InParams, , context

 End Sub

public void AddSmpFolder(
	WqlConnectionManager connection,
	string directory,
	int maxClients,
	int minDiskSpace,
	int minDiskSpaceUnit,
	string serverName,
	string siteCode)
{
	try
	{
		// Set up folder string.
		string smpSettings = "Directory=" + 
			directory + 
			";MaxClients=" + 
			maxClients.ToString(CultureInfo.InvariantCulture) +
			";MinDiskSpace=" + 
			minDiskSpace.ToString(CultureInfo.InvariantCulture) + 
			";MinDiskSpaceUnit=" + 
			minDiskSpaceUnit.ToString(CultureInfo.InvariantCulture) +
			";";

		// Get state migration point properties from site control file.
		IResultObject ro = connection.GetInstance(
			"SMS_SCI_SysResUse.FileType=2,ItemName='[\"Display=\\\\" +
			serverName + 
			"\\\"]MSWNET:[\"SMS_SITE=" + 
			siteCode + "\"]\\\\" + 
			serverName +
			"\\,SMS State Migration Point',ItemType='System Resource Usage',SiteCode='" +
			siteCode + 
			"'"
			);

		// Get directories.
		Dictionary<string, IResultObject> embeddedPropertyLists = ro.EmbeddedPropertyLists;

		string[] directories = embeddedPropertyLists["Directories"]["Values"].StringArrayValue; // Current directories.

		List<string> directoriesList = new List<string>(); // convert to list.
		foreach (string directoryName in directories)
		{
			directoriesList.Add(directoryName);
	}

		directoriesList.Add(smpSettings);

		// Update the embedded property list.
		embeddedPropertyLists["Directories"]["Values"].StringArrayValue = directoriesList.ToArray();

		ro.EmbeddedPropertyLists = embeddedPropertyLists;

		// Commit changes.
		ro.Put();
}
	catch (SmsException e)
	{
		Console.WriteLine("failed to update SMP settings" + e.Message);
		throw;
}
}