Server Name: Server1
Security: *****
Registered Owner: **** 
Registered Organization: ***** 
ProductID: ****** 
Original Install Date: Wed Dec 15 15:18:53 2004
Base Source Path: ***
Service Pack Source Path: ***
Version: 5.1 
Build: 2600.xpsp1.020828-1920, Service Pack 1 
Current Type: Uniprocessor Free 
Product Name: Microsoft Windows XP 
Product Options: Professional
HAL.DLL is  5.1.2600.1106 - Microsoft Corporation - 5.1:2600.82
PDC: \\server
Domain: domain
Domain Guid: {list of numbers and dashes}
DNS Forest Name: DNS Forest
PDC Site Name: Site Name
Computer Site Name: Site Name
CPU[0]: x86 Family 6 Model 8 Stepping 6: 866 MHz
System BIOS Date: Date
System BIOS Version:  Version     
Hotfixes:
   Windows XP:
      SP2
         [KB823182]: Installed on 12/15/2004 by User 
         [KB823559]: Installed on 12/15/2004 by User 
         [KB823980]: Installed on 12/15/2004 by User 
         [KB824141]: Installed on 12/15/2004 by User 
         [KB824146]: Installed on 12/15/2004 by User 
         [KB825119]: Installed on 12/15/2004 by User 
         [KB828028]: Installed on 12/15/2004 by User 
         [KB828035]: Installed on 12/15/2004 by User 
         [KB828741]: Installed on 12/15/2004 by User 
         [KB833987]: Installed on 8/16/2005 by User 
         [KB835732]: Installed on 12/15/2004 by User 
         [KB892944]: Installed on 8/11/2005 by Administrator 
         [Q323255]: Installed on 12/15/2004 by User 
         [Q327696]: Installed on 12/15/2004 by User 
         [Q328310]: Installed on 12/15/2004 by User 
         [Q329390]: Installed on 12/15/2004 by User 
         [Q331953]: Installed on 12/15/2004 by User 
         [Q810833]: Installed on 12/15/2004 by User 
         [Q815021]: Installed on 12/15/2004 by User 
         [Q817606]: Installed on 12/15/2004 by User 
      SP3
         [KB873333]: Installed on 5/3/2005 by User 
         [KB885250]: Installed on 5/3/2005 by User 
         [KB888113]: Installed on 5/3/2005 by User 
         [KB890047]: Installed on 5/3/2005 by User 
         [KB891781]: Installed on 5/3/2005 by User 
         [KB893066]: Installed on 5/3/2005 by User 
         [KB893086]: Installed on 5/3/2005 by User 
         [KB896422]: Installed on 8/16/2005 by User 
         [KB899588]: Installed on 8/19/2005 by User 
   Internet Explorer 6:
      SP1
         [KB867282-IE6SP1-20050127.163319]: Installed on 5/3/2005 by User 
         [KB890923-IE6SP1-20050225.103456]: Installed on 5/3/2005 by User 
Drive:	[FileSys]  [ Size ]  [ Free ]  [ Used ]
  Drive Information
Network Card [0]: Card name
	IP Address(es): ***.***.***.***
	MAC Address: MAC
Network Card [1]: Card Name
	IP Address(es): ***.***.***.***
	MAC Address: MAC
Network Card [2]: Card name
	IP Address(es): ***.***.***.***
	MAC Address: ***
Protocols: 
   List of Protocols
System Up Time: 1 Days, 14 Hr,  9 Min, 13 Sec

##</code><code>##

#XP_SP1
#Patches begin here (All)
#Server1
 KB823182
 KB823559
 KB823980
 KB824141
 KB824146
 KB825119
 KB828028
 KB828035
 KB828741
 KB833987
 KB835732
 KB892944
 Q323255
 Q327696
 Q328310
 Q329390
 Q331953
 Q810833
 Q815021
 Q817606
 KB873333
 KB885250
 KB888113
 KB890047
 KB891781
 KB893066
 KB893086
 KB896422
 KB899588
 KB867282-IE6SP1-20050127.163319
 KB890923-IE6SP1-20050225.103456
#XP_SP1
#Patches begin here (All)
#Server2
[Another List of Patches]
#XP_SP1
#Patches begin here (All)
#Server3
[Another List of patches]

##</code><code>##

