Bruge NT´s brugernavn og adgangskode

Jeg er ikke sikker på om man kan tage pwd i NT via vba?

Men brugernavnet er ikke noget problem

Følgende eksempel er taget fra microsoft:
\'Type the following code into a new module:

\' Makes sure all variables are dimensioned in each subroutine.
    Option Explicit

    \' Access the GetUserNameA function in advapi32.dll and
    \' call the function GetUserName.
    Declare Function GetUserName Lib \"advapi32.dll\" Alias \"GetUserNameA\" _
    (ByVal lpBuffer As String, nSize As Long) As Long

    \' Main routine to Dimension variables, retrieve user name
    \' and display answer.
    Sub Get_User_Name()

    \' Dimension variables
    Dim lpBuff As String * 25
    Dim ret As Long, UserName As String

    \' Get the user name minus any trailing spaces found in the name.
    ret = GetUserName(lpBuff, 25)
    UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)

    \' Display the User Name
    MsgBox UserName
    End Sub



brian_d :o)

Hvis du har fået udleveret et Username fra NT, så må de være for den bruger, der er logged på .....

Så er han jo Logget på .... så er han jo godkendt af NT domainet.

Dit program skal så bare afslutte, hvis der ikke kan udleveres et korrekt NT Username ?!?!