Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
LogonUser API call...
Hi,
Is there a reliable way to check a users username and password from within a macro against an NT domain? I've tried using the Win32 API call LogonUser, but without success, getting the ERROR_PRIVILEGE_NOT_HELD error message. Cheers for any help... Paul |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
LogonUser API call...
Hi,
This gets the username: Option Explicit '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''' ''''' ' Copyright ©1996-2001 VBnet, Randy Birch, All Rights Reserved. ' Some pages may also contain other copyrights by the author. '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''' ''''' ' You are free to use this code within your own applications, ' but you are expressly forbidden from selling or otherwise ' distributing this source code without prior written consent. ' This includes both posting free demo projects made from this ' code as well as reproducing the code in text or html format. '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''' ''''' Private Const MAX_USERNAME As Long = 256 Private Declare Function GetUserName Lib "advapi32.dll" _ Alias "GetUserNameA" _ (ByVal lpBuffer As String, _ nSize As Long) As Long Function rgbGetUserName() As String 'return the name of the user Dim tmp As String tmp = Space$(MAX_USERNAME) If GetUserName(tmp, Len(tmp)) Then rgbGetUserName = TrimNull(tmp) End If End Function Private Function TrimNull(item As String) Dim pos As Integer pos = InStr(item, Chr$(0)) If pos Then TrimNull = Left$(item, pos - 1) Else: TrimNull = item End If End Function Don't know a way to get the password though. Regards, Jan Karel Pieterse Excel TA/MVP -----Original Message----- Hi, Is there a reliable way to check a users username and password from within a macro against an NT domain? I've tried using the Win32 API call LogonUser, but without success, getting the ERROR_PRIVILEGE_NOT_HELD error message. Cheers for any help... Paul . |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
LogonUser API call...
Hi Paul,
You can do this with ADSI (search Google for "OpenDSObject" for more information). But why do you want to do this? If there is a certain file or folder you want to access, then just try it, and the user can authenticate if needed. I for one would be hesitant to enter my network username/password into a non-Windows dialog. -- Regards, Jake Marx www.longhead.com paul wrote: Hi, Is there a reliable way to check a users username and password from within a macro against an NT domain? I've tried using the Win32 API call LogonUser, but without success, getting the ERROR_PRIVILEGE_NOT_HELD error message. Cheers for any help... Paul |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
LogonUser API call...
This seemed to work for me when I tried it. http://support.microsoft.com/support.../Q279/8/15.asp Tim "paul" wrote in message om... Hi, Is there a reliable way to check a users username and password from within a macro against an NT domain? I've tried using the Win32 API call LogonUser, but without success, getting the ERROR_PRIVILEGE_NOT_HELD error message. Cheers for any help... Paul |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
LogonUser API call...
Thanks chaps, Tim's suggestion works well and fast too. I couldn't get
the ADSI calls to work, Excel would't recognize the object types... cheers, Paul "Tim Williams" wrote in message ... This seemed to work for me when I tried it. http://support.microsoft.com/support.../Q279/8/15.asp Tim |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Wouldn't know what to call it! | Excel Worksheet Functions | |||
I'm not sure what you'd call it, but is it possible to do this? | Excel Discussion (Misc queries) | |||
Call Center Management: How to calculate 'cost per call' | Excel Discussion (Misc queries) | |||
Don't know what to call what I need? | Excel Worksheet Functions | |||
call sub | Excel Programming |