Hello,
Please help us.
This is what we want
We want to use a forum called Snitz (http://forum.snitz.com). In this forum there is an option to use windows authentication. This works. Also there is an option to read in active directory the full name of an active directory member. This is not working.
This is the code we use
sub NTAuthenticate()
dim strUser, strNTUser, checkNT, strLogon
strNTUser = Request.ServerVariables("AUTH_USER")
strNTUser = replace(strNTUser, "\", "/")
'response.write(strNTUser & "<br>")
if Session(strCookieURL & "userid") = "" then
strUser = Mid(strNTUser,(instr(1,strNTUser,"/")+1),len(strNTUser))
Session(strCookieURL & "userid") = strUser
end if
if strAutoLogon="1" then
strNTUserFullName = Session(strCookieURL & "strNTUserFullName")
if Session(strCookieURL & "strNTUserFullName") = "" then
on error resume next
Set strNTUserInfo = GetObject("WinNT://"+strNTUser)
strNTUserFullName=strNTUserInfo.FullName
Session(strCookieURL & "strNTUserFullName") = strNTUserFullName
end if
end if
end sub
Problem:
The bold line gives a problem. The error code is: error '80070035'
Regards,
Eelco Middelburg
Please help us.
This is what we want
We want to use a forum called Snitz (http://forum.snitz.com). In this forum there is an option to use windows authentication. This works. Also there is an option to read in active directory the full name of an active directory member. This is not working.
This is the code we use
sub NTAuthenticate()
dim strUser, strNTUser, checkNT, strLogon
strNTUser = Request.ServerVariables("AUTH_USER")
strNTUser = replace(strNTUser, "\", "/")
'response.write(strNTUser & "<br>")
if Session(strCookieURL & "userid") = "" then
strUser = Mid(strNTUser,(instr(1,strNTUser,"/")+1),len(strNTUser))
Session(strCookieURL & "userid") = strUser
end if
if strAutoLogon="1" then
strNTUserFullName = Session(strCookieURL & "strNTUserFullName")
if Session(strCookieURL & "strNTUserFullName") = "" then
on error resume next
Set strNTUserInfo = GetObject("WinNT://"+strNTUser)
strNTUserFullName=strNTUserInfo.FullName
Session(strCookieURL & "strNTUserFullName") = strNTUserFullName
end if
end if
end sub
Problem:
The bold line gives a problem. The error code is: error '80070035'
Regards,
Eelco Middelburg