Sub SetSUMBranding(swbemServices, 	_
				 swbemContext, 	 _
				 siteCode, 		 _
				 brandingText)

	' Load site control file and get the client agent section.
	swbemServices.ExecMethod "SMS_SiteControlFile.Filetype=1,Sitecode=""" & siteCode & """", "Refresh", , , swbemContext
	
	Query = "SELECT * FROM SMS_SCI_ClientComp " & _
			"WHERE ClientComponentName = 'Client Agent' " & _
			"AND SiteCode = '" & siteCode & "'"

	Set SCIComponentSet = swbemServices.ExecQuery(Query, ,wbemFlagForwardOnly Or wbemFlagReturnImmediately, swbemContext)
					 
	' Only one instance is returned from the query.
	For Each SCIComponent In SCIComponentSet						

		' Loop through the array of embedded SMS_EmbeddedProperty instances.
		For Each vProperty In SCIComponent.Props
		
			' Setting: SUMBrandingSubTitle
			If vProperty.PropertyName = "SUMBrandingSubTitle" Then
				wscript.echo " "
				wscript.echo vProperty.PropertyName
				wscript.echo "Current value " &  vProperty.Value1			 
			
				' Modify the value.
				vProperty.Value1 = brandingText
				wscript.echo "New value: " & brandingText
			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_(wbemChangeFlagUpdateOnly, swbemContext)
	Next
					
	' Commit the change to the actual site control file.
	Set InParams = swbemServices.Get("SMS_SiteControlFile").Methods_("CommitSCF").InParameters.SpawnInstance_
	InParams.SiteCode = siteCode
	swbemServices.ExecMethod "SMS_SiteControlFile", "CommitSCF", InParams, , swbemContext

	' Release copy of the site control file.
	swbemServices.Get("SMS_SiteControlFile").ReleaseSessionHandle swbemContext.Item("SessionHandle").Value

End Sub

public void SetSUMClientBranding(WqlConnectionManager connection, 
								 string siteCode, 
								 string brandingText)
{
	try
	{
		// Get the site control file client component section.
		IResultObject clientAgent = connection.GetInstance(@"SMS_SCI_ClientComp.FileType=1,ItemType='Client Component',SiteCode='" + siteCode + "',ItemName='Client Agent'");

		// Load the embedded properties into a temporary copy.
		Dictionary<string, IResultObject> tempEmbeddedProperties = clientAgent.EmbeddedProperties;

		// Update the branding information with the string variable passed in.
		tempEmbeddedProperties["SUMBrandingSubTitle"]["Value1"].StringValue = brandingText;

		// Replace the embedded properties object with the temporary copy.
		clientAgent.EmbeddedProperties = tempEmbeddedProperties;

		// Commit the change back to the site control file.
		clientAgent.Put();
}
	catch (SmsException e)
	{
		Console.WriteLine("Failed to set branding text: " + e.Message);
		throw;
}
}