Here is the code:

$mbox = imap_open("{imap.example.org:143}", "username", "password");

echo "
<h1>Mailboxes</h1>
\n";
$folders = imap_listmailbox($mbox, "{imap.example.org:143}", "*");

if ($folders == false) {
echo "Call failed
\n";
} else {
foreach ($folders as $val) {
echo $val . "
\n";
}
}

echo "
<h1>Headers in INBOX</h1>
\n";
$headers = imap_headers($mbox);

if ($headers == false) {
echo "Call failed
\n";
} else {
foreach ($headers as $val) {
echo $val . "
\n";
}
}

imap_close($mbox);
?>

Yep, that’s it. Pass it your username and password and the script will display your email, local or remote. You can also expand upon this code to show the body of the emails and more information.

http://www.lucamauri.com/snippet/snip.aspx?id=6

The code in full is:

Imports System.Net
Imports System.Net.Sockets
Imports System.Text

Public Class clsWOL
Const lenHeader As Integer = 6
Const lenMAC As Integer = 6
Const repMAC As Integer = 16

Dim mEndPoint As IPEndPoint
Dim mMACAddress As Byte()
Dim mBytesSent As Integer = 0
Dim mPacketSent As String

''' <summary>
''' The IPEndPoint object that will act as a trasport for the packet.
''' It is automatically created by New statement, but you can modify it or read it.
''' </summary>
''' <value>An IPEndPoint object</value>
''' <returns>An IPEndPoint object</returns>
''' <remarks>Normally there is no need to change this manually.</remarks>
Public Property endPoint() As IPEndPoint
Get
Return mEndPoint
End Get
Set(ByVal value As IPEndPoint)
mEndPoint = value
End Set
End Property
''' <summary>
''' The target machine Network Interface Card MAC address.
''' It must be dash-separated, i.e. in the 11-22-33-44-55-66 form
''' </summary>
''' <value>A string with dash-separated values</value>
''' <returns>A string with dash-separated values</returns>
''' <remarks>The standard (IEEE 802) separator for cotet are dash (-) and semicolon (:). I resolved to use dashes only in order to avoid any possible confusion and misunderstanding with upcoming IPv6 addressing space.</remarks>
Public Property macAddress() As String
Get
Dim textMAC As New StringBuilder

For Each currByte As Byte In mMACAddress
textMAC.Append("-")
textMAC.Append(currByte.ToString("X2"))
Next

Return textMAC.ToString.Substring(1)
End Get
Set(ByVal value As String)
Dim values As Byte()

For Each currByte As String In value.Split("-")
If values Is Nothing Then
ReDim values(0)
Else
ReDim Preserve values(values.GetUpperBound(0) + 1)
End If
values(values.GetUpperBound(0)) = Byte.Parse(currByte, Globalization.NumberStyles.HexNumber)
Next

mMACAddress = values
End Set
End Property
''' <summary>
''' Total bytes sent by WakeIt method. It is 0 until the method is called at least once for this class instance.
''' </summary>
''' <returns>Integer value, total bytes trasmitted</returns>
''' <remarks></remarks>
Public ReadOnly Property bytesSent() As Integer
Get
Return mBytesSent
End Get
End Property
''' <summary>
''' It represent the Magic Packet broadcasted.
''' </summary>
''' <returns>String containing the text parsing of the Magic Packet</returns>
''' <remarks></remarks>
Public ReadOnly Property packetSent() As String
Get
Return mPacketSent
End Get
End Property
''' <summary>
''' Creates a WOL Magic Packet, the datagram that will awake the target PC updon broadcast on the network.
''' </summary>
''' <param name="macAddress">An array of byte representing the target machine Network Interface Card MAC address</param>
''' <returns>An array of byte representing the Magic Packet</returns>
''' <remarks>This method can be used indipendently from the rest of the class. If necessary it can create a Magic Packet just providing the MAC address.</remarks>
Public Function magicPacket(ByVal macAddress As Byte()) As Byte()
Dim payloadData As Byte()
Dim packet As New StringBuilder

