http://www.users.globalnet.co.uk/~mnemonix/test4guest.htm

# TEST FOR GUEST
# Created by Mnemonix 30th April 1998
#
# This script will test for the existence of an enabled
# Guest account with with no password on a range of
# addresses eg 123.123.123.1 to 123.123.123.256

system ('cls');
print("Test for Guest - Mnemonix 1998\n\n");
print("Enter the first three bytes of the subnet\neg 123.123.123 : ");
$netaddress = ;
chop($netaddress);
print("\n\n");
$host = 1;
$password = '""';
$name = guest;

while ($host < 256)
{
        print ("net use \\\\$netaddress.$host\\ipc\$ $password
/user:$name");
        print ("\n\n");
        system ("net use \\\\$netaddress.$host\\ipc\$ $password
/user:$name");
        $host++;
}