Tente com a fun��o abaixo:
External Functions
Library name: mpr.dll
Function: WNetGetUserA
Description:
Export Ordinal: 0
Returns
Number: WORD
Parameters
String: LPSTR
Receive String: LPSTR
Receive Number: LPINT
Set sUser = SalStrRepeatX( ' ', 255 )
Set nTamanho = 255
Set sNada = ' '
Call WNetGetUserA(sNada, sUser, nTamanho )
Abra�os,
Patricia.
> ----- Mensagem original -----
> De: Marcos Campos [SMTP:[EMAIL PROTECTED]]
> Enviada em: Quarta-feira, 16 de Fevereiro de 2000 10:58
> Para: [EMAIL PROTECTED]
> Assunto: [sqlwin] RES: [sqlwin] RES: [sqlwin] LOGIN do
> USU�RIO da REDE
>
> Caro Alexandre e demais da lista
>
> A demora desta resposta (j� que recebi em 06/01/2000) foi devido a
> f�rias.
> Testei a rotina antes de minhas f�rias e deu certo.
> Ao voltar das f�rias fui testar melhor a nova vers�o do sistema
> antes de
> implantar e est� ocorrendo um problema:
> Esporadicamente ela n�o funciona, n�o recupera o nome do usu�rio.
> J� testei de v�rias maneiras, com m�quina com muitos programas
> carregados,
> totalmente vazia, ele continua a apresentar o mesmo problema.
> Algu�m tem id�ia do que pode estar ocorrendo?
>
> Marcos Carvalho de Campos
> [EMAIL PROTECTED]
>
>
> -----Mensagem original-----
> De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] Em
> nome
> de Alexandre Henrique Barbosa
> Enviada em: Quinta-feira, 6 de Janeiro de 2000 19:12
> Para: '[EMAIL PROTECTED]'
> Assunto: [sqlwin] RES: [sqlwin] LOGIN do USU�RIO da REDE
>
>
>
> External Funcition
> Library name: advapi32.dll
> Function: GetUserNameA
> Description:
> Export Ordinal: 0
> Returns
> Boolean: BOOL
> Parameters
> Receive String: LPSTR
> Receive Number: LPWORD
>
> Inernal function
> Function: fGetUser
> Description:
> Returns
> String:
> Parameters
> Static Variables
> Local variables
> Number: nBuffer
> String: sUser
> Actions
> Set nBuffer = 100
> Call SalStrSetBufferLength( sUser, nBuffer )
> Call GetUserNameA(sUser,nBuffer)
> Return sUser
>
> On SAM_AppStartup
> Set sUsuario = fGetUser( )
>
> Alexandre Henrique Barbosa
> Analista de Sistemas/TCO -(61) 313 7870
>
>
>
> > -----Mensagem original-----
> > De: Marcos Campos [mailto:[EMAIL PROTECTED]]
> > Enviada em: Quinta-feira, 6 de Janeiro de 2000 16:26
> > Para: 'Lista Discuss�o Centura'
> > Assunto: [sqlwin] LOGIN do USU�RIO da REDE
> >
> > Caros Colegas
> >
> > Trabalho com Centura 1.5.0 .
> > Estou precisando pegar o nome do usu�rio (LOGIN) da rede, para
> > utilizar dentro do programa.
> >
> > Obrigado.
> >
> > Marcos Carvalho de Campos
> > <[EMAIL PROTECTED]>
> ===============Lista de Centura SQLWindows Administrador :
> [EMAIL PROTECTED] [ http://www.centuraexplorer.com ]
> Para sair desta lista mande mensagem para:
> [EMAIL PROTECTED] sem nada no Subject e com o comando a seguir no
> corpo da msg:
> "unsubscribe sqlwin" (sem as aspas)
> ===============
>
> ==============================================
> Lista de Centura SQLWindows
> Administrador : [EMAIL PROTECTED]
> [ http://www.centuraexplorer.com ]
> Para sair desta lista mande mensagem para:
> [EMAIL PROTECTED] sem nada no Subject e
> com o comando a seguir no corpo da msg:
> "unsubscribe sqlwin" (sem as aspas)
> ==============================================
���������������Lista de Centura SQLWindows
Administrador : [EMAIL PROTECTED]
[ http://www.centuraexplorer.com ]
Para sair desta lista mande mensagem para:
[EMAIL PROTECTED] sem nada no Subject e
com o comando a seguir no corpo da msg:
"unsubscribe sqlwin" (sem as aspas)
���������������
