Active Directory and getobject("WinNT://"

[Jeff]

All,

I have a simple ASP web application that has been working great for
years, and now we are moving to Active Directory. The following code
is in my global.asa file, but is not working anymore. Note, although
we have upgraded to AD, the usernames have stayed the same.

Sub Session_OnStart
'**Session on Start code here **
strUsername=Replace(ucase(Request.ServerVariables("LOGON_USER")) ,
"\", "/")
set adsUser = getobject("WinNT://" & strUsername)
for each group in adsUser.groups
GrpList = GrpList & ucase(trim(group.name)) & ";"
next
if instr(GrpList ,"MYGROUP") then
Session("ok") = "OK"
else
Response.Redirect "notauthorized.htm"
end if
End Sub

Any help would be greatly appreciated!

Jeff

 

[Ray Costanzo [MVP]]

What does "not working" mean? Do you get an error? If so, what does it
say?

Ray at work