Try
ReDim payloadData(lenHeader + lenMAC * repMAC)

For i As Integer = 0 To lenHeader - 1
payloadData(i) = Byte.Parse("FF", Globalization.NumberStyles.HexNumber)
Next
For i As Integer = 0 To repMAC - 1
For j As Integer = 0 To lenMAC - 1
payloadData(lenHeader + i * lenMAC + j) = macAddress(j)
Next
Next

For Each currLoad As Byte In payloadData
packet.Append("-")
packet.Append(currLoad.ToString("X2"))
Next

mPacketSent = packet.ToString.Substring(1)
Catch ex As Exception
mPacketSent = "EXCEPTION: " &amp; ex.ToString
End Try

Return payloadData
End Function

Function sendUDP(ByVal payload As Byte(), ByVal endPoint As IPEndPoint) As Integer
Dim byteSend As Integer
Dim socketClient As Socket

If (payload IsNot Nothing) AndAlso (endPoint IsNot Nothing) Then
socketClient = New Socket(endPoint.AddressFamily, SocketType.Dgram, ProtocolType.Udp)
socketClient.Connect(endPoint)
byteSend = socketClient.Send(payload, 0, payload.Length, SocketFlags.None)

socketClient.Close()
Else
byteSend = 0
End If

Return byteSend
End Function
''' <summary>
''' It is the main method of the class. It must be called after the MAC address has been set. It does not return any code, you can see the result of the operation with the bytesSent and packetSent properties of this class.
''' </summary>
''' <remarks></remarks>
Public Sub wakeIt()
mBytesSent = sendUDP(magicPacket(mMACAddress), mEndPoint)
End Sub
''' <summary>
''' No parameter is required. The new statement just created the IPEndPoint object.
''' </summary>
''' <remarks>The default IPEndPoint transmit on port 7. Other choices for WOL are port 0 or 9</remarks>
Sub New()
mEndPoint = New IPEndPoint(IPAddress.Broadcast, 7)
End Sub
''' <summary>
''' The IPEndPoint object is created to the specified port
''' </summary>
''' <param name="epPort">A valid port number</param>
''' <remarks>If the port number is invalid, the IPEndPoint is created to port 7. Ports normally used for WOL are 0, 7 or 9.</remarks>
Sub New(ByVal epPort As Integer)
If epPort >= 0 AndAlso epPort < 65535 Then
mEndPoint = New IPEndPoint(IPAddress.Broadcast, epPort)
Else
mEndPoint = New IPEndPoint(IPAddress.Broadcast, 7)
End If
End Sub
End Class 

So to call this class you do something like this:

Dim WOL As New clsWOL
WOL.macAddress = "00-1E-4F-96-C8-D8"
WOL.wakeIt()

This quick technique is easy to implement and relies on that fact that bots are stupid and pick up on keywords and try to complete all the fields in a form.

The best way to stop bots is to always use a combination of techniques, such as captchas and IP address checking, but this method will help eliminate a lot of junk.

On your form simply include a hidden text field called something generic like “email” if you have an email field call it something obscure like “customcontact” eg:

<form method="post" action="/form">
<input type="text" name="customcontact" />
<input type="hidden" name="email" />
<input type="submit" value="GO" />
</form>

The bot will see the hidden email field and try to populate it. On you form validation, check to see if this field is empty:

if(empty($_POST['email'])) {
// you are a human
} else {
// you are a robot
}

If the field has something in it, a bot has made the submission so discard it.

If you find that this still doesn’t work try using CSS instead:

<form method="post" action="/form">
<input type="text" name="customcontact" />
<input type="text" name="email" style="display:none;"/>
<input type="submit" value="GO" />
</form>

The bot will see the field and try to populate it as it ignores CSS styles, an actual user won’t see the field so won’t be able to add anything to it.

This is not a fail-safe way to stop bots submitting your form, but will help reduce a number of rudimentary bot attacks on your forms.

Using this code snippet can produce some very funky results, if could use it for accessibility highlighting where to mouse is for instance, or to create a crude animation.

It works very well when you just want to add a bit of dynamic movement to the site but don’t want to use flash because of accessbility issues.

We tend to find it works best with tiled backgrounds, as you then never see the clipping where the image ends and it makes it look perspective.

First of all add an id and the initial style to your element, in our example we are going to dynamically move the body background image so we add this:

<body id="doc" style="background-position:0px 0px">

Then simply include this piece of lovely JavaScript:

var IE = document.all?true:false

if (!IE) document.captureEvents(Event.MOUSEMOVE)

document.onmousemove = getMouseXY;

// Temporary variables to hold mouse x-y pos.s
var tempX = 0
var tempY = 0

// Main function to retrieve mouse x-y pos.s

function getMouseXY(e) {
if (IE) { // grab the x-y pos.s if browser is IE
tempX = event.clientX + document.body.scrollLeft
tempY = event.clientY + document.body.scrollTop
} else {  // grab the x-y pos.s if browser is NS
tempX = e.pageX
tempY = e.pageY
}

if (tempX < 0){tempX = 0}
if (tempY < 0){tempY = 0}

var pos = tempX + "px " + tempY + "px";

document.getElementById('doc').style.backgroundPosition = pos;

}

If you need to you can change the id of the element with the background image or even include delays to create momentum etcetera.

I have been working on a way to return Active directory group membership from a linked AD server in SQL.

Its quite hard as you can`t return it from the group – you have to return it from the user. What i wanted was to return every group within an OU and its members.

I first found this person and thier code:

http://blog.sdbonline.com/blog/?tag=/sql+server

So i used this code and modified it somewhat. It now takes many more parameters and returns all group membership from an OU. You obviously have to set up the linked SQL server first.

One of the hardest parts of this was the fact that it seemed to have some kind of limit to how much you can query the AD. To get round this i put a wait in after a certain amount of groups (configured by the parameters). I found that every 500 waiting 2 minutes was the safest root. It also waits 2 minutes to start, in case you have run it recently.

ALTER PROCEDURE [dbo].[sp_getADGroupUsers]
@LDAPRoot nvarchar(200),
@OUGROUP nvarchar(200),
@OUUSERS nvarchar(200),
@Waittime nvarchar(10),
@WaitGap integer,
@ServerName nvarchar(30)

AS

BEGIN
DECLARE @SQLString nvarchar(4000)
DECLARE @group_name nvarchar(500)
DECLARE @group_cursor CURSOR
Declare @GroupSamAccountname nvarchar(100)
declare @i integer

--Create a temp table to hold the results
CREATE TABLE #ADSI (
GroupCN nvarchar(500),
SamAccountname nvarchar(100))

--build an SQL string to return the ADsPath for the requested group
set @SQLString = N'SET @group_cursor = CURSOR STATIC FOR SELECT SUBSTRING(ADsPath,'+ cast(len(@ldaproot)+1 as varchar) + ',LEN(ADsPath))

FROM OPENQUERY('+ @ServerName +',''SELECT ADsPath FROM ''''' + @LDAPRoot + @ouGROUP + '''''
WHERE objectClass = ''''Group'''' '') FOR READ ONLY; OPEN @group_cursor'

--Execute the statement (will return the ADsPath in @group_cursor
EXECUTE sp_executesql @SQLString, N'@group_cursor CURSOR OUTPUT',
@group_cursor OUTPUT

set @i = 0

FETCH NEXT FROM @group_cursor INTO @group_name
WHILE @@FETCH_STATUS = 0
BEGIN

--work out account name
set @GroupSamAccountname = substring(@group_name, 4, (len(@group_name) - len( @OUGROUP))-4)

--Get data for group
SET @SQLString = N'INSERT INTO #ADSI SELECT ''' + @GroupSamAccountname + ''',SamAccountname
FROM OPENQUERY('+ @ServerName +',''SELECT ADsPath,
SamAccountname FROM ''''' + @LDAPRoot + @OUUsers + '''''
WHERE objectCategory = ''''Person'''' and objectClass = ''''user''''
and memberOf=''''' + @group_name + ''''' '') ';

--execute the statement
EXECUTE sp_executesql @SQLString;

set @i = @i + 1

IF @i = @waitgap
BEGIN
WAITFOR DELAY @waittime
set @i = 0
END

FETCH NEXT FROM @group_cursor INTO @group_name
END

--return the resultset
--(use DISTINCT as a user might be a member of several groups)
SELECT DISTINCT * FROM #ADSI

--explicitely drop the temp table
DROP TABLE #ADSI
END 

And here is how you call it:

DECLARE @RC int
DECLARE @LDAPRoot nvarchar(200)
DECLARE @FriendlyGroupName nvarchar(200)
DECLARE @OUGROUP nvarchar(200)
DECLARE @OUUSERS nvarchar(200)
declare @waittime nvarchar(10)
declare @waitgap integer
declare @ServerName nvarchar(30)

set @ldaproot = 'LDAP://DC.domain.com/'

--Where are the groups you want to return
set @OUGROUP = 'OU=groups,DC=Domain,DC=co,DC=uk'
--Where are the users you want to return
set @OUUSERS = 'OU=users,DC=domain,DC=co,DC=uk'
--Waiting time between groups
set @waittime = '00:02:00'
--How big are the groups
set @waitgap = 500
--Your AD linked server in SQL
set @ServerName = 'ADSI'

EXECUTE @RC = [SystemsIntegration].[dbo].[sp_getADGroupUsers]
@LDAPRoot

,@OUGROUP
,@OUUSERS
,@waittime
,@waitgap
,@ServerName

Hope this helps someone,

Dan

Heres the first piece of PHP code you will need, it would be best to make this an include:

class Face_Detector {

protected $detection_data;
protected $canvas;
protected $face;
private $reduced_canvas;

public function __construct($detection_file = 'detection.dat') {
if (is_file($detection_file)) {
$this->detection_data = unserialize(file_get_contents($detection_file));
} else {
throw new Exception("Couldn't load detection data");
}
//$this->detection_data = json_decode(file_get_contents('data.js'));
}

public function face_detect($file) {
if (!is_file($file)) {
throw new Exception("Can not load $file");
}

$this->canvas = imagecreatefromjpeg($file);
$im_width = imagesx($this->canvas);
$im_height = imagesy($this->canvas);

//Resample before detection?
$ratio = 0;
$diff_width = 320 - $im_width;
$diff_height = 240 - $im_height;
if ($diff_width > $diff_height) {
$ratio = $im_width / 320;
} else {
$ratio = $im_height / 240;
}

if ($ratio != 0) {
$this->reduced_canvas = imagecreatetruecolor($im_width / $ratio, $im_height / $ratio);
imagecopyresampled($this->reduced_canvas, $this->canvas, 0, 0, 0, 0, $im_width / $ratio, $im_height / $ratio, $im_width, $im_height);

$stats = $this->get_img_stats($this->reduced_canvas);
$this->face = $this->do_detect_greedy_big_to_small($stats['ii'], $stats['ii2'], $stats['width'], $stats['height']);
$this->face['x'] *= $ratio;
$this->face['y'] *= $ratio;
$this->face['w'] *= $ratio;
} else {
$stats = $this->get_img_stats($this->canvas);
$this->face = $this->do_detect_greedy_big_to_small($stats['ii'], $stats['ii2'], $stats['width'], $stats['height']);
}
return ($this->face['w'] > 0);
}

public function toJpeg() {
$color = imagecolorallocate($this->canvas, 255, 0, 0); //red
imagerectangle($this->canvas, $this->face['x'], $this->face['y'], $this->face['x']+$this->face['w'], $this->face['y']+ $this->face['w'], $color);
header('Content-type: image/jpeg');
imagejpeg($this->canvas);
}

public function toJson() {
return "{'x':" . $this->face['x'] . ", 'y':" . $this->face['y'] . ", 'w':" . $this->face['w'] . "}";
}

public function getFace() {
return $this->face;
}

protected function get_img_stats($canvas){
$image_width = imagesx($canvas);
$image_height = imagesy($canvas);
$iis =  $this->compute_ii($canvas, $image_width, $image_height);
return array(
'width' => $image_width,
'height' => $image_height,
'ii' => $iis['ii'],
'ii2' => $iis['ii2']
);
}

protected function compute_ii($canvas, $image_width, $image_height ){
$ii_w = $image_width+1;
$ii_h = $image_height+1;
$ii = array();
$ii2 = array();

for($i=0; $i<$ii_w; $i++ ){
$ii[$i] = 0;
$ii2[$i] = 0;
}

for($i=1; $i<$ii_w; $i++ ){
$ii[$i*$ii_w] = 0;
$ii2[$i*$ii_w] = 0;
$rowsum = 0;
$rowsum2 = 0;
for($j=1; $j<$ii_h; $j++ ){                 $rgb = ImageColorAt($canvas, $j, $i);                 $red = ($rgb >> 16) &amp;amp; 0xFF;
$green = ($rgb >>  &amp;amp; 0xFF;
$blue = $rgb &amp;amp; 0xFF;
$grey = ( 0.2989*$red + 0.587*$green + 0.114*$blue )>>0;  // this is what matlab uses
$rowsum += $grey;
$rowsum2 += $grey*$grey;

$ii_above = ($i-1)*$ii_w + $j;
$ii_this = $i*$ii_w + $j;

$ii[$ii_this] = $ii[$ii_above] + $rowsum;
$ii2[$ii_this] = $ii2[$ii_above] + $rowsum2;
}
}
return array('ii'=>$ii, 'ii2' => $ii2);
}

protected function do_detect_greedy_big_to_small( $ii, $ii2, $width, $height ){
$s_w = $width/20.0;
$s_h = $height/20.0;
$start_scale = $s_h < $s_w ? $s_h : $s_w;         $scale_update = 1 / 1.2;         for($scale = $start_scale; $scale > 1; $scale *= $scale_update ){
$w = (20*$scale) >> 0;
$endx = $width - $w - 1;
$endy = $height - $w - 1;
$step = max( $scale, 2 ) >> 0;
$inv_area = 1 / ($w*$w);
for($y = 0; $y < $endy ; $y += $step ){
for($x = 0; $x < $endx ; $x += $step ){                     $passed = $this->detect_on_sub_image( $x, $y, $scale, $ii, $ii2, $w, $width+1, $inv_area);
if( $passed ) {
return array('x'=>$x, 'y'=>$y, 'w'=>$w);
}
} // end x
} // end y
}  // end scale
return null;
}

protected function detect_on_sub_image( $x, $y, $scale, $ii, $ii2, $w, $iiw, $inv_area){
$mean = ( $ii[($y+$w)*$iiw + $x + $w] + $ii[$y*$iiw+$x] - $ii[($y+$w)*$iiw+$x] - $ii[$y*$iiw+$x+$w]  )*$inv_area;
$vnorm =  ( $ii2[($y+$w)*$iiw + $x + $w] + $ii2[$y*$iiw+$x] - $ii2[($y+$w)*$iiw+$x] - $ii2[$y*$iiw+$x+$w]  )*$inv_area - ($mean*$mean);
$vnorm = $vnorm > 1 ? sqrt($vnorm) : 1;

$passed = true;
for($i_stage = 0; $i_stage < count($this->detection_data); $i_stage++ ){
$stage = $this->detection_data[$i_stage];
$trees = $stage[0];

$stage_thresh = $stage[1];
$stage_sum = 0;

for($i_tree = 0; $i_tree < count($trees); $i_tree++ ){
$tree = $trees[$i_tree];
$current_node = $tree[0];
$tree_sum = 0;
while( $current_node != null ){
$vals = $current_node[0];
$node_thresh = $vals[0];
$leftval = $vals[1];
$rightval = $vals[2];
$leftidx = $vals[3];
$rightidx = $vals[4];
$rects = $current_node[1];

$rect_sum = 0;
for( $i_rect = 0; $i_rect < count($rects); $i_rect++ ){                         $s = $scale;                         $rect = $rects[$i_rect];                         $rx = ($rect[0]*$s+$x)>>0;
$ry = ($rect[1]*$s+$y)>>0;
$rw = ($rect[2]*$s)>>0;
$rh = ($rect[3]*$s)>>0;
$wt = $rect[4];

$r_sum = ( $ii[($ry+$rh)*$iiw + $rx + $rw] + $ii[$ry*$iiw+$rx] - $ii[($ry+$rh)*$iiw+$rx] - $ii[$ry*$iiw+$rx+$rw] )*$wt;
$rect_sum += $r_sum;
}

$rect_sum *= $inv_area;

$current_node = null;
if( $rect_sum >= $node_thresh*$vnorm ){
if( $rightidx == -1 )
$tree_sum = $rightval;
else
$current_node = $tree[$rightidx];
} else {
if( $leftidx == -1 )
$tree_sum = $leftval;
else
$current_node = $tree[$leftidx];
}
}
$stage_sum += $tree_sum;
}
if( $stage_sum < $stage_thresh ){
return false;
}
}
return true;
}
}

To use the code you will require a specific DAT file: http://svay.com/experiences/face-detection/detection.dat , the DAT file should be in the same folder as the piece of code as above, if this is not possible you will need to set the location in the piece of PHP code to follow.

Whenever you want to highlight a face in a picture run this piece of PHP code:

$detector = new Face_Detector('detection.dat');
$detector->face_detect('myface.jpg');
$detector->toJpeg();

Change the “myface.jpg” string to the image you wish to check. The result will look something like this:

If you require a true or false response then return “$passed” instead and remove the line that outputs the jpeg image. This code is very useful and could be used for many purposes including:

• Checking ID card photos (if the code can’t find the face the picture may not be clear enough)
• Sorting images into people and places
• Check if images taken by a webcam contain a face

If you have any suggestions about the code or any other ideas of its uses, let us know!

Normally you would need to include security routines for Cryptography and it takes many lines of code to achieve, well try this instead:

<%@ Import Namespace="System.Web.Security" %>

<%

Dim apikey,hash,secretkey,sign
secretkey = "foo"
apikey = "bar"

sign = secretkey +  apikey + "string"

hash = FormsAuthentication.HashPasswordForStoringInConfigFile (sign, "MD5")

%>

<%=hash.ToLower()%>

Sneakily using the web security name space instead you can quickly turn any string or strings into a perfect MD5 hash everytime. Much quicker then playing around with cryptography!

<?php

// Set a huge memory limit for this page just incase
ini_set ( "memory_limit", "48M");

// Source URL for Image
$filename = 'http://www.bbc.co.uk/england/webcams/live/ipswich.jpg';
// Percent to reduce source image to
$percent = 0.5;

// Headers
header('Content-type: image/jpeg');
header("Connection: close");
header("Expires: -1");

// Figure out sizes
list($width, $height) = getimagesize($filename);
$newwidth = $width * $percent;
$newheight = $height * $percent;

// Prepare everything
$thumb = imagecreatetruecolor($newwidth, $newheight);
$source = imagecreatefromjpeg($filename);

// Do the resize
imagecopyresized($thumb, $source, 0, 0, 0, 0, $newwidth, $newheight, $width, $height);

// Output the result
imagejpeg($thumb);
imagedestroy($thumb);
imagedestroy($source);

?>

This code will resize the live feed image from the BBC website and display the result as a thumbnail (50% of the original size to be precise). It also sets the headers to ensure the image is not cached, changes the memory limit temporarily in case you plan on resizing HD images and free’s up the memory when it has finished. The code is well commented above for you to change as you need.

Here is a short function to remove permissions off a file:

Private Function RemovePermission(ByVal Foldername As String, ByVal StrSIDorUser As String, ByVal strtype As String) As Boolean
Dim oSecurity As New FileSecurity
Try
oSecurity = File.GetAccessControl(Foldername)
Dim DirSecRules As AuthorizationRuleCollection = oSecurity.GetAccessRules(True, True, GetType(System.Security.Principal.SecurityIdentifier))
For Each DirSecRule As FileSystemAccessRule In DirSecRules
If String.Compare(strtype, "SID", True) = 0 Then
If String.Compare(DirSecRule.IdentityReference.ToString, StrSIDorUser) = 0 Then
'oSecurity.RemoveAccessRuleAll(DirSecRule)
oSecurity.RemoveAccessRule(DirSecRule)
Exit For
End If
Else
Dim account As NTAccount = CType(DirSecRule.IdentityReference.Translate(GetType(NTAccount)), NTAccount)
If String.Compare(account.ToString, StrSIDorUser, True) = 0 Then
'oSecurity.RemoveAccessRuleAll(DirSecRule)

oSecurity.RemoveAccessRuleSpecific(DirSecRule)
Exit For
End If
End If
Next
File.SetAccessControl(Foldername, oSecurity)
Catch ex As Exception
Throw New Exception(ex.Message)
Finally
oSecurity = Nothing
End Try
End Function

Now before you run this there is two things to note. Firstly you can pass it either a SID or an Samaccountname to remove. Either way just specify it when you call the function. Second thing is i have found inheritance to be a little bit of a pain.

So here is a function to remove inheritance from a folder:

Public Sub RemoveInheritance(ByVal Path As String)
Dim dInfo As New DirectoryInfo(Path)
Dim ds2 As DirectorySecurity = dInfo.GetAccessControl()

ds2.SetAccessRule((New FileSystemAccessRule("BUILTIN\ADMINISTRATORS", FileSystemRights.FullControl, InheritanceFlags.None, PropagationFlags.InheritOnly, AccessControlType.Allow)))
ds2.AddAccessRule(New FileSystemAccessRule("BUILTIN\ADMINISTRATORS", FileSystemRights.FullControl, (InheritanceFlags.ContainerInherit + InheritanceFlags.ObjectInherit), PropagationFlags.InheritOnly, AccessControlType.Allow))

ds2.SetAccessRuleProtection(True, False)
dInfo.SetAccessControl(ds2)
dInfo = Nothing
End Sub

The interesting line is this one:

ds2.SetAccessRuleProtection(True, False)

The first Boolean sets protects the folder from inheritance. The second one is only used if the first is true. If set to false it will remove all inherited rules that were created. If set to true it will keep them as copies. As you can see here i opted for remove. It was easier for me to this.

If you do remove, make sure there is still an account with full rights to the file. As you can see here in the same function i add builtin\administrators to have full control. This is to stop all the permissions being removed.

<?php

$term = "metal gear solid 4: guns of the patriots";

$term = preg_replace('/ /', '%20', $term);

$url = "http://ajax.googleapis.com/ajax/services/search/images?v=1.0&q=".$term."%20wallpaper%20&imgsz=huge&as_filetype=jpg&key=MYKEY&rsz=large";
$subject = $str;
$subject = preg_replace('/.*?"unescapedUrl":"/', '', $str);
$subject = preg_replace("/.jpg.*/", '' , $subject);
echo "<img src="".$subject.".jpg" alt="" />";
?>

This code will display the image in HTML from the term you provide. You must obtain a Google API key first and put it in place of ‘MYKEY’, but feel free to change the search term to whatever you like. You can also change the size of the image to search for to ’small’ , ‘medium’ or ‘large’ from where it currently says ‘huge’. The ‘rsz’ value is best kept set to ‘large’ as this is the size of the pool of results it will choose the image from.

This code could be adapted to display multiple images, use the image as a background image or whatever you require to be honest, have fun!