Get NT Usergroups withASP

[krkX]

Hello,

I retrieve the NT username trough ASP, i now want to know what NT usergroups this specific user is a member of..

Is this at all possible with asp..?? if yes any direction to a solution would be most appreciated..

Thanks

 

[montek]

You might be able to use the ADSI interface to collect this information. Check out

http://msdn.microsoft.com/library/psdk/adsi/adsiscript_7eyb.htm

Monte Kalisch
Brainbench MVP for ASP

http://www.brainbench.com

Anti-Spam Email: montek at montekcs dot com

 

[krkX]

That doesn't really apply as i am using IIS 4 and want this for a web logon..

Is it possible to do an api call with ASP..??

krkX

 

[bobmm]

Try using the netapi32 api calls.. Best way I've found is to create an ActiveX DLL via Visual Basic, and reference through a global.asa into session variables...

Here's the API Stuff that gets you into the NT user info..
Use either in VB or C..something similar

Use this as your launch pad B-)


Declare Function NetGetDCName Lib "netapi32" (lpServer As Any, lpDomain As Any, lpBuffer As Long) As Long
Declare Function NetUserGetInfo Lib "netapi32" (lpServer As Any, UserName As Byte, ByVal Level As Long, lpBuffer As Long) As Long
Declare Function NetUserGetGroups Lib "netapi32" (lpServer As Any, UserName As Byte, ByVal Level As Long, lpBuffer As Long, ByVal PrefMaxLen As Long, lpEntriesRead As Long, lpTotalEntries As Long) As Long
Declare Function NetUserGetLocalGroups Lib "netapi32" (lpServer As Any, UserName As Byte, ByVal Level As Long, ByVal Flags As Long, lpBuffer As Long, ByVal MaxLen As Long, lpEntriesRead As Long, lpTotalEntries As Long) As Long
Declare Function NetApiBufferFree Lib "netapi32" (ByVal pBuffer As Long) As Long
Declare Function NetRemoteTOD Lib "NETAPI32.DLL" (yServer As Any, pBuffer As Long) As Long
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Declare Function GetUserNameW Lib "advapi32.dll" (lpBuffer As Byte, nSize As Long) As Long
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Declare Function GetComputerNameW Lib "kernel32" (lpBuffer As Any, nSize As Long) As Long