Function CreateQuery(connection)
   On Error Resume Next
   
   Dim query
   Dim path
  
   ' Create a query object.
	Set query = connection.Get("SMS_Query").SpawnInstance_()

	If Err.Number<>0 Then
		Wscript.Echo "Couldn't create query object"
		CreateQuery = Null
		Exit Function
	End If

	' Populate the object.
	query.Comments = "A query for all systems"
	query.Expression = "select Name, " + _
	"SMSAssignedSites, " +			_
	"IPAddresses, " +				 _
	"IPSubnets, " +					 _
	"OperatingSystemNameandVersion, " + _
	"ResourceDomainORWorkgroup, " +	 _
	"LastLogonUserDomain, " +		 _
	"LastLogonUserName, " +			 _
	"SMSUniqueIdentifier, " +		 _
	"ResourceId, " +					_
	"ResourceType, " +				_
	"NetbiosName " +					_
	"from sms_r_system"
	query.LimitToCollectionID = nothing
	query.Name = "Query All Systems"
	query.TargetClassName = "SMS_R_System"

	' Commit the object
	path = query.Put_

	If Err.Number<>0 Then
		Wscript.Echo "Couldn't commit the query"
		CreateQuery = Null
		Exit Function
	End If

	WScript.Echo "Query created"

	' Get the object back to get the query identifier.
	Set query = connection.Get(path)
	CreateQuery = query.QueryID

End Function  

public string CreateQuery(WqlConnectionManager connection)
{
	try
	{
		// Create an SMS_Query object.
		IResultObject query = connection.CreateInstance("SMS_Query");

		// Populate the object.
		query["Comments"].StringValue = "A query for all systems";
		query["Expression"].StringValue = 
			"select Name, " +
			"SMSAssignedSites, " +
			"IPAddresses, " +
			"IPSubnets, " +
			"OperatingSystemNameandVersion, " +
			"ResourceDomainORWorkgroup, " +
			"LastLogonUserDomain, " +
			"LastLogonUserName, " +
			"SMSUniqueIdentifier, " +
			"ResourceId, " +
			"ResourceType, " +
			"NetbiosName " +
			"from sms_r_system";
		query["LimitToCollectionID"].StringValue = null;
		query["Name"].StringValue = "Query All Systems";
		query["TargetClassName"].StringValue = "SMS_R_System";

		// Commit the query.
		query.Put();

		// Get the query - allows access to the queryID.
		query.Get();

		// Return the query identifier.
		return query["QueryID"].StringValue;
}
	catch (SmsException e)
	{
		Console.WriteLine("Failed to run the query: " + e.Message);
		throw;
}
}