Arquivo .BAT

Delphi

13/01/2012

Boa tarde,


Por favor me ajudem. Preciso fazer um arquivo bat para acessar um equipamento. No prompt do windows xp digito da seguinte forma:

telnet 192.168.1.9 (digito em qualquer diretório que abrir)
login (ele pede o login, digito e aperto enter)
senha (mesma coisa)
boot action=reset (digito esse comando e ele reinicia o equipamento)

Preciso fazer esses passos automaticamente sem que o usuário interaja.

Obrigado,

Leandro

Leandro Casare

Leandro Casare

Curtidas 0

Respostas

Edson Melo

Edson Melo

13/01/2012

sou novato em delphi,mas pelo que analizei o delphi tem comando para executar comandos em DOS, não me lembro como se escreve mas existe, eso colocar este comando dentro de seu form que ele executara, como voce deseja, existe tambem outra opção, tenho alguuns helps de funcoes de delphi, onde encontrei e ja utilizei rotinas que criar arquivos texto, voce poderia utilizar tambem estas rotinas para criar seus arquivos texto na hora de execução do seu aplicativo, claro que na hora de criação seria mudado a extenção para bat.

duas opções muito faceis de se implementar, utilizo bastantte elas em meu sistemas. se for o caso te envio um modelo
GOSTEI 0
Edson Melo

Edson Melo

13/01/2012

procedure TForm1.Button1Click(Sender: TObject);
var
arquivo: TextFile;
begin
// vamos fazer uma ligação entre a variável arquivo e o
// arquivo que queremos manipular
AssignFile(arquivo, C:\arquivo de codigos\dados.txt);

// vamos abrir o arquivo ou criar um novo
Rewrite(arquivo);

// vamos escrever no arquivo agora
WriteLn(arquivo, Sou a primeira linha.);
Write(arquivo, Sou a segunda linha.);
WriteLn(arquivo, E lá vem...);
WriteLn(arquivo, A terceira linha);

// hora de fechar o arquivo
CloseFile(arquivo);

// fim
ShowMessage(Operação realizada com sucesso.);
end;
GOSTEI 0
Edson Melo

Edson Melo

13/01/2012

WinExec(PChar(command.com /c shutdown -s),SW_HIDE);

Explicando:

command.com: o arquivo do MS-DOS localizado na pasta C
/c: em seguida virá o comando
SW_HIDE: para a tela preta do DOS não aparecer

Falou!
GOSTEI 0
POSTAR