EASY ONE

Daniel · Joined: 04 Oct 2007 Posts: 2

Is there a way to get the username and PASSWORD active in Windows (XP/2000)
using Visual Basic. I need to pass this values to an FTP site.

Thanks

Archived from group: microsoft>public>vb>enterprise

Jens Neuhalfen · Joined: 04 Oct 2007 Posts: 55

Hi Daniel,

_not_ _a_ _chance_ with the password! No way - ask the user for it.

Jens

> Is there a way to get the username and PASSWORD active in Windows (XP/2000)
> using Visual Basic. I need to pass this values to an FTP site.
>
> Thanks
>
>

Dave · Joined: 04 Oct 2007 Posts: 8

No chance with the password, here an example of how to get the username

'-------------------------------------------------------------------------
' NT Log on
Private Declare Function GetUserName _
Lib "advapi32.dll" _
Alias "GetUserNameA" _
(ByVal lpBuffer As String, _
nSize As Long) As Long

Public Function NTUserName() As String
Dim UserName As String * 25
Call GetUserName(UserName, 25)
' Trim null char
NTUserName = Trim$(Left(UserName, InStr(UserName, Chr(0)) - 1))
End Function
'-------------------------------------------------------------------------

"Daniel" wrote in message$f1gGJfDHA.3616@TK2MSFTNGP11.phx.gbl...
> Is there a way to get the username and PASSWORD active in Windows
(XP/2000)
> using Visual Basic. I need to pass this values to an FTP site.
>
> Thanks
>
>