RayParkerCOM
Neues Mitglied
Hallo Leute,
ich weiß nicht ob diesn nun auch wirklich die richtige Stelle ist, doch ich gehen nun mal davon aus.
Ich habe hier ein HTA Script geschrieben. Es ließt die Benutzer einer OU im AD aus, und stellt diese als Telefonliste da. So weit so gut, und es klappt auch auch alles ganz gut. Doch wenn ich nun auch die HTA Datei linke, so kommt bei jedem Start immer wieder die Frage, ob ich die Datei wirklich ausführen möchte. Klar, es ist als Sicherheitsfunktion gedacht. OK, ich muß halt den Code ändern. Aber wie? Das ist hier meine Frage, wie bekomme ich es hin, das das Script trotzdem ausgeführt wird, wenn ich die HTML Datei öffne.
Den Quellcode seht Ihr unten abgebildet.
Ich bedanke mich, für euer Hilfe
Gruß Ray.
code start
################
###########################
Code end
Mod-Edit: Code-Tags hinzugefügt (XraYSoLo)
ich weiß nicht ob diesn nun auch wirklich die richtige Stelle ist, doch ich gehen nun mal davon aus.
Ich habe hier ein HTA Script geschrieben. Es ließt die Benutzer einer OU im AD aus, und stellt diese als Telefonliste da. So weit so gut, und es klappt auch auch alles ganz gut. Doch wenn ich nun auch die HTA Datei linke, so kommt bei jedem Start immer wieder die Frage, ob ich die Datei wirklich ausführen möchte. Klar, es ist als Sicherheitsfunktion gedacht. OK, ich muß halt den Code ändern. Aber wie? Das ist hier meine Frage, wie bekomme ich es hin, das das Script trotzdem ausgeführt wird, wenn ich die HTML Datei öffne.
Den Quellcode seht Ihr unten abgebildet.
Ich bedanke mich, für euer Hilfe
Gruß Ray.
code start
################
HTML:
<html>
<head>
<HTA:APPLICATION
ID="objApp"
APPLICATIONNAME="Telefonliste"
BORDER="thick" <!--Rahmenbreite-->
BORDERSTYLE="normal"
CAPTION="yes"
ICON="bilder/cp.ico"
MAXIMIZEBUTTON="no"
MINIMIZEBUTTON="yes"
SHOWINTASKBAR="yes"
SINGLEINSTANCE="no"
SYSMENU="yes"
VERSION="4.2"
WINDOWSTATE="normal"
>
<title>Intranet - Test</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="description" content="TEST">
<meta name="keywords" content="Intranet, Telefonliste, Userliste" >
<meta NAME="language" CONTENT="de ">
<meta name="author" content="RAY">
<meta name="copyright" content="TEST">
<meta NAME="robots" CONTENT="index,follow">
<meta name="revisit-after" content="30 days">
<meta name="reply-to" content="[email protected]">
<meta name="document-class" content="published">
<meta name="document-rights" content="public">
<meta name="document-rating" content="general">
<meta name="document-state" content="static">
<link rel="stylesheet" href="css/telefonliste.css" type="text/css">
<script language="Javascript">
<!--
var X = '#FFFFFF';
function klick()
{
if (X == '#FFFFFF')
{
X = '#FFFFFF';
}
else
{
X = '#FFFFFF';
}
}
function over()
{
this.bgcolor = '#E2E2E2';
}
-->
</script>
<script language="vbscript">
option explicit
On Error Resume Next
Dim streetAddress
Function Standort(streetAddress)
Const ADS_SCOPE_SUBTREE = 2
Dim s
Dim objConnection
Dim objCommand
Dim objRecordSet
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
'Set objRecordSet = CreateObject("ADODB.RecordSet")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
objCommand.CommandText = "SELECT givenName,SN,telephoneNumber,mobile,mail,
physicalDeliveryOfficeName,department,streetAddress,facsimileTelephoneNumber,
info FROM " & "'LDAP://OU=Terminal Benutzer,OU=Domain Users,DC=test,DC=de' "
& "WHERE objectCategory='User' AND streetAddress='" & streetAddress & "' AND
userAccountControl = '512' ORDER BY department ASC "','" telephoneNumber ASC
"
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
s = s & _
"<table align=""center"" width=""800px""
border=""0"">" & _
"<tr bgcolor=""#FFFFFF""
onMouseOver=""this.bgColor='#E2E2E2';"" onMouseOut=""this.bgColor=X;""
onClick=""klick();"">" & _
"<td width=""20px""><img
src=""bilder/grafik_user_16x16.gif"" width=""16"" height=""16"" border=""0""
alt=" & objRecordSet.Fields("info").Value & "></td>" & _
"<td width=""100px""><h6>" &
objRecordSet.Fields("SN").Value & "</h6></td>" & _
"<td width=""100px""><h6>" &
objRecordSet.Fields("givenName").Value & "</h6></td>" & _
"<td width=""20px""><a href=""mailto:"
& objRecordSet.Fields("mail").Value & """><img src=""bilder/grafik_mail_16x16.
gif"" width=""16"" height=""16"" border=""0"" alt=" & objRecordSet.Fields
("mail").Value & "></a></td>" & _
"<td width=""20px""><img
src=""bilder/grafik_tel_buero_16x16.gif"" width=""16"" height=""16""
border=""0"" alt=""Telefonnummer:" & objRecordSet.Fields("telephoneNumber").
Value & """></td>" & _
"<td width=""110px""><h6>" &
objRecordSet.Fields("telephoneNumber").Value & "</h6></td>" & _
"<td width=""20px""><a href=""mailto:"
& objRecordSet.Fields("facsimileTelephoneNumber").Value & """><img
src=""bilder/grafik_fax_16x16.gif"" width=""16"" height=""16"" border=""0""
alt=""Faxnummer:" & objRecordSet.Fields("facsimileTelephoneNumber").Value &
"""></a></td>" & _
"<td width=""110px""><h6>" &
objRecordSet.Fields("facsimileTelephoneNumber").Value & "</h6></td>" & _
"<td width=""20px""><img
src=""bilder/grafik_tel_mobil_16x16.gif"" width=""16"" height=""16""
border=""0"" alt=""Mobiltelefonnummer: " & objRecordSet.Fields("mobile").
Value & """></td>" & _
"<td width=""110px""><h6>" &
objRecordSet.Fields("mobile").Value & "</h6></td>" & _
"<td width=""75px""
align=""center""><h6><a href=""userdetails.hta""> </a></h6></td>" & _
"</tr>" & _
"</table>"
objRecordSet.MoveNext
Loop
Standort = s
End Function
</script>
</head>
<body>
<!--Allgemein-->
<table align="center" width="800px" border="0">
<tr >
<td width="350px"><img src="bilder/logo-cp_180x60.gif" width="180"
height="60" border="0" alt=""></td>
<td width="350px"><img src="bilder/logo-nbj_299x108.gif"
width="299" height="108" border="0" alt=""></td>
</tr>
</table>
<!--KA-->
<table align="center" width="800px" border="0">
<tr >
<td width="199px">
<h2>Karlsruhe<p></h2>
</td>
<td><h4><a href="[URL="http://www.stadtplan.net/"]http://www.stadtplan.net[/URL]"><img
src="bilder/grafik_help_16x16.gif" width="16" height="16" border="0"
alt="Zeigt den Standort des Gebäudes an.
"> Kartenausschnitt</a></h4></td>
</tr>
</table>
<DIV ID="output3"></DIV>
<!--Potsdam-->
<table align="center" width="800px" border="0">
<td></td>
<tr> </tr>
<tr >
<td width="199px">
<h2>Potsdam<p></h2>
</td>
<td><h4><a href="[URL="http://www.stadtplan.net/"]http://www.stadtplan.net[/URL]"><img
src="bilder/grafik_help_16x16.gif" width="16" height="16" border="0"
alt="Zeigt den Standort des Gebäudes an.
"> Kartenausschnitt</a></h4></td>
</tr>
</table>
<DIV ID="output2"></DIV>
<!--Sarstedt-->
<table align="center" width="800px" border="0">
<td></td>
<tr> </tr>
<tr >
<td width="199px">
<h2>Sarstedt / Hannover<p></h2>
</td>
<td><h4><a href="[URL="http://www.stadtplan.net/"]http://www.stadtplan.net[/URL]"><img
src="bilder/grafik_help_16x16.gif" width="16" height="16" border="0"
alt="Zeigt den Standort des Gebäudes an.
"> Kartenausschnitt</a></h4></td>
</tr>
</table>
<DIV ID="output1"></DIV>
<!--Sondertelefonnummern-->
<table align="center" width="800px" border="0">
<tr>
<td colspan="9"> </td>
</tr>
<tr>
<td colspan="9"><h2>Sonderrufnummern</h2></td>
</tr>
<tr>
<td colspan="9"> </td>
</tr>
</table>
<!--Änderungswunsch-->
<table align="center" width="800px" border="0">
<tr>
<td colspan="9"> </td>
</tr>
<tr>
<td colspan="9"><h2>Änderungen / neues Teammitglied</h2></td>
</tr>
<tr>
<td colspan="9"> </td>
</tr>
<tr bgcolor="#FFFFFF" onMouseOver="this.bgColor='#E2E2E2';"
onMouseOut="this.bgColor=X;" onClick="klick();">
<td width="20px"><img src="bilder/grafik_group_16x16.gif" width="16"
height="16" border="0" alt=""></td>
<td width="200px" colspan="2"><h6><a href="adminmail.
asp">Adminteam</h6></a></td>
<td width="20px"><a href="adminmail.asp"><img
src="bilder/grafik_mail_16x16.gif" width="16" height="16" border="0"
alt=""></a></td>
<td width="465px" colspan="4"><h6>Änderungen</h6></td>
</tr>
</table>
</body>
<script language="vbscript">
output1.innerHTML = Standort("street 1")
output2.innerHTML = Standort("street 2")
output3.innerHTML = Standort("street 3")
</script>
</html>Code end
Mod-Edit: Code-Tags hinzugefügt (XraYSoLo)
