0
Mit VBScript und HTML, ADS ansprechen
Über HTML ADS-Werte an VBScript übergeben. Die Verarbeiteten dann mit HTML ausgeben.
Hi,
habe zwei Fragen dazu:
1. Wie muss man ein VBScript in einem HTML-Script kennzeichnen, damit es erkannt wird?
2. Kann HTML mit den ADS-Objekten (z.B. LDAP\\....) arbeiten? Bei einem Test mit meinem bestehenden Script wurde es genau vor der ersten ADS-Objekt-erstellung abgebrochen.
Hier ist mein Script: (es bricht bei der Zeile "Set objGroup = GetObject("LDAP..... " ab.
<html>
<head>
<title>Test</title>
<script language="VBScript" runat=server>
option explicit
sub anwendung()
msgbox "abbruchtest_1"
REM Deklaration
dim objGroup
dim ldapanwendung, ldappfad, user, name
dim anzahl, tsfarm, anzahl2
REM Auswahl der Terminalserverfarm
ldappfad = ",ou=Gruppen,dc=test,dc=local"
ldapanwendung=InputBox("Geben Sie die Anwendung ein, von der Sie die Mitgliederanzahl wissen wollen: ")
msgbox "abbruchtest vor dem objekt"
Set objGroup = GetObject("LDAP://192.168.1.1/cn=" & ldapanwendung & ldappfad)
msgbox "abbruchtest nach dem objekt"
REM Anzeige der Mitgliederanzahl
anzahl = 0
For each user in objGroup.members
msgbox "schleife"
name = user.displayName
anzahl = anzahl + 1
Next
anzahl2 = anzahl
end sub
</script>
</head>
<body>
<form name="Form2" onsubmit="anwendung()">
<input type="submit" value="Absenden">
</form>
</body>
</html>
Vielen Dank schon mal
habe zwei Fragen dazu:
1. Wie muss man ein VBScript in einem HTML-Script kennzeichnen, damit es erkannt wird?
2. Kann HTML mit den ADS-Objekten (z.B. LDAP\\....) arbeiten? Bei einem Test mit meinem bestehenden Script wurde es genau vor der ersten ADS-Objekt-erstellung abgebrochen.
Hier ist mein Script: (es bricht bei der Zeile "Set objGroup = GetObject("LDAP..... " ab.
<html>
<head>
<title>Test</title>
<script language="VBScript" runat=server>
option explicit
sub anwendung()
msgbox "abbruchtest_1"
REM Deklaration
dim objGroup
dim ldapanwendung, ldappfad, user, name
dim anzahl, tsfarm, anzahl2
REM Auswahl der Terminalserverfarm
ldappfad = ",ou=Gruppen,dc=test,dc=local"
ldapanwendung=InputBox("Geben Sie die Anwendung ein, von der Sie die Mitgliederanzahl wissen wollen: ")
msgbox "abbruchtest vor dem objekt"
Set objGroup = GetObject("LDAP://192.168.1.1/cn=" & ldapanwendung & ldappfad)
msgbox "abbruchtest nach dem objekt"
REM Anzeige der Mitgliederanzahl
anzahl = 0
For each user in objGroup.members
msgbox "schleife"
name = user.displayName
anzahl = anzahl + 1
Next
anzahl2 = anzahl
end sub
</script>
</head>
<body>
<form name="Form2" onsubmit="anwendung()">
<input type="submit" value="Absenden">
</form>
</body>
</html>
Vielen Dank schon mal
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 157168
Url: https://administrator.de/contentid/157168
Printed on: April 25, 2024 at 08:04 o'clock
