nicht angemeldet
Guten Morgen,
wir betreiben hier einige INTRAnetseiten in einer geschlossenen Domäne. Bevor die Frage nach dem Sinn von vbs kommt - hier wird nur der IE eingesetzt.
Mit dem nachstehenden vbscript soll anhand der Gruppenzugehörigkeit innerhalb der (LDAP-)Domäne auf eine entsprechende Seite weitergeleitet werden. Leider wird immer auf die "richtige Seite" weitergeleitet.
Kann mir jemand helfen.
Hier der vb-Script-Code
<html>
<head>
<title>Authentifizierung</title>
<script language="vbscript">
On Error Resume Next
'UserName des aktuellen Benutzers ermitteln
Set objWSHNetwork = CreateObject("WScript.Network")
'Gruppenmitgleidschaft prüfen
'Variable prüfen und bei "Falsch" weiterleiten auf Fehlerseite-Seite
If CheckUser("Forum_Mitglieder", objWSHNetwork.Username) = True then
response.redirect "richtige_Seite.php"
' beziehungsweise folgende
'document.location.href("richtige_Seite.php")
'window.location.href("richtige_Seite.php")
Else
response.redirect "falsche_Seite.htm"
End if
End if
WScript.quit
Function CheckUser(GroupName, UserName)
On Error Resume Next
Dim objComputer
Dim objGruppe
Set objComputer = GetObject("WinNT://Intra-Domaene")
Set objGruppe = objComputer.GetObject("group", GroupName)
Select Case Err
Case -2147024843
Wscript.Echo "Die Gruppe " & Gruppenname & " wurde nicht gefunden."
Set objGruppe = Nothing
Wscript.Quit
Case 0
Wscript.Echo "Die Abfrage wurde fehlerfrei ausgeführt."
Case Else
Wscript.Echo Err.Number & vbTab & Err.Description
End Select
Err.Clear
For Each objMitglied In objGruppe.Members
If UserName = Mid(objMitglied.ADsPath, 13, Len(objMitglied.ADsPath) - 12) Then
CheckUser = True
Exit Function
End If
Next
CheckUser = False
End Function
</script>
</HEAD>
</html>
Vorab Danke.