<% Function ChkLogon() dim sFullUser dim iPos dim sLogonDomain dim sLogonUser Dim Path Dim AdminGroup dim sDomain dim DefaultUser dim TempStr dim LogonOK sFullUser = Request.ServerVariables("LOGON_USER") Path = server.mappath("/") iPos = InStr(Path, "\") TempStr = Mid(Path, iPos + 1) iPos = InStr(TempStr, "\") TempStr = Mid(TempStr, iPos + 1) iPos = InStr(TempStr, "\") sDomain = Left(TempStr, iPos - 1) iPos = InStr(TempStr, "\") TempStr = Mid(TempStr, iPos + 1) iPos = InStr(TempStr, "\") TempStr = Mid(TempStr, iPos + 1) iPos = InStr(TempStr, "\") TempStr = Mid(TempStr, iPos + 1) iPos = InStr(TempStr, "\") DefaultUser = Left(TempStr, iPos - 1) iPos = InStr(sFullUser, "\") if iPos > 0 then sLogonDomain = Left(sFullUser, iPos - 1) sLogonUser = Mid(sFullUser, iPos + 1) else iPos = InStr(sFullUser, "/") if iPos > 0 then sLogonDomain = Left(sFullUser, iPos - 1) sLogonUser = Mid(sFullUser, iPos + 1) else sLogonDomain = "" sLogonUser = sFullUser end if end if if StrComp (sLogonDomain,"hosting",1)<>0 then AdminGroup = "admins@" + DefaultUser Set oGroup = GetObject("WinNT://" & sDomain & "/" & AdminGroup) For each oUser in oGroup.Members if StrComp (sLogonUser,oUser.Name,1)=0 then LogonOK = "1" end if Next if StrComp (LogonOK,"1",1)<>0 then Response.Redirect ("/admin/loginfailed.htm") end if end if End Function %> <% ChkLogon() %> Administrative Interface <body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" background="../_themes/valueadd/valtxtr.gif" bgcolor="#CCCC99" text="#000000" link="#660033" vlink="#996600" alink="#009933"><!--mstheme--><font face="Times New Roman, Times"> <!--mstheme--></font></body>