#!/usr/local/bin/perl -w

use diagnostics;   # optional; causes warnings to be explained in greater detail.
use strict;        # generates compile and run-time errors for certain unsafe constructs.

#AGT Tester srvinfo Section

	print "Backing up old agtsrvinfo.txt... <br>";
	rename ("txtfiles\\srvinfo.txt", "txtfiles\\bac\\srvinfo.bac") || die "Cannot rename agtsrvinfo.txt: $!";

	print "Starting AGT Tester hotfixes finder <br>";

	open (PCINFO, "txtfiles\\pcinfo.txt") or die "I could not get at agtpcinfo.txt as input";
	open (SRVINFO, ">>txtfiles\\srvinfo.txt") or die "I could not open agtsrvinfo.txt as output";

    		my $time;
    		$time = localtime(time());
    		print SRVINFO "$time.---------------------------------------------------------------<br><br>";

	while (<PCINFO>)
	{
     	chomp;
           my $srv;
     	$srv=$_;
     	print "$srv <br>";
          my $result;
     	$result = `srvinfo -ns \\\\$srv`;
		  my $dump;
     		 $dump.="Server Name: $srv<br>";
     		 $dump.="$result<br>";
     		 $dump.="<br>===========================<br><br>";
	print SRVINFO $dump;
			 $dump="";
	}
	close PCINFO;
	close SRVINFO;

#AGT Tester hotfixes Section

	print "Backing up old agthotfixes.txt... <br>";
	rename ("hotfixes.txt", "hotfixes.bac") || die "Cannot rename agthotfixes.txt: $!";

	open (INPUT, "txtfiles\\srvinfo.txt") or die "I could not open agtsrvinfo.txt";
	($WAIT_NAME, $WAIT_FIX, $WAIT_DRIVE) = (0,1,2);
	open (OUTPUT, ">>hotfixes.txt") or die "I could not open agthotfixed.txt";

	$CUR_STATE =  $WAIT_NAME;
	@FIXES;

	while(<INPUT>)
	{
		if($CUR_STATE == $WAIT_NAME && /^Server\ Name\:\ (.+)<br>/)
		{
			print OUTPUT "\#XP_SP1<br>\#Patches begin here (All)<br>";
			print OUTPUT "\#$1<br>";
			#print OUTPUT "$1";
			$CUR_STATE = $WAIT_FIX;
 		}
		elsif($CUR_STATE == $WAIT_FIX && /^Network\ Error\ (.+)<br>/)
		{
			print OUTPUT " $1";
			$CUR_STATE = $WAIT_NAME;
 		}
		elsif($CUR_STATE == $WAIT_FIX && /^PDC\:\ Error\ (.+)<br>/)
		{
			print OUTPUT " $1";
			$CUR_STATE = $WAIT_NAME;
 		}
		elsif($CUR_STATE == $WAIT_FIX && /^Hotfixes/)
		{
			$CUR_STATE = $WAIT_DRIVE;
			@FIXES="";
		}
		elsif($CUR_STATE == $WAIT_FIX && /^Drive/)
		{
			$CUR_STATE = $WAIT_NAME;
			print OUTPUT "@FIXES";
			@FIXES="";
		}
		elsif($CUR_STATE == $WAIT_FIX && /^Network/)
		{
			$CUR_STATE = $WAIT_NAME;
			print OUTPUT "@FIXES";
			@FIXES="";
		}
		elsif($CUR_STATE == $WAIT_DRIVE && /^Drive/)
		{
			$CUR_STATE = $WAIT_NAME;
			print OUTPUT "@FIXES";
			@FIXES="";
		}
		elsif($CUR_STATE == $WAIT_DRIVE && /^Network/)
		{
			$CUR_STATE = $WAIT_NAME;
			print OUTPUT "@FIXES";
			@FIXES="";
		}
		elsif($CUR_STATE == $WAIT_DRIVE && /^Protocols/)
		{
			$CUR_STATE = $WAIT_NAME;
			print OUTPUT "@FIXES";
			@FIXES="";
		}
		elsif($CUR_STATE == $WAIT_DRIVE && /\[(.+)\]\:/)
		{	
			push (@FIXES,"$1<br>");
		}
		else
		{
		#	die "INVALID DATA:$_";
		}
	}

	close INPUT;
	close OUTPUT;