Não sei como fazer... mas vc poderia fazer o seguinte.... pedir para o
Usuario digitar o Login e senha.... e depois que executar o comando... vc
verifica se tem a Unidade que vc criou.... se deu td certo ... vc tera .. se
não ... não.....
Wesley
------------------------------------------------------------
----- Original Message -----
From: Anderson Furtilho
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, September 04, 2007 1:09 PM
Subject: Res: [delphi-br] Forçar Autenticação na Rede
Existe uma forma de eu tentar me conectar no \\dados\sef e o delphi me
retornar se
conseguiu ou nao encontrar este local ?
Pois ai eu poderia fazer um esquema para o usuário digitar o usuario e a senha
e passar como parametro no esquema que vc me mandou abaixo !!!
Mas desde ja antecipo meus agradecimentos
Anderson
----- Mensagem original ----
De: BandaLemuel <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 3 de Setembro de 2007 15:49:41
Assunto: Re: [delphi-br] Forçar Autenticação na Rede
Tente assim.... Mapeando uma Unidade
Winexec ( pchar( 'net use <Unidade> \\dados\sef /USER:<USuario> <senha> ) ,
SW_HIDE );
Onde Unidade é a Letra da Unidade. Exemplo : F:
Usuario = nome do Usuario na rede e a senha a senha do Usuario que vc esta
usandp para conectar ....segue o comando inteiro
Winexec ( pchar( 'net use F: \\dados\sef /USER:Administrador 123456 ) ,
SW_HIDE );
ai vc verifica
if FileExists(' F:\teste. exe') then
Espero ter ajudado...
Wesley
----- Original Message -----
From: Edu Nicácio
To: [EMAIL PROTECTED] os.com.br
Sent: Monday, September 03, 2007 3:08 PM
Subject: Re: [delphi-br] Forçar Autenticação na Rede
Dê uma procurada pelo comando NET SHARE no help do Windows.
Você pode usar um script de inicialização, que, quando executado, mapeia os
diretórios remotos em unidades locais, utilizando usuário e senha.
Simples assim.
Abraço.
------------ --------- --------- --------- --------- --------- -
Atenciosamente:
Eduardo Cláudio Nicácio
Analista de Sistemas Pleno
Fábrica 02 - CTIS
Tel.: (11) 3150-6841
eduardo.nicacio@ ctis.com. br
----- Original Message -----
From: Anderson Furtilho
To: [EMAIL PROTECTED] os.com.br
Sent: Monday, September 03, 2007 10:36 AM
Subject: [delphi-br] Forçar Autenticação na Rede
Saudações amigos da lista!
Amigos, atualmente eu faço assim
if FileExists(' \\dados\sef\ teste.exe' ) then
;
Caso o usuario ja tenha entrado no windows explorer acessado esta pasta e
digitado seu usuario e senha
ai funciona legal.
Mas quando o usuario liga o computador e ja roda meu programa o comando assim
nao funfa, pois ainda
nao foi digitado o usuario e senha para abrir a conexão nesta pasta.
Existe uma forma de forçar o usuario a se conectar nesta pasta acima e
digitar seu usuario e senha ?
Se algum amigo ja passou por este problema puder dar uma dica, ficarei
agradecido!
Um forte abraço a todos
Anderson
Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr. com.br/
[As partes desta mensagem que não continham texto foram removidas]
------------ --------- --------- --------- --------- --------- -
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.484 / Virus Database: 269.13.3/986 - Release Date: 3/9/2007 09:31
[As partes desta mensagem que não continham texto foram removidas]
<!--
#ygrp-mkp{
border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;}
#ygrp-mkp hr{
border:1px solid #d8d8d8;}
#ygrp-mkp #hd{
color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px
0px;}
#ygrp-mkp #ads{
margin-bottom:10px;}
#ygrp-mkp .ad{
padding:0 0;}
#ygrp-mkp .ad a{
color:#0000ff;text-decoration:none;}
-->
<!--
#ygrp-sponsor #ygrp-lc{
font-family:Arial;}
#ygrp-sponsor #ygrp-lc #hd{
margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;}
#ygrp-sponsor #ygrp-lc .ad{
margin-bottom:10px;padding:0 0;}
-->
<!--
#ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean,
sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;}
#ygrp-vitnav{
padding-top:10px;font-family:Verdana;font-size:77%;margin:0;}
#ygrp-vitnav a{
padding:0 1px;}
#ygrp-actbar{
clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;}
#ygrp-actbar .left{
float:left;white-space:nowrap;}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;font-size:77%;padding:15px 0;}
#ygrp-ft{
font-family:verdana;font-size:77%;border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;}
#ygrp-vital{
background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;}
#ygrp-vital #vithd{
font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;}
#ygrp-vital ul{
padding:0;margin:2px 0;}
#ygrp-vital ul li{
list-style-type:none;clear:both;border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;}
#ygrp-vital ul li .cat{
font-weight:bold;}
#ygrp-vital a{
text-decoration:none;}
#ygrp-vital a:hover{
text-decoration:underline;}
#ygrp-sponsor #hd{
color:#999;font-size:77%;}
#ygrp-sponsor #ov{
padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;margin:0;}
#ygrp-sponsor #ov li{
list-style-type:square;padding:6px 0;font-size:77%;}
#ygrp-sponsor #ov li a{
text-decoration:none;font-size:130%;}
#ygrp-sponsor #nc{
background-color:#eee;margin-bottom:20px;padding:0 8px;}
#ygrp-sponsor .ad{
padding:8px 0;}
#ygrp-sponsor .ad #hd1{
font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;}
#ygrp-sponsor .ad a{
text-decoration:none;}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;}
#ygrp-sponsor .ad p{
margin:0;}
o{font-size:0;}
.MsoNormal{
margin:0 0 0 0;}
#ygrp-text tt{
font-size:120%;}
blockquote{margin:0 0 0 4px;}
.replbq{margin:4;}
-->
Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr.com.br/
[As partes desta mensagem que não continham texto foram removidas]
------------------------------------------------------------------------------
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.485 / Virus Database: 269.13.5/988 - Release Date: 4/9/2007 09:14
[As partes desta mensagem que não continham texto foram removidas]
