Generator haseł z eksportem do notatnika

[RobiSx]

Witam. Mam następujący kod:

$pwd = ""
Dim $aSpace[3]
$digits = 15
For $i = 1 To $digits
    $aSpace[0] = Chr(Random(65, 90, 1)) ;A-Z
    $aSpace[1] = Chr(Random(97, 122, 1)) ;a-z
    $aSpace[2] = Chr(Random(48, 57, 1)) ;0-9
    $pwd &= $aSpace[Random(0, 2, 1)]
Next
ConsoleWrite("Your password (" & $digits & " digits): " & $pwd & @CRLF)
MsgBox(0, "Password Generator", "Your password (" & $digits & " digits): " & $pwd)

Chciałbym, aby po wygenerowaniu hasła zamiast pokazania się MsgBoxa z nim hasło lądowało do wcześniej swtorzonego pliku .txt. Co muszę tutaj zmienić w takim przypadku?

[Marchwj]

$file = FileOpen("pass.txt", 2)
$pwd = ""
Dim $aSpace[3]
$digits = 15
For $i = 1 To $digits
    $aSpace[0] = Chr(Random(65, 90, 1)) ;A-Z
    $aSpace[1] = Chr(Random(97, 122, 1)) ;a-z
    $aSpace[2] = Chr(Random(48, 57, 1)) ;0-9
    $pwd &= $aSpace[Random(0, 2, 1)]
Next
ConsoleWrite("Your password (" & $digits & " digits): " & $pwd & @CRLF)
MsgBox(0, "Password Generator", "Your password (" & $digits & " digits): " & $pwd)
FileWrite($file, $pwd & @CRLF)

Nie musisz tworzyć pliku o nazwie pass.txt, jak go nie będzie to skrypt sam stworzy i później będzie nadpisywał.