Telnetzugriff mit Perl XP->WIN2k

[xls2001]

habe folgendes Skript:

use Net::Telnet ();

my $server = 'test';

my $pass = 'test';

my $prompt = "/c:\\\\>/";

my $log = 'c:/telnetlog.log';

my $t = new Net::Telnet (Timeout => 20,Prompt => $prompt,Output_log => 'C:/output.log' );

$t->dump_log($log);

$t->open($server);

$t->login('test',$pass);

$t->binmode(1);

@lines = $t->cmd("cd c:\windows");

print @lines;

@lines=$t->cmd("g:");

print @lines;

@lines=$t->cmd("csserver.bat");

print @lines;

es funzt leider nicht er kommt nur bis zum erfolgreichen Anmelden und dann ist Schluss (sehe ich an der Logdatei)

den Rest macht er nicht

Kann mir jemand helfen

[xls2001]

hat sich erledigt Pob ist gelöst