|
Vorheriges Thema: Nächstes Thema: |
Autor |
Nachricht |
Ray.Parker
Anmeldungsdatum: 01.08.2006 Beiträge: 2 Wohnort: Hannover
|
Verfasst am: 01.08.2006 15:27:57 Titel: AD Telefonliste HTA User |
|
|
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>
*********************** |
|
Nach oben |
|
|
admin Site Admin
Anmeldungsdatum: 16.01.2005 Beiträge: 323 Wohnort: Berlin
|
Verfasst am: 02.08.2006 13:20:24 Titel: |
|
|
welche fehlermeldung bringt er denn? |
|
Nach oben |
|
|
Ray.Parker
Anmeldungsdatum: 01.08.2006 Beiträge: 2 Wohnort: Hannover
|
Verfasst am: 02.08.2006 13:24:02 Titel: |
|
|
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. |
|
Nach oben |
|
|
|
|
Du kannst keine Beiträge in dieses Forum schreiben. Du kannst auf Beiträge in diesem Forum nicht antworten. Du kannst deine Beiträge in diesem Forum nicht bearbeiten. Du kannst deine Beiträge in diesem Forum nicht löschen. Du kannst an Umfragen in diesem Forum nicht mitmachen.
|
|
|
|