ISA Server 2006 Scripting

12/11/2009 - 21:06 von Marcel Goelike | Report spam
Hallo Liebes Board,

wir haben seit mehreren Jahren den ISA Server erfolgreich im Einsatz.

Nun wollte ich für Kollegen ein einfaches Script bereitstellen um für eine
bestehende Zugriffsregel ("Internet Verboten") Gruppen (also Usersets)
hinzuzufügen bzw. zu entfernen.

Hier mein Script:
' Gruppe sperren

WScript.Echo "Dieses Script sperrt für bestimmte Gruppen das Internet"

Dim root
Dim isaArray
Dim policyrules

Gruppe = Inputbox("Bitte zu sperrende Gruppe eingeben")

Set root = CreateObject("FPC.Root")
Set isaArray = root.Arrays.Connect("S4.schule.lan")
Set policyrules = isaArray.ArrayPolicy.PolicyRules.Item("Internet Verboten")

policyrules.AccessProperties.UserSets.Add(Gruppe), fpcinclude
policyrules.Save

MsgBox "Die Gruppe wurde gesperrt"

Das Hinzufügen der Gruppen zur Regel funktioniert auch wunderbar, nur der
Schalter Remove funktioniert nicht. RemoveAll funktioniert aber wieder. Nur
leider ist das unangenehm weil dann ja sofort alle Gruppen wieder Zugriff
haben.

Das Script meldet den Fehler: 'Typen unvertràglich
policyrules.AccessProperties.UserSets.Remove'

Das Script für das Entsperren sieht so aus:
' Gruppe freigeben

WScript.Echo "Dieses Script gibt für bestimmte Gruppen das Internet wieder
frei"

Dim root
Dim isaArray
Dim policyrules

Gruppe = Inputbox("Bitte gesperrte Gruppe eingeben")

Set root = CreateObject("FPC.Root")
Set isaArray = root.Arrays.Connect("S4.schule.lan")
Set policyrules = isaArray.ArrayPolicy.PolicyRules.Item("Internet Verboten")

policyrules.AccessProperties.UserSets.Remove(Gruppe)
policyrules.Save

MsgBox "Die Gruppe wurde freigegeben"

Das Hinzufügen der Gruppen zur Regel funktioniert auch wunderbar, nur der
Schalter Remove funktioniert nicht. RemoveAll funktioniert aber wieder. Nur
leider ist das unangenehm weil dann ja sofort alle Gruppen wieder Zugriff
haben.

Das Script meldet den Fehler: 'Typen unvertràglich
policyrules.AccessProperties.UserSets.Remove'

Wie bereits erwàhnt funktioniert der Schalter RemoveAll.

Vielleicht hat ja hier jemand einen Tipp.
 

Lesen sie die antworten

#1 Jens Baier
13/11/2009 - 06:11 | Warnen spam
Hi,

wir haben seit mehreren Jahren den ISA Server erfolgreich im Einsatz.



Glueckwunsch

Nun wollte ich für Kollegen ein einfaches Script bereitstellen um für eine
bestehende Zugriffsregel ("Internet Verboten") Gruppen (also Usersets)
hinzuzufügen bzw. zu entfernen.



leider habe ich wenig Plan von dieser Art Scripting, aber ich habe zusammen
mit einem meiner Kunden den Surfblocker entwickelt (Ich die Idee+technische
Umsetzung, Kunde die Programmierung).
http://www.it-training-grote.de/dow...master.pdf (da stehen auch
einige Skripte drin, welche Dir evtl. helfen koennen)
Evtl. hast Du daran ja mal Interesse.
Kannst mich per PM kontaktieren und ich kann Dir mal eine Version schicken.

Gruss Jens
www.it-training-grote.de
www.forefront-tmg.de
https://mvp.support.microsoft.com/p...Marc.Grote
http://blog.it-training-grote.de

Ähnliche fragen