E:\Amic>kix32 -d Amic.kix.txt
Script error : error in parameter(s) !.
$mfr = substr($line,instr($line,"'")+1)

Here is the script:

;Insure Network shares has write access for Users to AMIC Path
;set varables
$AMICPath = "\\bcgdist01\docs$\amic\"
$AMICFile = @WKSTA + "-AMIC.txt"
$AMICLog = $AMICPath + $AMICFile
$BIOSFile = $AMICPath + @WKSTA + "-BIOS.TXT"
$BIOSLocal = "%TEMP%\@WKSTA-BIOS.txt"
;CLEAN-UP
del $AMICLOG

;copy SMBIOS2 to Local System
IF EXIST (%temp%\SMBIOS2.EXE)
GOTO BIOS
ELSE
Copy $AMICPath + "SMBIOS2.EXE" %temp% + "\SMBIOS2.EXE"
GOTO BIOS
ENDIF

:BIOS
;Run Bios capture Utiltiy
;Write Bios info --> SMBIOS2 /h for info
SHELL "%COMSPEC% /E:1024 /C " +%TEMP% + "\SMBIOS2.EXE /g 1 > $BIOSLocal"
SHELL "%COMSPEC% /E:1024 /C " +%TEMP% + "\SMBIOS2.EXE /a > $BIOSFile"

;Log Events to Amic Log
$LogFile = $AMICLog
$LogText = "Asset Tag#: "+ @WKSTA
GOSUB LOG
$LogText = "FullName: " + @FULLNAME
GOSUB LOG
$LogText = "Cubicle#: "
GOSUB LOG
$LogText = "Site: "+ $site
GOSUB LOG
$LogText = "MAC: " + @ADDRESS
GOSUB LOG
$LogText = "User ID: " + @USERID
GOSUB LOG
$LogText = "Date: Captured: " + @DATE

;Parse BIOS LOG File to AMIC File

if open(1,$BIOSLocal) = 0
$line = readline(1)
while @error=0
if $line
select
case instr($line,"Manufacturer:")
$mfr = substr($line,instr($line,"'")+1)
$mfr = substr($mfr,1,len($mfr)-1)
?"mfr=" $mfr
GOSUB LOG
$LogText = "Manufacture: " + $mfr
case instr($line,"Product Name:")
$prd = substr($line,instr($line,"'")+1)
$prd = substr($prd,1,len($prd)-1)
?"prd=" $prd
GOSUB LOG
$LogText = "Model Number: " + $prd
case instr($line,"Serial Number:")
$sn = substr($line,instr($line,"'")+1)
$sn = substr($sn,1,len($sn)-1)
?"sn=" $sn
GOSUB LOG
$LogText = "Serial Number: " + $sn
case 1
endselect
endif
$line=readline(1)
loop
$=close(1)
endif

:LOG
$Dummy = REDIRECTOUTPUT( $LogFile, 0 )
? $LogText
$Dummy = REDIRECTOUTPUT( "" )
RETURN