Usar Net USE pelo comando RUN do Clipper no XP

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

Fabião
Usuário Nível 1
Usuário Nível 1
Mensagens: 8
Registrado em: 02 Jun 2006 13:50
Localização: SAP - PARANÁ

Usar Net USE pelo comando RUN do Clipper no XP

Mensagem por Fabião »

Olá amigos..
Estou tendo problemas com o comando RUN quando executo o NET USE para capturar a porta da impressora no Windows XP.
Outros comandos do DOS funcionam normalmente, soh o net use que não.
A sintaxe do Net Use está correta pois quando faço no DOS funciona, e na aplicação dá a mensagem de "comando ou nome de arquivo inválido".
Já fiz tudo o que falavam nos outros tópicos e nada deu cero.
Por favor me ajudem.
:{
smith
Usuário Nível 1
Usuário Nível 1
Mensagens: 30
Registrado em: 07 Abr 2006 13:02

Mensagem por smith »

como está a sintaxe do comando dentro do clipper ?

tenta assim:
RUN cmd.exe /c SEU_COMANDO_NET_USE > null

eu uso o comando NET USE no .bat antes de chamar o .exe e também funciona !
Rsteimetz[Maj]
www.q2a.hajas.org
Fabião
Usuário Nível 1
Usuário Nível 1
Mensagens: 8
Registrado em: 02 Jun 2006 13:50
Localização: SAP - PARANÁ

Mensagem por Fabião »

A minha sintaxe está assim RUN("Cmd /C Start NET USE Lpt1 \\MAQ_001\EPSON \YES")

Qualquer outro comando funciona, so o net use que não.
Com um Arquivo bat funciona, mais ficaria mais elegante fazendo a conexão de rede pelo próprio sistema, e isso que eu queria fazer.

Obrigado
Avatar do usuário
digitom
Usuário Nível 2
Usuário Nível 2
Mensagens: 93
Registrado em: 06 Abr 2006 13:52
Localização: Anápolis-Go
Contato:

Mensagem por digitom »

Fabião escreveu:A minha sintaxe está assim
RUN("Cmd /C Start NET USE Lpt1 \\MAQ_001\EPSON \YES")
Não seria por causa do \YES
RUN("Cmd /C Start NET USE Lpt1 \\MAQ_001\EPSON\YES")


Tente assim
RUN("Cmd /C Start NET USE Lpt1 \\MAQ_001\EPSON")
Fui :)
smith
Usuário Nível 1
Usuário Nível 1
Mensagens: 30
Registrado em: 07 Abr 2006 13:02

Mensagem por smith »

eu acabei de testar assim e funcionou :

RUN Cmd.exe /C NET USE Lpt2 \\estação\impressora
Rsteimetz[Maj]
www.q2a.hajas.org
Mário Isa
Usuário Nível 4
Usuário Nível 4
Mensagens: 907
Registrado em: 07 Jul 2004 13:54
Localização: Ilha Solteira-sp

Mensagem por Mário Isa »

pode usar a cláusula YES
mas utilize a barrar normal (/)

Então ficaria assim:

RUN("Cmd /C Start NET USE Lpt1 \\MAQ_001\EPSON /YES")

-:]
Avatar do usuário
Augusto
Usuário Nível 3
Usuário Nível 3
Mensagens: 473
Registrado em: 26 Ago 2003 17:50
Localização: Maricá/RJ
Contato:

Mensagem por Augusto »

Eu uso assim e sempre dá certo... seja dentro do PRG ou num BAT...

(No PRG)
run cmd.exe /C NET USE Lpt2 \\estação\impressora /y

(No BAT)
cmd.exe /C NET USE Lpt2 \\estação\impressora /y
:xau Fui...
goulart@provsul.com.br

Faça da PROVSUL o seu Provedor de Serviços WEB
Visite: www.PROVSUL.com.br
Fabião
Usuário Nível 1
Usuário Nível 1
Mensagens: 8
Registrado em: 02 Jun 2006 13:50
Localização: SAP - PARANÁ

Mensagem por Fabião »

Aí galera, Valew pelas dicas!!!
No meu Autoexec.NT, o SET PATH não estava setando para o diretório Windows\system32.
Depois disso funcionou ok...
Agora soh tenho q ver como q faço para não exibir a mensagem na tela!!!
Obrigado Amigos.
:))
smith
Usuário Nível 1
Usuário Nível 1
Mensagens: 30
Registrado em: 07 Abr 2006 13:02

Mensagem por smith »

Fabião escreveu:...
Agora soh tenho q ver como q faço para não exibir a mensagem na tela!!!
Obrigado Amigos.
:))
Pra não exibir a mensagem vc coloca no final do comando isso: > null

exemplo:
run cmd.exe /C NET USE Lpt2 \\estação\impressora /y > null
Rsteimetz[Maj]
www.q2a.hajas.org
Fabião
Usuário Nível 1
Usuário Nível 1
Mensagens: 8
Registrado em: 02 Jun 2006 13:50
Localização: SAP - PARANÁ

Mensagem por Fabião »

Olá amigos...
O Comando > Null apenas inibe o comando, mas como faço para inibir tambem possíveis mensagens de erro, do tipo quando o caminho da impressora estiver errado???
:-o
clebermano
Usuário Nível 3
Usuário Nível 3
Mensagens: 187
Registrado em: 03 Out 2004 12:39
Contato:

Mensagem por clebermano »

pq vc nao usa os comandos da ctp.lib como por exemplo o netredir()??
Vastec - Automacao Comercial Ltda - Ribeirao Preto - SP. (16)3968-2299-(16)8154-7828 (16)8121-4139
msn: suporte@clebermano.com.br - email: clebermanorp@yahoo.com.br
Quem nao vive pra servir nao serve pra viver !
Fabião
Usuário Nível 1
Usuário Nível 1
Mensagens: 8
Registrado em: 02 Jun 2006 13:50
Localização: SAP - PARANÁ

Mensagem por Fabião »

Qual é a sintaxe deste comando???
netredir()??

:-O
clebermano
Usuário Nível 3
Usuário Nível 3
Mensagens: 187
Registrado em: 03 Out 2004 12:39
Contato:

Mensagem por clebermano »

netredir("F:","\\MICRO01\DRIVEC")
se eu nao me engano.
mas vc pode pegar o manual da ctp.lib, eh muito boa e tem uma pancada de funcoes uteis, principalmete para rede.
Vastec - Automacao Comercial Ltda - Ribeirao Preto - SP. (16)3968-2299-(16)8154-7828 (16)8121-4139
msn: suporte@clebermano.com.br - email: clebermanorp@yahoo.com.br
Quem nao vive pra servir nao serve pra viver !
clebermano
Usuário Nível 3
Usuário Nível 3
Mensagens: 187
Registrado em: 03 Out 2004 12:39
Contato:

Mensagem por clebermano »

ow melhor a lib eh a ctp53
se for clipper 5.3
Vastec - Automacao Comercial Ltda - Ribeirao Preto - SP. (16)3968-2299-(16)8154-7828 (16)8121-4139
msn: suporte@clebermano.com.br - email: clebermanorp@yahoo.com.br
Quem nao vive pra servir nao serve pra viver !
Fabião
Usuário Nível 1
Usuário Nível 1
Mensagens: 8
Registrado em: 02 Jun 2006 13:50
Localização: SAP - PARANÁ

Mensagem por Fabião »

Aonde eu acho o manual da ctp.lib???
Vc me pode enviar???
Responder