Sub CreateComputerVariable(connection, siteCode, name, value, mask, computerId)

	Dim computerSettings
	Dim computerVariables
	Dim computerVariable
	Dim Settings

	' See if the computer settings object already exists. if it doesn't, create it.
	Set settings = connection.ExecQuery _
	("Select * From SMS_MachineSettings Where ResourceID = '" & computerID & "'")
   
	If settings.Count = 0 Then
		Wscript.Echo "Creating computer settings object"
		Set computerSettings = connection.Get("SMS_MachineSettings").SpawnInstance_
		computerSettings.ResourceID = computerId
		computerSettings.SourceSite = siteCode
		computerSettings.LocaleID = 1033
		computerSettings.Put_
	End If  

	' Get the computer settings object.
	Set computerSettings = connection.Get("SMS_MachineSettings.ResourceID='" & computerId &"'" )
   
	' Get the computer variables.
	computerVariables=computerSettings.MachineVariables

	' Create and populate a new computer variable.
	Set computerVariable = connection.Get("SMS_MachineVariable").SpawnInstance_
	computerVariable.Name = name
	computerVariable.Value = value
	computerVariable.IsMasked = mask

	' Add the new computer variable.
	ReDim Preserve computerVariables (UBound (computerVariables)+1)
	Set computerVariables(UBound(computerVariables)) = computerVariable

	computerSettings.MachineVariables=computerVariables

	computerSettings.Put_
		
 End Sub   

public void CreateComputerVariable(
	WqlConnectionManager connection,
	string siteCode, 
	string name, 
	string value, 
	bool mask, 
	int computerId)
{
	try
	{
		// Get the computer settings.
		IResultObject computerSettings=null;

		IResultObject computerSettingsQuery = connection.QueryProcessor.ExecuteQuery(
			"Select * from SMS_MachineSettings where ResourceId = '" + computerId + "'");

		foreach (IResultObject settings in computerSettingsQuery)
		{
			computerSettings = settings;
	}

		if (computerSettings == null) // It doesn't exist, so create it.
		{
			computerSettings = connection.CreateInstance(@"SMS_MachineSettings");
			computerSettings["ResourceID"].IntegerValue = computerId;
			computerSettings["SourceSite"].StringValue = siteCode;
			computerSettings["LocaleID"].IntegerValue = 1033;
			computerSettings.Put();
			computerSettings.Get();
	}

		// Create the computer variable.
		List<IResultObject> computerVariables = computerSettings.GetArrayItems("MachineVariables");
		IResultObject computerVariable = connection.CreateEmbeddedObjectInstance("SMS_MachineVariable");
		computerVariable["Name"].StringValue = name;
		computerVariable["Value"].StringValue = value;
		computerVariable["IsMasked"].BooleanValue = mask;

		// Add the computer variable to the computer settings.
		computerVariables.Add(computerVariable);
		computerSettings.SetArrayItems("MachineVariables", computerVariables);

		computerSettings.Put();
}
	catch (SmsException e)
	{
		Console.WriteLine("Failed to create computer variable: " + e.Message);
		throw;
}
}