Code
'Enable Port for Cisco VPN Client
Option Explicit
On Error GoTo 0
'Set Constants
Const NET_FW_IP_PROTOCOL_UDP = 17
Const NET_FW_IP_PROTOCOL_TCP = 6
Const NET_FW_SCOPE_ALL = 0
Const NET_FW_SCOPE_LOCAL_SUBNET = 1
'Declare variables
Dim errornum
' Create the firewall manager object.
Dim fwMgr
Set fwMgr = CreateObject("HNetCfg.FwMgr")
' Get the current profile for the local firewall policy.
Dim profile
Set profile = fwMgr.LocalPolicy.CurrentProfile
Dim port
Set port = CreateObject("HNetCfg.FWOpenPort")
port.Name = "Cisco VPN Client"
port.Protocol = NET_FW_IP_PROTOCOL_UDP
port.Port = 62515
'If using Scope, dont use RemoteAddresses
port.Scope = NET_FW_SCOPE_ALL
'Use this line to scope the port to Local Subnet only
'port.Scope = NET_FW_SCOPE_LOCAL_SUBNET
port.Enabled = TRUE
'Use this line instead if you want to add the port, but disabled
'port.Enabled = FALSE
On Error Resume Next
profile.GloballyOpenPorts.Add port
errornum = Err.Number
If errornum <> 0 Then
Wscript.Echo("Adding the port failed. Error Number: " & errornum)
End Ifmit diesem vbscript lässt sich (sogar remote) die firewallconfig vin winxp sp2 ändern, so dass in diesem fall port 62515/udp geöffnet wird
man kann wohl kaum eindeutiger zeigen, wie sinnlos damit die integrierte firewall ist! script wurde von ms selbst veröffnetlicht
english: this little script opens port 62515/udp on a system protected by winxp sp2-firewall. it also can be used from remote -> theres no better way to show, how sensless the integrated firewall is. this script was published by ms itself!