[Løst]Hvor skal ip adressen settes inn ?

[Datasmurfen]

Jeg skal sette inn en ip adresse i denne variabelen.. Hvor skal den stå ? Blir det ikke etter set ip og så ipadresse ?

 

set ip [lindex $argv 0]

[Xecuter]

Hva hendte med prøve og feile?

[Breke]

Jeg skal sette inn en ip adresse i denne variabelen.. Hvor skal den stå ? Blir det ikke etter set ip og så ipadresse ?

 

set ip [lindex $argv 0]

 

$argv0 er jo om du skal legge ved et argument er det ikke? Skjønner ikke helt hvor du skal legge inn ip-adressen jeg. Kan du poste mer av scriptet?

[Datasmurfen]

 

#!/usr/bin/expect

 

proc fail args {

puts "[lindex $args 0]"

exit

}

 

proc trypass pass {

global lpass

send "$pass\r"

set lpass $pass

}

 

set ip [lindex $argv 0]

 

set passfile [open "passfile" "r"]

set password [read $passfile]

set password [lindex [split $password "\n"] end-1]

close $passfile

 

set newpass [expr rand()]

 

puts "$password > $newpass"

 

set timeout 10

spawn telnet $ip

 

set i 0

while (true) {

expect {

 

[Torbjørn]

er dette perl?

[Datasmurfen]

er dette perl?

 

nei expect

[Torbjørn]

ah jeg trodde denne tråden levde i det som inntil nylig var perl-forumet