Thema anzeigen - AD Telefonliste HTA User

Ray.Parker · Anmeldungsdatum: 01.08.2006 Beiträge: 2 Wohnort: Hannover

Hallo, leider habe ich nicht ganz so viel Erfahrung in dem Thema HTA, doch versuchen wollte ich es schon einmal. Leider komme ich hier nicht weiter. Im nachfolgenden sehr Ihr meinen Versuch. Ich würde mich freuen, wenn Ihr mir helfen könntet.
Der Fehler tritt bei Zeile 42 auf. Und ich weiß nicht warum ? Was habe ich falsch gemacht?

Würde mich freuen von euch zu hören oder zu lesen.

Ach ja, das ganze soll einen Telefonliste für unseren Betrieb hier werden.

************
<html>
<head>
<HTA:APPLICATION
ID="objApp"
APPLICATIONNAME="Telefonliste"
BORDER="thick"
BORDERSTYLE="normal"
CAPTION="yes"
ICON="cp.ico"
MAXIMIZEBUTTON="no"
MINIMIZEBUTTON="yes"
SHOWINTASKBAR="yes"
SINGLEINSTANCE="no"
SYSMENU="yes"
VERSION="4.2"
WINDOWSTATE="normal"
>
<title>Intranet - Telefonliste</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="telefonliste.css" type="text/css">
<script language="vbscript">

option explicit
On Error Resume Next
Dim Niederlassung
Function Standort(Niederlassung)
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 FROM " & "'LDAP://DC=test,DC=de' " & "WHERE objectCategory='User' AND department=Niederlassung ORDER BY SN"
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst

Do Until objRecordSet.EOF
s = s & _
objRecordSet.Fields("SN").Value & ", " & _
objRecordSet.Fields("givenName").Value & " " & _
objRecordSet.Fields("telephoneNumber").Value & " " & _
objRecordSet.Fields("mobile").Value & " || "
objRecordSet.MoveNext
Standort = s
Loop
End Function
</script>
</head>
<body>
<DIV ID="output"></DIV>
</body>
<script language="vbscript">
Dim Ausgabe
Ausgabe=Standort("Sarstedt")
output.innerHTML = Ausgabe
</script>
</html>
***********************

admin · Verfasst am: 02.08.2006 13:20:24 Titel:

welche fehlermeldung bringt er denn?

Ray.Parker · Anmeldungsdatum: 01.08.2006 Beiträge: 2 Wohnort: Hannover

also das will ich ja nicht, das Du/Ihr raten müßte. Lieber wäre mir hier die Hilfe.

die Fehlerzeile soll sein ... Zeile 42 ....

****
Set objRecordSet = objCommand.Execute
****

Fehlermeldung:
Error: One or more errors occurred during processing of command.

Herzlichen danke das du dich schon mal gemeldet hast.

Gruß Ray.