Sub SetAdvertBranding(swbemServices, 	_
					siteCode, 		 _
					brandingText)

 
	' Load the 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: SWDBrandingSubTitle
			If vProperty.PropertyName = "SWDBrandingSubTitle" 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 the copy of the site control file.
	swbemServices.Get("SMS_SiteControlFile").ReleaseSessionHandle swbemContext.Item("SessionHandle").Value

End Sub

public void SetAdvertBranding(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'");

		// Update the branding information.
		Dictionary<string, IResultObject> embeddedProperties = clientAgent.EmbeddedProperties;

		embeddedProperties["SWDBrandingSubTitle"]["Value1"].StringValue=brandingText;

		clientAgent.EmbeddedProperties = embeddedProperties;
		// Commit the change back to the site control file.
		clientAgent.Put();

}
	catch (SmsException e)
	{
		Console.WriteLine("Failed to set branding text: " + e.Message);
		throw;
}
}