Hier eine Anweisung für ein VBScript zur Portfreigabe unter Vista aus einem anderen Forum. Das wäre vielleicht die Lösung:
Folgendes VBScript schaltet "TestPort" 9999 frei und
funktioniert unter VISTA einwandfrei.
-------------------------------------------------------
Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
Set objPort = CreateObject("HNetCfg.FwOpenPort")
objPort.Port = 9999
objPort.Name = "Test Port"
objPort.Enabled = True
Set colPorts = objPolicy.GloballyOpenPorts
errReturn = colPorts.Add(objPort)
-----------------------------------------------------------
Erstelle eine Verknüpfung zum gespeicherten Script und
öffne die Eigenschaften der Verknüpfung. Ändere den
Eintrag im Feld "Ziel", indem Du WScript.exe vor den
Dateipfad setzt, Beispiel:
C:\Windows\System32\wscript.exe C:\Users\Public\AddPort.vbs
Klicke mit der rechten Maustaste auf die Verknüpfung, wähle
"Als Administrator ausführen", dann funktioniert es.
