Here's some code I use for checking NAV patterns. I know it's not the same AV software, but you should be able to garner enough from my methodology to get you started.

Basically, you'd read in the filenames with Dir() and then keep only the last three characters usinf Substr().

code:

Break on
$Index = 0
Dim $FNArray[9]
$FNewest = 0
$NewLine ="Current NAV Virus Definition File Date: "
$FileName = Dir("C:\Program Files\Common Files\Symantec Shared\VirusDefs")
While $FileName <> "" and @ERROR = 0
	If Val($FileName) <> 0
		$FNArray[$Index] = Val($FileName)
		$Index = $Index + 1
	EndIf
	$FileName = Dir()
Loop
For $X = 0 To $Index Step 1
	If $FNArray[$X] > $FNewest
		$FNewest = $FNArray[$X]
	EndIf
Next
$VPDate = Substr($FNewest,5,2) + "/" + Substr($FNewest,7,2) + "/" + Substr($FNewest,1,4)
If exist ("D:\Inetpub\wwwroot\VirusPattern2.txt")
	Del "D:\Inetpub\wwwroot\VirusPattern2.txt"
EndIf
If Open(1,"D:\Inetpub\wwwroot\VirusPattern2.txt",5) = 0
	$ = WriteLine(1,$NewLine + $VPDate)
EndIf
$ = Close(1)
Copy "D:\Inetpub\wwwroot\VirusPattern2.txt" "D:\Inetpub\wwwroot\VirusPattern.txt"
exit 1

In My case, I post the pattern date on my intranet.

_________________________
Give a man a fish and he will be back for more. Slap him with a fish and he will go away forever.