sub mcafee 	{
# carry out Reg Query and action as required
use Win32::TieRegistry ( Delimiter=>"/", ArrayValues=>1 );
$Registry->Delimiter("/");                  # Set delimiter to "/".
$remKey= $Registry->Connect( "$server", "LMachine", { Access=>KEY_READ,Delimiter=>"/" } );
$regkey = $remKey->{"Software/network associates/tvd/netshield nt/currentversion/szenginever"};
# print "@$regkey[0]\n";	# Print it (note it is a reference to an array -hence the @$)uncomment for bug fixing
	print  "ANTI VIRUS INFORMATION: \n";
	print  "------------------------";
	print  "\nNetshield Anti Virus Engine Version $regkey\n";	# Print it (note it is a reference to an array -hence the @$)
# Get the location where the upgrade will come from 
	$Registry->Delimiter("/");                  # Set delimiter to "/".
	$remKey= $Registry->Connect( "$server", "LMachine/", { Access=>KEY_READ,Delimiter=>"/" } );	# Connect to remote registry
	$regkey= $remKey->{"Software/network associates/tvd/netshield nt/currentversion/tasks/upgrade//szupdateunclocation"};
	$upguser= $regkey->{"Software/network associates/tvd/netshield nt/currentversion/tasks/upgrade//szrunasuser"};
	print  "Engine Update Source Server $regkey. Using this account - $upguser\n";
# get dat file version
	$Registry->Delimiter("/");              
	$remKey= $Registry->Connect( "$server", "LMachine/", { Access=>KEY_READ,Delimiter=>"/" } );	# Connect to remote registry
	$regkey= $remKey->{"software/network associates/tvd/netshield nt/currentversion//szvirdefver"};
	print  "\nVirus Definition file version $regkey\n";	
# get dat file date
	$Registry->Delimiter("/");              
	$remKey= $Registry->Connect( "$server", "LMachine/", { Access=>KEY_READ,Delimiter=>"/" } );	# Connect to remote registry
	$regkey= $remKey->{"software/network associates/tvd/netshield nt/currentversion//szvirdefdate"};
	print  "Virus Definition file date $regkey\n";		
		
# Get the location where the update comes from ..
	$Registry->Delimiter("/"); 
	$remKey= $Registry->Connect( "$server", "LMachine/", { Access=>KEY_READ,Delimiter=>"/" } );	# Connect to remote registry
	$regval= $remKey->{"software/network associates/tvd/netshield nt/currentversion/tasks/update//szupdateunclocation"};
	$upduser= $remKey->{"software/network associates/tvd/netshield nt/currentversion/tasks/update//szrunasuser"};
	print  "Virus Update definition file source $regval . Using this account - $upduser\n";	
# Get Alerter info.
	$Registry->Delimiter("/");             
	$remKey= $Registry->Connect( "$server", "LMachine/", { Access=>KEY_READ,Delimiter=>"/" } );	# Connect to remote registry
	$regval= $remKey->{"software/network associates/tvd/shared components/alert manager/recipients//recipient0"};
	print  "\nVirus Alerts:\n";
	print "-------------";
	print  "\nAnti Virus Alert recipient 0 set to: $regval: ";
	$regval= $remKey->{"software/network associates/tvd/shared components/alert manager/recipients//recipient1"};
	print  "\nAnti Virus Alert recipient 1 set to: $regval: ";
	$regval= $remKey->{"software/network associates/tvd/shared components/alert manager/recipients//recipient2"};
	print  "\nAnti Virus Alert recipient 2 set to: $regval: ";
#	Get Scheduler Info.
	print "\n\nScheduler Info\n";
	print "--------------\n";
	$Registry->Delimiter("/");             
	$remKey= $Registry->Connect( "$server", "LMachine/", { Access=>KEY_READ,Delimiter=>"/" } );	# Connect to remote registry
	$regval= $remKey->{"software/network associates/tvd/Netshield NT/CurrentVersion/Tasks/Update//bSchedEnabled"};
	
	if ($regval=="0x00000001") {
	$schedenabled="Yes";
	} else {
	$schedenabled="No";
	}
	print "Update Scheduler enabled: $schedenabled\n";
#	Get Upgrade Sched info	
	$Registry->Delimiter("/");             
	$remKey= $Registry->Connect( "$server", "LMachine/", { Access=>KEY_READ,Delimiter=>"/" } );	# Connect to remote registry
	$regval= $remKey->{"software/network associates/tvd/Netshield NT/CurrentVersion/Tasks/Upgrade//bSchedEnabled"};
	
	if ($regval=="0x00000001") {
	$schedenabled="Yes";
	} else {
	$schedenabled="No";
	}
	print "Upgrade Scheduler enabled: $schedenabled\n";
}