Permission denied: 'GetObject'
<%Option Explicit
<!-- PersonaleList.asp -->
%><!-- #include file="..\DBFilnavn.asp" --><%
Session.LCID=1030
Dim Hjfunk,datasaet, datakilde, sqlsaetning
Dim id,kode, navn, direkte, mobil, privat,email,Mynum,Hjfunknavn,afd,hoved,counter,Adm,IPKategori,IPWebside,websvc,site
%>
<html>
<head>
<meta name="Generator" content="Stone's WebWriter 4">
<meta http-equiv="Content-Language" content="da">
<!-- Minus AutoDato -->
<title>IPAdmList</title>
<meta http-equiv="Page-Enter" content="blendTrans(Duration=0.5)">
<!--mstheme--><link rel="stylesheet" type="text/css" href="../_themes/sumipntg/sumi1111.css"><meta name="Microsoft Theme" content="sumipntg 1111, default">
<link rel="stylesheet" type="text/css" href="../hesselholt.css">
</head>
<script language="JavaScript">
<!--
function jumppage(sel) {
var i = sel.selectedIndex
sel.options[0].selected = true;
if (i!=0)
{
selArr = sel.options[i].value.split("|");
if (selArr[1] == "_self") self.location.href=selArr[0];
else if (selArr[1] == "_top") top.location.href=selArr[0];
else if (selArr[1] == "_blank") window.open(selArr[0],'_blank');
else if (selArr[1] == "_parent") parent.location.href=selArr[0];
else parent.frames[selArr[1]].location.href=selArr[0];
}
}
// -->
</script>
<style type="text/css">
.inputs
{
width:100%;
border-style:dotted; border-width:1px;
font-family:Verdana;
font-weight:700; font-size:8pt;
}
.inputs2
{
color:#3300FF;
border-style:dotted; border-width:1px;
font-family:Verdana;
font-weight:700; font-size:8pt;
}
</style>
<body topmargin="5">
<%Afd=request.queryString("afd")
Hoved=request.queryString("hoved")
Adm=request.queryString("adm")
Function HentUser()
HentUser="Username="&Request.querystring("Username")
end function%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber1" height="1">
<tr>
<td width="56%" rowspan="2" height="1">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="99%" id="AutoNumber3">
<tr>
<td width="100%" colspan="2"><b><font face="Verdana" size="4"><%=Adm%></font></b></td>
</tr>
<tr>
<td width="100%" colspan="2"> </td>
</tr>
<tr>
<td width="50%"></font><font size="4"><u><i><b><%=Afd%>:</b></i></u></td>
<td width="50%" align="left">
<SELECT Class="inputs2" name="go" onChange="jumppage(this);" size=0>
<OPTION value="-" selected>Vælg</OPTION>
<optgroup label="Adm:">
<OPTION value="IPAdmRamme.asp?Afd=<%=afd%>&Hv=<%=hoved%>&Adm=<%=Adm%>&<%=HentUser%>|hovedramme">Opret</OPTION>
<OPTION value="java script:self.print()|hovedramme">Print</OPTION>
</optgroup>
</SELECT></td>
</tr>
<tr>
<td width="100%" colspan="2"> </td>
</tr>
</table>
</td>
<td width="6%" height="40"> </td>
<td width="1%" height="40"> </td>
<td width="19%" height="40"> </td>
<td width="18%" rowspan="2" height="1"><font face="Verdana" size="2">
<img border="0" src=<%=LogoFil%> width="94" height="70" align="right"></font></td>
</tr>
</table>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="70%" id="AutoNumber2">
<tr>
<td width="35%" height="22"><b><font size="2">Webside</font></b></td>
<td width="20%" height="22"><font size="2"><b>Ip</b></font></td>
<td width="45%" height="22"><font size="2"><b>Navn</b></font></td>
</tr>
<%
Dim SecObj,IpList,t,MyIpSec,tom,loConn,rs,StrSQL
set loConn = CreateObject("ADODB.Connection")
set rs = server.CreateObject("ADODB.Recordset")
loConn.Open(DBFilnavn)
Function ReturnNavn(IP)
StrSQL="SELECT Navn,PrivateIP from Personale Where PrivateIP='" & IP &"'"
RS.open strSQL, loConn ,3,3
If Not RS.EOF Then
ReturnNavn = RS.Fields("Navn")
else
RS.Close
StrSQL="SELECT Navn,WkndIP,Mrk from Kartotek Where WkndIP='" & IP &"'"
RS.open strSQL, loConn ,3,3
If Not RS.EOF Then
ReturnNavn = RS.Fields("Mrk") & " " & RS.Fields("Navn")
end if
end if
RS.Close
End Function
Sub UdskrivWebInfo(IIsWebServer,W3)
Hjfunk=""
set websvc = GetObject("IIS://localhost/" &W3)
for each site in websvc
if site.class = IIsWebServer then
if Not Hjfunk=site.ServerComment Then%>
<tr>
<td width="35%" height="22"> </td>
<td width="20%" height="22"> </td>
<td width="45%" height="22"> </td>
</tr>
<%Hjfunk=Site.ServerComment
HjFunkNavn=Site.ServerComment
else
HjFunkNavn=""
end if
Set SecObj = GetObject("IIS://LocalHost/"&W3&"/" & site.name & "/Root")
Set MyIPSec = SecObj.IPSecurity
IPList = MyIPSec.IPGrant
tom=true
for t=0 to ubound(IPList)
tom=false
if t=0 then%>
<tr>
<td width="35%" height="22"><font size="2"><b><%=hjfunkNavn%></b></font></td>
<%else%>
<td width="35%" height="22"><font size="2"><b></b></font></td>
<%end if%>
<td width="20%" height="22">
<a href="IPAdmRamme.asp?afd=<%=afd%>&Adm=<%=Adm%>&OldSN=<%=HjFunkNavn%>&OldIp=<%=Left(IpList(t), InStr(IpList(t), ",")-1)%>&OldIpNavn=<%=ReturnNavn(Left(IpList(t), InStr(IpList(t), ",")-1))%>&<%=HentUser%>" target="_self">
<font size="2"><%=Left(IpList(t), InStr(IpList(t), ",")-1)%></font>
</td>
<td width="45%" height="22"><font size="2"><%=ReturnNavn(Left(IpList(t), InStr(IpList(t), ",")-1))%></font></td>
</tr>
<%next
if tom then
%>
<tr>
<td width="35%" height="22"><font size="2"><b><%=hjfunkNavn%></b></font></td>
<td width="20%" height="22"> </td>
<td width="45%" height="22"> </td>
<%
end if
end if
next
Set SecObj =nothing
Set MyIPSec =nothing
end Sub
UdskrivWebInfo "IIsWebServer","W3svc"
UdskrivWebInfo "IIsFtpServer" ,"MSFTPSVC"
loConn.Close
Set loConn = nothing
Set Rs= Nothing
%>
</table>
</body>
</html>
Jeg kører Windows 2003 server IIS 6.0
Integradet windows authentitation
Hvad er galt ?
Når det kører på Windows 2000 server IIS 5.0 ingen fejl
