Sub AddNewComputer (connection, netBiosName, smBiosGuid, macAddress)

	Dim inParams
	Dim outParams
	Dim siteClass
	Dim collection
	Dim collectionRule

	If (IsNull(smBiosGuid) = True) And (IsNull(macAddress) = True) Then
		WScript.Echo "smBiosGuid or macAddress must be defined"
		Exit Sub
	End If	 

	If IsNull(macAddress) = False Then
		macAddress = Replace(macAddress,"-",":")
	End If

	' Obtain an InParameters object specific
	' to the method.

	Set siteClass = connection.Get("SMS_Site")
	Set inParams = siteClass.Methods_("ImportMachineEntry"). _
		inParameters.SpawnInstance_()


	' Add the input parameters.
	inParams.Properties_.Item("MACAddress") =  macAddress
	inParams.Properties_.Item("NetbiosName") =  netBiosName
	inParams.Properties_.Item("OverwriteExistingRecord") =  False
	inParams.Properties_.Item("SMBIOSGUID") =  smBiosGuid

	' Add the computer.
	Set outParams = connection.ExecMethod("SMS_Site", "ImportMachineEntry", inParams)

   
   ' Add the computer to the all systems collection.
   set collection = connection.Get("SMS_Collection.CollectionID='SMS00001'")
   
   set collectionRule=connection.Get("SMS_CollectionRuleDirect").SpawnInstance_
   
   collectionRule.ResourceClassName="SMS_R_System"
   collectionRule.ResourceID= outParams.ResourceID
	 
   collection.AddMembershipRule collectionRule

End Sub

public int AddNewComputer(
	WqlConnectionManager connection, 
	string netBiosName, 
	string smBiosGuid, 
	string macAddress)
{
	try
	{
		if (smBiosGuid == null && macAddress == null)
		{
			throw new ArgumentNullException("smBiosGuid or macAddress must be defined");
	}

		// Reformat macAddress to : separator.
		if (string.IsNullOrEmpty(macAddress) == false)
		{
			macAddress = macAddress.Replace("-", ":");
	}

		// Create the computer.
		Dictionary<string, object> inParams = new Dictionary<string, object>();
		inParams.Add("NetbiosName", netBiosName);
		inParams.Add("SMBIOSGUID", smBiosGuid);
		inParams.Add("MACAddress", macAddress);
		inParams.Add("OverwriteExistingRecord", false);

		IResultObject outParams = connection.ExecuteMethod(
			"SMS_Site",
			"ImportMachineEntry",
			inParams);

		// Add to All System collection.
		IResultObject collection = connection.GetInstance("SMS_Collection.collectionId='SMS00001'");
		IResultObject collectionRule = connection.CreateEmbeddedObjectInstance("SMS_CollectionRuleDirect");
		collectionRule["ResourceClassName"].StringValue = "SMS_R_System";
		collectionRule["ResourceID"].IntegerValue = outParams["ResourceID"].IntegerValue;

		Dictionary<string, object> inParams2 = new Dictionary<string, object>();
		inParams2.Add("collectionRule", collectionRule);

		collection.ExecuteMethod("AddMembershipRule", inParams2);

		return outParams["ResourceID"].IntegerValue;
}
	catch (SmsException e)
	{
		Console.WriteLine("failed to add the computer" + e.Message);
		throw;
}
}