Sub SetAllowResponse(connection, 	_
					 context, 	 _
					 siteCode, 		 _
					 allowResponse)
 
	' Load site control file and get SMS PXE service point section.
	connection.ExecMethod "SMS_SiteControlFile.Filetype=1,Sitecode=""" & siteCode & """", "Refresh", , , context
	
	Query = "SELECT * FROM SMS_SCI_SysResUse " & _
			"WHERE RoleName = 'SMS PXE Service Point' " & _
			"AND SiteCode = '" & siteCode & "'"

	Set SCIComponentSet = connection.ExecQuery(Query, ,  , context)
					 
	' Only one instance is returned from the query.
	For Each SCIComponent In SCIComponentSet

		 ' Display SMS PXE service point server name.
		 wscript.echo "SMS PXE Service Point Server: " & SCIComponent.NetworkOSPath								

		' Loop through the array of embedded property instances.
		For Each vProperty In SCIComponent.Props
		
			' Setting: IsActive
			If vProperty.PropertyName = "IsActive" Then
				wscript.echo " "
				wscript.echo vProperty.PropertyName
				wscript.echo "Current value " &  vProperty.Value			 
			
				' Modify the value.
				vProperty.Value = allowResponse
				wscript.echo "New value " & allowResponse
			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 SetAllowResponse(
	WqlConnectionManager connection, 
	string server, 
	string siteCode, 
	bool allowResponse)
{
	try
	{
		// Get PXE properties.
		IResultObject ro = connection.GetInstance("SMS_SCI_SysResUse.FileType=2,ItemName='[\"Display=\\\\" + server + "\\\"]MSWNET:[\"SMS_SITE=" + siteCode + "\"]\\\\" + server + "\\,SMS PXE Service Point',ItemType='System Resource Usage',SiteCode='" + siteCode + "'");

		Dictionary<string, IResultObject> embeddedProperties = ro.EmbeddedProperties; // Get a copy

		embeddedProperties["IsActive"]["Value"].BooleanValue = allowResponse;

		ro.EmbeddedProperties = embeddedProperties;
		ro.Put();
}
	catch (SmsException e)
	{
		Console.WriteLine("Failed to set response for PXE request: " + e.Message);
		throw;
}
}