WMI-Remote-Steuerung der Windows-Firewall

Hallo,

ich habe folgendes Problem:

Ich soll die Remote-Steuerung von Windows-Firewalls in VBScript realisieren.

Laut [1] ist das gar nicht so ohne weiteres möglich. Das Firewall-Objekt kann nämlich nur lokal erstellt werden. Das bedeutet, dass ich das Script lokal ausführen lassen muss (die Systemlösung, für die ich die Scripts schreibe, lässt das sogar in Echtzeit zu). Lokal heißt aber eben auch, dass ich mir so richtig Gedanken machen muss, wie ich die Kommunikation zwischen Admin und Client regeln will - wie kann ich dem Admin das FW-Setup übermitteln, wenn doch das Script lokal beim Client läuft? Oder noch simpler: Wie kann ich dem Client-Script einen Port übermitteln, der geschlossen/geöffnet werden soll?

In [1] werden zwei Wege genannt: Zum einen über eine auf einem Server ausgelagerte Textfile. Und zum anderen über Win32_Process-Klassen.

Der erste Vorschlag ist intuitiv, das Admin-Script erstellt aufm Client eine Datei mit Anweisungen für das lokal ausgeführte Client-Script, welches dann seinerseits wieder eine Datei aufm Client erstellt und das Ergebnis da hinein schreibt. Ich kann keinen bestimmten Server festlegen, auf dem die logfiles gespeichert werden sollen, schließlich wird die Software, die ich hier skripte, verkauft - und weiß der Geier wie die Leute ihre Server so nennen ;) So sehe ich das.

Zu dem anderen Vorschlag wird leider überhaupt nichts weiter erzählt, aufgrund meiner diesbezüglichen Unwissenheit habe ich jetzt die Hoffnung, dass dieser Weg etwas einfacher sein könnte - hat jemand vllt einen Plan, wie ich da vorgehen könnte?

Gruß,
Thomas


[1] http://www.microsoft.com/technet/scriptcenter/resources/tales/sg1104.ms ...
Absatz 'Scripting the Windows Firewall'

netsh firewall set opmode mode = ENABLE

netsh firewall set opmode mode = DISABLE

netsh firewall set opmode mode = ENABLE

netsh firewall set allowedprogram "C:\MyApp\MyApp.exe" MyApp ENABLE  

netsh firewall set portopening TCP 80 MyWebPor

'Script: RemoteProcess.vbs  
'Aufruf von Kommandozeile über cscript <scriptname>  

Option Explicit
Dim strCommand, objProcess, intProcessID, strComputer

strComputer = "DEINZIELCOMPUTER"  
strCommand = "C:\firewallconfig.bat"  
Set objProcess = GetObject("winmgmts:\\" & strComputer & "\root\cimv2:Win32_Process")  
objProcess.Create strCommand,null,null,intProcessID

WSCript.Quit