windows username and password

[FALCONSEYE]

hi,

i am using cold fusion and working on an application where i need to develop an interface to get the user's windows OS username and password. i heard this could be done by VBScript. can anyone come across a similar issue? if so, could you please give me some advice?
thanks for the help in advance

 

[BrainB]

This gets the user login name. If you could discover the password it would rather defeat the object, wouldn'tit ??

Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
    "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long


Sub test()
    X = fOSUserName
    MsgBox (X)
End Sub


Function fOSUserName() As String
' Returns the network login name
Dim lngLen As Long, lngX As Long
Dim strUserName As String
    strUserName = String$(254, 0)
    lngLen = 255
    lngX = apiGetUserName(strUserName, lngLen)
    If (lngX > 0) Then
        fOSUserName = Left$(strUserName, lngLen - 1)
    Else
        fOSUserName = vbNullString
    End If
End Function

Regards
BrianB
Use CupOfCoffee to speed up all windows applications.
It is easy until you know how.
================================