AD / Gruppeopslag med NT USER
Set UserObj = GetObject(strPath)Får fejl på denne
Microsoft VBScript runtime error '800a0046'
Permission denied: 'GetObject'
<html>
<%
strUserID = ucase(Request.ServerVariables("AUTH_USER"))
strDomain = "JanEmil.NET"
if InStr(strUserID,"CRB\") then
strDomain = "foto.JanEmil.NET"
end if
strUserID = Mid(strUserID,(instr(1,strUserID,"\")+1),len(strUserID))
Response.Write(" Welcome " & strUserID)
strPath = "WinNT://" & strDomain & "/" & strUserID & ",user"
Response.Write("<br>")
Set UserObj = GetObject(strPath)
'For Each GroupObj In UserObj.Groups
' Response.Write(GroupObj.Name)
'Next
'http://tek-tips.com/viewthread.cfm?qid=1088051&page=1
'http://www.topxml.com/conference/wrox/1999_dc/text/adamadsi.asp
%>
</html>
