Forefront TMG

1. Frage:
Ich hab das mit dem SDK für Forefront ausprobiert und kann damit die Firewallregeln(Clientsätze) exportieren. Allerdings möchte ich diesen Vorgang über eine Weboberfläche erledigen. Weiß jemand wie ?

2. Frage:
Falls das nicht gehen sollte, habe ich hier ein Surfblockerscript für den ISA-Server. Dort wo Fehler steht, kommt jedesmal ein Laufzeitfehler. Auf dem ISA-Server mit IIS 6 läuft das Script. Allerdings nicht unter Forefront mit IIS 7. Hat jemand vielleicht eine Idee?

Im Folgenden das Script.


Option Explicit

Dim objFPC
Dim objMyArray

Set objFPC = CreateObject("FPC.Root")
objFPC.Refresh
Set objMyArray = objFPC.GetContainingArray

Main

Sub Main()
Const DisplayName = "Surfblocker 1.0.2"
Const ShortName = "Surfblocker"
Const UninstallFile = "uninstall-surfblocker.vbs"

Dim text, result

text = "Möchten Sie " & ShortName & " installieren?"
result = MsgBox(text, vbYesNo+vbQuestion, "Software")
If result = vbYes Then
RemoveVirtualDir "C:\Inetpub\" & ShortName, ShortName

CopyVirtualDir "IIS", "C:\Inetpub\" & ShortName
ChangeACLs "C:\Inetpub\" & ShortName, "Administratoren:F G_Lehrer:R"
CreateVirtualDir "C:\Inetpub\" & ShortName, ShortName

CopySetACL "SetACL\SetACL.exe", "C:\WINNT\SetACLSB.exe"
ChangeRegPerm "machine\software\microsoft\fpc", "n:G_Lehrer;p:full;m:set;w:dacl"

LoescheProtokollregeln
LoescheClientsaetze

ProbeAufruf

UninstallRoutine DisplayName, ShortName, UninstallFile
text = _
"Surfblocker wurde erfolgreich auf dem Server installiert." & vbCrLf & vbCrLf & _
"Den Internetzugang für die Computerräume können Sie" & vbCrLf & _
"nun über die Adresse:" & vbCrLf & vbCrLf & _
" http://servername/surfblocker " & vbCrLf & vbCrLf & _
"sperren bzw. freigeben."
result = MsgBox(text, vbOKOnly+vbInformation, "Software")
End If
End Sub

Sub RemoveVirtualDir(Path, Alias)
Dim fso
Dim VdirObj

Set fso = CreateObject("Scripting.FileSystemObject")
Set VdirObj = GetObject("IIS:testisa_win08x64/w3svc/1/root")

On Error Resume Next
' virtuelles Verzeichnis loeschen
VdirObj.Delete "IIsWebVirtualDir", Alias
VdirObj.SetInfo

' Verzeichnis loeschen
fso.DeleteFolder(Path)
On Error Goto 0
End Sub

Sub CopyVirtualDir(Source, Destination)
Dim fso, WshShell()

Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFolder Source, Destination
End Sub

Sub ChangeACLs(Path, Users)
Dim WshShell, a

Set WshShell=CreateObject("Wscript.Shell")
a = "cmd /c echo j| cacls " & Path & " /T /G " & Users
' Ausfuehrung ohne Fenster = 0, warte auf Befehlsende = TRUE
WshShell.Run a, 0, TRUE
End Sub

Sub CopySetACL(Source, Destination)
Dim fso, WshShell()

Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile Source, Destination
End Sub

Sub ChangeRegPerm(KeyName, Perm)
Dim WshShell, a

Set WshShell=CreateObject("Wscript.Shell")
a = "setaclsb.exe -on """ & KeyName & """ -ot reg -actn ace -ace """ & Perm & """"
' Ausfuehrung ohne Fenster = 0, warte auf Befehlsende = TRUE
WshShell.Run a, 0, TRUE
End Sub

Sub CreateVirtualDir(Path, Alias)
Dim ServObj, VdirObj

Set ServObj = GetObject("IIS:LocalHost/w3svc/1/Root") <----------------- Fehler
On Error Resume Next
' Virtuelles Verzeichnis erstellen
Set VdirObj = ServObj.Create("IIsWebVirtualDir", Alias)
' VdirObj.AnonymousUserName = "xxxx"
VdirObj.AuthAnonymous = False
VdirObj.AuthNTLM = True
VdirObj.Path = Path
VdirObj.SetInfo
On Error Goto 0
End Sub

Sub UninstallRoutine(DisplayName, KeyName, UninstallFile)
Dim fso, WshShell
Dim Key

Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = Wscript.CreateObject("Wscript.Shell")
fso.CopyFile UninstallFile, "C:\winnt\" & UninstallFile
Key = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & KeyName & "\"
WshShell.RegWrite Key & "DisplayName", DisplayName
WshShell.RegWrite Key & "UninstallString", "wscript \winnt\" & UninstallFile
End Sub

Sub LoescheProtokollregeln()
Dim MyProtocolRules
Dim rule

Set MyProtocolRules = objMyArray.ArrayPolicy.ProtocolRules

For Each rule In MyProtocolRules
MyProtocolRules.Remove(rule.name)
Next
MyProtocolRules.Save
End Sub

Sub LoescheClientSaetze()
Dim MyClientSets
Dim MyClientSet

Set MyClientSets = objMyArray.PolicyElements.ClientAddressSets

For Each MyClientSet In MyClientSets
MyClientSets.Remove(MyClientSet.name)
Next
MyClientSets.Save
End Sub

Sub ProbeAufruf()
Dim Obj
Set Obj = CreateObject("Microsoft.XMLHTTP")
On Error Resume Next
Obj.open "GET", "http://localhost/surfblocker/default.asp", False
Obj.send ""
On Error Goto 0
End Sub