C#

		<br />
static bool addCodeGroup() <br />
{<br />
		<br />
	// Enumerate all the policies<br />
	IEnumerator policyEnumerator = SecurityManager.PolicyHierarchy();<br />
<br />
	// Move through policies until we hit Machine<br />
	while (policyEnumerator.MoveNext()) <br />
	{	<br />
			<br />
		PolicyLevel machineLevel = (PolicyLevel)policyEnumerator.Current;<br />
<br />
		// If we are in the Machine Security Policy...<br />
		if (machineLevel.Label == "Machine") <br />
		{<br />
			// Build an enumerator to move through the machine level groups<br />
			IEnumerator ie_MachineLevelGroups = machineLevel.RootCodeGroup.Children.GetEnumerator();<br />
					<br />
			while (ie_MachineLevelGroups.MoveNext()) <br />
			{<br />
						<br />
				CodeGroup machineLevelGroup = (CodeGroup)ie_MachineLevelGroups.Current;<br />
<br />
				// if we are in the LocalIntranet_Zone Code Group...<br />
				if (machineLevelGroup.Name == "LocalIntranet_Zone") <br />
				{<br />
<br />
					PermissionSet permSet1 = new NamedPermissionSet("FullTrust");<br />
					IMembershipCondition membership1 = new UrlMembershipCondition("file://wstltest/*");<br />
					PolicyStatement policy1 = new PolicyStatement(permSet1);<br />
					CodeGroup codeGroup1 = new UnionCodeGroup(membership1, policy1);<br />
					codeGroup1.Name = "WSTLTEST_ACCESS";<br />
					machineLevelGroup.AddChild(codeGroup1);<br />
					SecurityManager.SavePolicy();<br />
									<br />
<br />
						} // end if (machineLevelGroup.Name == "LocalIntranet_Zone") <br />
<br />
					} // end while (ie_MachineLevelGroups.MoveNext()) <br />
<br />
								} // end if (machineLevel.Label == "Machine") <br />
<br />
	<br />
			} // end while (policyEnumerator.MoveNext()) <br />
<br />
<br />
			return true;<br />
<br />
		}

// Create the policy statement.
NamedPermissionSet namedPS = new NamedPermissionSet("FullTrust");
PolicyStatement ps = new PolicyStatement(namedPS);
ps.Attributes = PolicyStatementAttribute.Exclusive;
 
// Create the membership condition.
string url = "http://www.dummycorp.com";
UrlMembershipCondition condition = new UrlMembershipCondition(url);
 
// Create the code group.
UnionCodeGroup proplanner = new UnionCodeGroup(condition, ps);
proplanner.Name = "MyCodeGroup";
proplanner.Description = "Allows fully-trusted access to the URL.";
 
// Find the machine policy level.
PolicyLevel machine = null;
IEnumerator ie = SecurityManager.PolicyHierarchy();
while (ie.MoveNext())
  if (String.Compare(((PolicyLevel)ie.Current).Label, "Machine", true) == 0)
    machine = (PolicyLevel)ie.Current;
 
// If the machine policy level was not found, throw an exception.
if (machine == null)
  throw new InstallException("Unable to find the Machine policy level.");
 
// Enumerate the root code group children and
// determine if the Proplanner group already exists.
bool exists = false;
foreach (CodeGroup group in machine.RootCodeGroup.Children)
{
  if (proplanner.Equals(group))
  {
    exists = true;
    break;
  }
}
 
// If the code group doesn't exist, add it.
if (!exists)
{
  // Add our code group to the root code group.
  machine.RootCodeGroup.AddChild(proplanner);
  SecurityManager.SavePolicyLevel(machine);
}

StreamWriter sw = New StreamWriter(datapath + "\scheduler.txt");

Environment.CurrentDirectory = datapath;