Thanks Don!!
It worked great. This is what I needed it for:
:Norton
$KEY = "HKEY_LOCAL_MACHINE\SOFTWARE\Symantec\SharedDefs"
$RC = readvalue($KEY,"NAV_50_QUAR")
$RegDefDate = substr($RC,instr($RC,".")-4,4)
$FileName = Dir("@ldrive\*i32.exe")
While $FileName <> "" and @ERROR = 0
Dir()
Loop
$VirusDef = substr($FileName,1,4)
if (val($VirusDef) > val($RegDefDate))
SHELL "%COMSPEC% /C @ldrive\$FileName /q"
$MailToggle = 1
$TempString = "Norton has old definition. Date $RegDefDate $CR"
gosub mail
endif
return

The script is still a little rough looking, but it works the way I want. Just a note for people that want to use this to make a list, take out the "? $FileName" and add "? chr(13)". For some reason the "? $FileName" adds a period to the front of the file.

Thanks again,
Bonk