Error with $ModDate

[markdui]

Hi ,,

i am having problem with the below code. can someone assist me.

Basically this was passed to me from someone who is long gone (MIA)

It use to work until i tested it and now stuck at the Moddate ^

Appreciate if you could help me

Func UqKey()

$ModDt = FileGetTime(@ScriptDir & "\" & @ComputerName & "_Security_" & @YEAR & @MON & @MDAY & ".htm", 0, 0)

$ModDate = $ModDt[0] & $ModDt[1] & $ModDt[2] & $ModDt[3] & $ModDt[4]

$UniqueKey = ($ModDate * 81) + 250680

$Encrypt = StringReplace($UniqueKey, "e", "z")

$Encrypt = StringReplace($Encrypt, "+", "")

$Encrypt = StringReplace($Encrypt, "5", "S")

$Encrypt = StringReplace($Encrypt, "8", "B")

$Encrypt = StringReplace($Encrypt, "7", "L")

$Encrypt = StringReplace($Encrypt, ".", "#")

$Encrypt = StringReplace($Encrypt, "4", "H")

$Encrypt = StringReplace($Encrypt, "3", "K")

$Encrypt = $Encrypt

Return $Encrypt

EndFunc

Error

C:\Mark\My Scripts\W2K3 Scripts\Windows_Security.au3 (12295) : ==> Subscript used with non-Array variable.:

$ModDate = $ModDt[0] & $ModDt[1] & $ModDt[2] & $ModDt[3] & $ModDt[4]

$ModDate = $ModDt^ ERROR

[martin]

I expect that there is something wrong with the file you are trying to read, probably doesn't exist. Try adding this to the start of the function

$filename = @ScriptDir & "\" & @ComputerName & "_Security_" & @YEAR & @MON & @MDAY & ".htm"
if not fileExist($filename) then
 msgbox(0,'ERROR','No such file as' & @CRLF & $filename)
 return
endif

$ModDt = FileGetTime($filename, 0, 0)
if @error = 1 then
 msgbox(0,'ERROR',"Couldn't get time from file")
 return
endif
$ModDate = $ModDt[0] & $ModDt[1] & $ModDt[2] & $ModDt[3] & $ModDt[4]

[Monamo]

Assuming that there's an issue with the file it's referencing. Give this a shot:

Func UqKey()
    $ModFile = @ScriptDir & "\" & @ComputerName & "_Security_" & @YEAR & @MON & @MDAY & ".htm"
    If FileExists($ModFile) Then
        $ModDt = FileGetTime($ModFile, 0, 0)
        $ModDate = $ModDt[0] & $ModDt[1] & $ModDt[2] & $ModDt[3] & $ModDt[4]
        $UniqueKey = ($ModDate * 81) + 250680
        $Encrypt = StringReplace($UniqueKey, "e", "z")
        $Encrypt = StringReplace($Encrypt, "+", "")
        $Encrypt = StringReplace($Encrypt, "5", "S")
        $Encrypt = StringReplace($Encrypt, "8", "B")
        $Encrypt = StringReplace($Encrypt, "7", "L")
        $Encrypt = StringReplace($Encrypt, ".", "#")
        $Encrypt = StringReplace($Encrypt, "4", "H")
        $Encrypt = StringReplace($Encrypt, "3", "K")
        $Encrypt = $Encrypt
        Return $Encrypt
    Else
        MsgBox(48,"Error","Source File was not found for encryption mask." &@LF &@LF &$ModFile)
    EndIf

EndFunc

Edit: martin obviously had the same thought ^

Edited September 10, 2007 by Monamo

[markdui]

Thanks guy. am able to pit point whats causing the error. seems like it was unable to create a htm file. got to go figure. anyway thanks to all your help.