# 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 = <STDIN>;
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++;
}