PFCregck:

; Registry check script
; Variables passed to program
$INTVER="1.1"

; $MODE Action to perform
; $ITEM Registry entry to check
; $VERSION Value to check against
; $VALUE
;
; program returns 1 is value is correct, 0 if not

; Make sure proper variables were passed to the system
;
if ($MODE = "" OR $ITEM = "" OR $VERSION = "")
goto "help"
endif

; pad the $VERSION to four digits
;
$VERSION = "" + $VERSION
:loop1
If len($VERSION) < 3
$VERSION = "0" + $VERSION
goto loop1
Endif

if $MODE = "QUERY"
goto "queryreg"
else
if $MODE = "ADD"
goto "addreg"
else
if $MODE = "REMOVE"
goto "removereg"
endif

goto "help"

:queryreg
$Exist = ReadValue("HKEY_LOCAL_MACHINE\Software\PFC Informatics",$ITEM +"."+ $VERSION)
If @ERROR = 0
EXIT 0
else
EXIT 1
endif
goto "done"

:addreg
IF ($VALUE = "" OR $VALUE="_SYSTEM_DATE")
$VALUE="@DATE @TIME"
endif

$Exist = ExistKey("HKEY_LOCAL_MACHINE\Software\PFC Informatics")
if $Exist > 0
$Error = AddKey("HKEY_LOCAL_MACHINE\Software\PFC Informatics")
if $Error > 0
EXIT 1
endif
endif
$Error = WriteValue("HKEY_LOCAL_MACHINE\Software\PFC Informatics",$ITEM +"."+ $VERSION,"$VALUE","REG_SZ")
If $Error = 0
EXIT 0
Else
EXIT 1
Endif
goto "done"