PROBLEMA Errore in script VBS

[Crodattilo]

Ciao a tutti,
Non conosco questo linguaggio di programmazione, lo sto usando per un programma batch. Ho trovato questo codice su Internet e ho cercato di semplificarlo in base ai messaggi di errore. Vorrei che lo script tornasse all'inizio quando l'utente inserisce una password errata.

Questo è lo script:

1. dim password
3. password=InputBox("Type password","Type key to unlock","Key")
5. if password = ("hello") then
7. Else
8. dim incorect
9. Call password
10. end if

quando inserisco una password errata, il messaggio di errore dice:
Linea 9
Carattere 2
Errore Tipo non corrispondente
(800a000d)


Non conoscendo questo linguaggio a questo punto non so cosa fare, spero che qualcuno possa aiutarmi. Grazie :)

 

[Mursey]

password è una variabile mentre tu la chiami come se fosse una funzione.

 

[Crodattilo]

password è una variabile mentre tu la chiami come se fosse una funzione.

Non capisco... così non mi da nessun messaggio di errore ma non funziona nemmeno.

1. function pw(key)
2. password=InputBox("Type password","Type key to unlock","Key")
3. if password = ("hello") then
4. Else
5. Call pw(key)
6. end if
7. end function

 

[Mursey]

http://www.morpheusweb.it/html/manuali/vbscript/vbscript_procedure.asp