I have found one VB sample code to get all connection information from client. Since I do not know VB could any one plesae help me to translate into vfp.

Check out the following Novell Technical Information Document:

http://developer.novell.com/support/sample/tids/vbconinf/vbconinf.htm

Check out the following for all Novell Technical Information Document:

http://developer.novell.com/support/sample/areas/vbs.htm


ER

> Would this help?
> Code comes from new2news.com
>
>

> DO decl 
> DO GetNames 
> DO GetNameEx 
> 
> PROCEDURE GetNames 
>     nSize = 250 
>     lpBuffer = SPACE(nSize) 
> 
>     IF GetComputerName (@lpBuffer, @nSize) > 0 
>         lpBuffer = STRTRAN (SUBSTR (lpBuffer, 1, nSize), Chr(0),"") 
>         ? "Computer: " + lpBuffer 
>     ENDIF 
> 
>     nSize = 250 
>     lpBuffer = SPACE(nSize) 
> 
>     IF GetUserName (@lpBuffer, @nSize) > 0 
>         lpBuffer = STRTRAN (ALLTRIM(SUBSTR (lpBuffer, 1, nSize)), Chr(0),"") 
>         ? "User: " + lpBuffer 
>     ENDIF 
> 
> PROCEDURE GetNameEx 
>     LOCAL cBuffer, nBufsize, nIndex 
>     FOR nIndex=0 TO 7 
>         nBufsize = 250 
>         cBuffer = Repli(Chr(0), nBufsize) 
>         IF GetComputerNameEx(nIndex, @cBuffer, @nBufsize) <> 0 
>             ? nIndex, LEFT(cBuffer, nBufsize) 
>         ENDIF 
>     ENDFOR 
> 
> PROCEDURE decl 
>     DECLARE INTEGER GetComputerName IN kernel32; 
>         STRING  @ lpBuffer, INTEGER @ nSize 
> 
>     DECLARE INTEGER GetComputerNameEx IN kernel32; 
>         INTEGER NameType, STRING @lpBuffer, INTEGER @lpnSize 
> 
>     DECLARE INTEGER GetUserName IN advapi32; 
>         STRING  @ lpBuffer, INTEGER @ nSize 
> 
> 

>
> Boudewijn Lutge®ink
> Boudewijn.Lutgerink@foxite.com
> Experience is the knowledge you get immediately AFTER you actually needed it...


Hello Foxite